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Liebe Leserin, lieber Leser, 


das Ziel dieses Buches ist es, Ihnen die Programmierung der beiden Floppystationen 1570 und 
1571 von Commodore nahezubringen. Die Vermittlung des nötigen Wissens soll locker und 
dennoch schnell und umfassend erfolgen. Es spielt hierbei keine Rolle, ob Sie noch Anfänger 
oder schon Profi sind. Sie erhalten in jedem Fall ein Nachschlagewerk, das Ihnen in jeder 
erdenklichen Situation weiterhelfen wird. 


Da die beiden neuen Floppystationen äußerst komplexe Geräte sind, ist es unumgänglich, das 
Buch in mehrere Abschnitte zu unterteilen. 


Angefangen wird mit grundsätzlichen Daten und Überlegungen zur Arbeit mit den 
Floppystationen, bevor dann im nächsten Abschnitt auf die Arbeit mit Dateien (Files) 
eingegangen wird. Sie lernen alles über den Aufbau der verschiedenen Dateitypen und den 
grundsätzlichen Aufbau von formatierten Disketten. Wenn Sie das alles schon beherrschen, dann 
erfahren Sie in den Abschnitten für fortgeschrittene Programmierer, wie der Befehlssatz der 
Floppies aussieht und wie man diese Direktzugriffs-Befehle anwendet und auszunutzt. 
Schließlich lernen Sie die beiden Diskettenformate der 1570/71 (MFM und GCR-Format) 
kennen. 


Wenn Sie alle diese Kapitel durchgestanden haben, begeben wir uns auf die Ebene der 
Maschinensprache und erfahren alles Nötige und Wissenswerte über die verschiedenen BURST- 
Betriebsarten der Floppystationen. Sie lernen die Geheimnisse des DOS kennen und mit Hilfe des 
sehr ausführlich dokumentierten DOS-Listings werden Sie in die Lage versetzt, auch die 
schwierigsten Programmieraufgaben sicher und schnell zu bewältigen. Die Kapitel für die 
Maschinensprache-Programmierer informieren so umfassend und genau über die wichtigen 
Problemlösungen, daß auch der weniger versierte Leser sicher in der Lage ist, sofort in die 
Programmierung des DOS einzusteigen. Es werden grundsätzliche Routinen vorgestellt und 
Ratschl3.ge zur Programmierung gegeben. 


Die Krönung bildet dann unter anderem der Diskmonitor zum Abtippen, der in Kapitel 13 
ausführlich beschrieben wird. Dieser Diskmonitor zählt sicher mit zu den komfortabelsten 
Werkzeugen, die es bisher zum Commodore 128 gibt. 
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Allen Lesern und denen. die es werden wollen, nun viel Spaß und aufregende Stunden bei der 
Lektüre dieses Buches und der Entdeckung der beiden Floppystationen 1570 und 1571. 


Karsten Schramm 


Übrigens, 


bevor ich mein Vorwort abschließe, möchte ich noch allen denjenigen danken, die direkt oder 
auch indirekt zum Gelingen dieses Buches beigetragen haben: 


Vielen Dank dabei an meine Familie, die mich durch ihr Verständnis für meine Arbeit immer 
mehr oder weniger stark unterstützte. Ein Dankeschön an Michael Thomas und Boris Schneider, 
die sich stets bemüht haben, mich bei dem Buch so gut wie möglich zu unterstützen. Schließlich 
noch ein Dankeschön an die Firma Commodore, die bereitwillig alle Informationen über die 
Diskcontroller der 1570/71 zur Verfügung stellte. 
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1 Der Umgang mit der Floppy 1570/71 


Bevor wir uns an die Arbeit mit der Floppystation 1570 oder 1571 heranwagen, noch einige 
Worte zu diesem Buch: Der fortgeschrittene Programmierer unter Ihnen kann die ersten drei 
Kapitel ohne weiteres überspringen. Arbeiten Sie jedoch das erste Mal mit einer Commodore- 
Floppy, so sollten Sie sich in den folgenden Kapiteln gleich etwas genauer damit beschäftigen. 
Zuerst wollen wir die Unterschiede zwischen der 1570 und 1571 betrachten. Dieses Buch wird 
Ihnen beide der sehr ähnlichen Floppystationen nahebringen. 


Generell besteht der Unterschied beider Floppies nur darin, daß die 1571 im Gegensatz zur 1570 
über zwei Schreib-/Leseköpfe verfügt, während die 1570 nur einen einzigen Schreib-/Lesekopf 
besitzt. Dieser Unterschied erlaubt es der 1571, alle Disketten beidseitig zu beschreiben, was sich 
in einer höheren Speicherkapazität pro Diskette äußert. Diese Tatsache ist jedoch für das Erlernen 
der Programmierung einer der beiden Floppystationen ohne Belang, so daß wir uns gleich daran 
machen, die Floppystation in Betrieb zu nehmen. 


1.1 Inbetriebnahme 


Wenn Sie mit Peripheriegeräten arbeiten, das heißt, mit Geräten. die an den Computer 
angeschlossen werden, so haben Sie es in der Rege! mir elektromechanischen Teilen zu tun, die 
einem gewissen Verschleiß unterliegen und besonders vorsichtig zu behandeln sind. 


Eine Floppystation enthält beispielsweise mehrere Motoren und genau eingestellte Tonköpfe, die 
sich bei zu roher Behandlung verstellen oder sogar zerstört werden können. Gehen Sie aus 
diesem Grund besonders vorsichtig mit Ihrer Floppy um. Das gilt natürlich ebenso für Drucker 
und Winchester-Plattenlaufwerke. 


Wenn Sie Ihr Laufwerk auspacken, so müssen in der Originalschachtel folgende Dinge enthalten 
sein: 

"= ein Netzkabel 

= -.ein Kabel für die Verbindung zum Computer (für C64 und C128 gleich 

"= - eine Diskette (1570 / 1571 TEST/DEMO) 

= - und natürlich die Floppystation. 
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Stellen Sie die Floppystation an Ihrem Arbeitsplatz neben dem Computer auf. Achten Sie dabei 
auf einen möglichst großen Sicherheitsabstand zum Fernseher oder zum Monitor, da deren 
Ablenkeinheit den Betrieb der Floppy stören kann. 


Die beigefügte Diskette legen Sie am besten sofort an einen sicheren Ort, womit ein Platz weit 
weg von Magnetfeldern (Fernseher, Monitor, Lautsprecherboxen) und möglichst ohne Staub oder 
Zigarettenqualm gemeint ist. Diese Aufbewahrungsvorschrift gilt selbstverständlich auch 
zukünftig für alle anderen Disketten. 


Haben Sie alle Geräte aufgestellt, so achten Sie darauf, daß alle Netzschalter auf OFF stehen, und 
stellen Sie die Netzverbindungen her. Danach nehmen Sie das Verbindungskabel für die Floppy 
und den Computer, und stecken es bei der Floppy in eine der beiden vorhandenen Buchsen auf 
der Rückseite des Geräts (Bild 1.1 zeigt die Rückseiten der 1570 und der 1571; die Buchsen sind 
mit einem Pfeil gekennzeichnet.). Jetzt stecken Sie das andere Ende des Kabels in die 
entsprechende Buchse am Computer (entweder ein VC20/C64 oder ein CI28). Auch diese 
Buchse befindet sich an der Rückseite des entsprechenden Gerätes und ist in Bild 1.2 mit einem 
Pfeil gekennzeichnet. Ein Einstecken in eine verkehrte Buchse ist bei den Commodore- 
Computern wegen der unterschiedlichen Formen ausgeschlossen. 








Bild 1.1 Die Rückseiten der 1570 und 1571 
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Bild 1.2 Die Rückseiten von C64 und CI2B 


Bevor Sie die Geräte einschalten, sollten Sie darauf achten, daß Sie die Pappscheibe aus der 
Öffnung des Floppylaufwerks herausnehmen. Diese Transportsicherung ist gut aufzuheben, um 
sie bei einem späteren Transport der Floppystation wieder einlegen zu können. 


Haben Sie das alles erledigt, so können Sie die Geräte einschalten. Bei einem C64 ist die 
Reihenfolge des Einschaltens ohne Bedeutung. Bei einem C128 sollten Sie zweckmäßigerweise 
zuerst die Floppystation und dann den Computer einschalten. Warum das so ist, wird später noch 
besprochen. 


Bei einem C128 läuft die Floppy nach dem Einschalten des Computers an und versucht einen 
Diskettenzugriff. Wir gehen einmal davon aus. Daß jetzt keine Diskette im Laufwerk liegt. Die 
Floppy beginnt seltsam zu 'rattern', wobei die Betriebsanzeige in unregelmäßigen Abständen sehr 
schnell aufblinkt. Kurze Zeit später hat sich die Floppy dann beruhigt und der Computer meldet 
sich mit READY. Dieser Diskettenzugriff ist vollkommen normal. 


Ist alles in Ordnung, so leuchtet bei der 1571 dauernd die rote und bei der 1570 dauernd die grüne 
Leuchtdiode (LED) am Laufwerk. Diese beiden 
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LEDs zeigen jedoch bei beiden Geräten das gleiche an: den eingeschalteten Netzschalter. Die 
jeweils andere LED am Laufwerk zeigt Ihnen an, ob die Floppy bei der Arbeit ist. Sie sollten eine 
Diskette also nur dann aus dem Laufwerk herausholen oder in das Laufwerk einlegen, wenn diese 
zweite LED nicht leuchtet. Eine Ausnahme besteht jedoch dann, wenn Sie von dem jeweils 
laufenden Programm ausdrücklich dazu aufgefordert werden. 


1.2 Das Laden und Speichern von Programmen 


Nachdem Sie die Computeranlage betriebsbereit gemacht haben, tippen Sie gleich einmal ein 
Programm ein, das als Dummy zum Erlernen des Diskettenbetriebs dient. 


Tippen Sie also zum Beispiel folgende Zeilen in den Computer: 





10 REM DAS IST EIH TEST 
20 REM DAS IST DAS ENDE DES TESTS 
30 END 









































Dieses kleine Programm wird bei Arbeitsende, wenn wir den Computer ausschalten, 
zwangsläufig verlorengehen, da der Computer Programme oder Daten nur im eingeschalteten 
Zustand behalten kann. Nehmen wir also jetzt einmal an, das sei unser erstes selbstgeschriebenes 
Programm, das wir unter keinen Umständen verlieren wollen. 


Die Lösung des Problems ist eine Floppystation. Mit ihrer Hilfe können Programme auf 
Disketten abgespeichert und so gegen Verlust geschützt werden. Die Disketten dazu können Sie 
einzeln oder in Packungen zu mehreren in fast jedem Geschäft kaufen, das auch Computer oder 
Computerzubehör anbietet. 


Wenn Sie sich noch keine Disketten besorgt haben, sollten Sie das schnellstens nachholen. Hier 
ein paar Tips für den Einkauf von Disketten für die Floppy 1570 und 1571: 


Die Disketten sollten: 

= 5,25 Zoll Durchmesser haben (es gibt auch 3-, 3,5- und 8-Zoll Disket ten, die jedoch nicht 
verwendet werden können); 

"= einen Innenloch- Verstärkungsring enthalten (das erhöht die Lebensdauer der Disketten, ist 
jedoch nicht unbedingt notwendig); 

"= für einfache Schreibdichte (single density) ausgelegt sein. (Es gibt auch doppelte oder 
vierfache Schreib dichte (double density, quattro density). 
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Das ist für die 1570/71 zwar möglich, aber nicht notwendig. Diese höherwertigen Disketten 
sind außerdem in der Regel teurer.) 

"= bei der 1570 einseitig und bei der 1571 zweiseitig zu beschreiben sein 

= (1570 single sided, 1571 double sided). 


Von welcher Firma die Disketten sind, spielt normalerweise keine Rolle. 


Jetzt aber wieder zurück zum Thema. Nehmen Sie eine dieser neuen Disketten aus der Packung, 
wobei Sie immer besonders sorgfältig vorgehen sollten, und sehen Sie sich diese Diskette einmal 
an (Bild 1.3). 





Fixierkerben ag 





Lesespalt 


Indexloch 









Diskettenscheibe 


Schreibschutzkerbe— 


Diskettenmantel 
mit Vlies 





Innenloch mit 
Verstärkungsring 


Bild 1.3 Darstellung einer Diskette 


Eine Diskette ist eine dünne Scheibe aus magnetischem Material (ähnlich einem Tonband), die in 
einer schwarzen Hülle, dem Diskettenmantel, untergebracht ist. Dieser Mantel ist innen mit 
einem Vlies ausgelegt, um die Diskette zu schützen und eventuell eintretende Staubteilchen von 
der Diskettenoberfläche fernzuhalten. In der Mitte der Diskette befindet sich das Innenloch, an 
dem nachher der Laufwerkmotor angreift, um die Magnetscheibe zu drehen. Die Diskette dreht 
sich dabei mit 300 Umdrehungen in der Minute in ihrem Mantel, der noch an zwei anderen 
Stellen Öffnungen aufweist. Das ist einmal ein ganz kleines Loch, nahe dem großen Innenloch, 
das Indexloch genannt wird und auch auf der Diskettenscheibe an ei 
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ner Stelle vorhanden ist. Zum anderen befindet sich noch eine große, längliche Schreib- 
Leseöffnung in dem Diskettenmantel, an der nachher der Schreib- Lesekopf angreift, um die 
Daten zu schreiben und zu lesen. Die Öffnungen im Diskettenmantel zeigen immer die 
Magnetschicht der Diskette und sollten nie mit den Fingern berührt werden. 


Schieben Sie also nun die Diskette mit der Schreib-/Leseöffnung voran in das Laufwerk, bis sie 
ganz hinten an den Anschlag stößt. Dabei sollten Sie ein Knicken der Diskette auf jeden Fall 
vermeiden. Danach schließen Sie die Klappe an der Laufwerköffnung. Bei der 1570 wird eine 
Klappe nach unten gedrückt; bei der 1571 wird der Drehhebel nach unten gedreht. 


In beiden Fällen wird dadurch die Diskette im Laufwerk fixiert. 


1.2.1 Formatieren einer Diskette 


Nun wollen wir endlich unser Programm auf der Diskette abspeichern, wozu wir vorher noch 
eine Zusatzmaßnahme ergreifen müssen: Die Diskette wird zuerst formatiert. Mit Formatieren 
bezeichnet man einen Vorgang, der die Diskette in gewisser Weise überhaupt erst betriebsbereit 
macht. Dieser Vorgang wird später noch im einzelnen besprochen werden. 


Das Formatieren geschieht je nach Computer verschieden. Haben Sie einen C64, so tippen Sie 


die folgende Zeile ein: 





OPEN 15,8,15,"N: TESTDISKETTE.,TD": CLOSE 15 























Nach Eingabe dieser Zeile drücken Sie die RETURN-Taste. Die Floppy läuft jetzt an und die 
LED am Laufwerk leuchtet auf. Das Formatieren der Diskette dauert jetzt etwa 90 Sekunden. 
Während dieser Zeit ist der Computer nicht ansprechbar. 


Haben Sie einen C128, so tippen Sie entweder die oben angegebene Zeile für den C64 oder aber 
folgendes: 





HEADER "TESTDISKETTE", ITD,D0O,U8 


























= 


Danach drücken Sie auch hier auf die RETURN- oder auf die ENTER Taste. Der Computer fragt 
Sie nun: 


ARE YOU SURE? 








worauf Sie mit Y (für yes) antworten sollten. Jetzt passiert das gleiche wie beim C64. nur daß das 
Formatieren erheblich schneller geht. Haben Sie auf dem C128 die Zeile wie für den C64 
abgetippt, so unterbleibt die Frage ARE YOU SURE?; ansonsten passiert aber nichts anderes. 
Diese Frage des 
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Computers ist eine Sicherheitseinrichtung, die das unbeabsichtigte Formatieren von Disketten 
verhindern soll. Antworten Sie mit etwas anderem als "Y" oder YES, so geht der Computer in 
den READY-Modus zurück, und es passiert nichts. 


Es sollte Ihnen immer klar sein, daß das Formatieren eine Diskette völlig neu magnetisiert und 
somit alle Daten und Programme löscht, die eventuell vorher darauf abgelegt waren. Seien Sie 
also mit diesem Befehl immer sehr vorsichtig, und vergewissern Sie sich vorher lieber zweimal, 
daß Sie auch die richtige Diskette eingelegt haben. 


1.2.2 Das Inhaltsverzeichnis der Diskette 


Einer der Vorgänge beim Formatieren ist das Aufbringen eines Inhaltsverzeichnisses auf die 
Diskette. Man kann so immer nachsehen, welche Programme oder Daten man auf der Diskette 
abgelegt hat. Außerdem dient das Inhaltsverzeichnis der Floppystation zum Feststellen, ob das 
Programm, das man in den Computer laden will, überhaupt auf der Diskette vorhanden ist, die 
sich gerade im Laufwerk befindet. 


Das Inhaltsverzeichnis, das oft mit dem englischen Ausdruck "directory" bezeichnet wird, kann 
wie ein normales Programm von der Diskette geladen werden, um es sich anzusehen. Achtung! 
Programme, die bis dahin im Speicher standen, werden also gelöscht. Um Ihnen das zu 
demonstrieren, laden Sie einmal das Directory der neu formatierten Diskette in den Speicher: 


LOAD "$",8 <RETURN> 





<RETURNS> deutet hierbei an, daß Sie nach Eingabe der Zeile die ReturnTaste am Computer 
drücken sollen. 


Wenn sich der Computer mit READY meldet, tippen Sie 





LIST <RETURN) 











Es erscheint folgendes Bild auf dem Bildschirm: 





0 "TESTDISKETTE "TBD.2A 
664 BLOCKS FREE. 


























beziehungsweise: 





0 "TESTDISKETTE " TD 2A 
1328 BLOCKS FREE. 
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wenn Sie eine Floppy 1571 an einem C 128 betreiben. Sie sehen, wie sich die zweiseitige 
Betriebsart der 1571 gegenüber der 1570 äußert: Sie erhalten eine Diskette mit einer doppelt so 
großen Anzahl von freien Blöcken (blocks free). Diese große Kapazität der 1571 wird jedoch nur 
auf einem C 128 ausgenutzt. Betreiben Sie diese Floppy an einem C64, so simuliert sie eine 1541 
und arbeitet ausschließlich einseitig (mit 664 BLOCKS FREE). Sie werden in den Kapiteln für 
Fortgeschrittene jedoch noch erfahren, wie Sie auch am C64 eine große 1571 betreiben können. 


Das Testprogramm, das Sie vorher eingetippt haben, wurde durch das Inhaltsverzeichnis der 
Diskette im Speicher überschrieben und ist somit gelöscht worden. Für unsere Testzwecke tippen 
Sie dieses Programm bitte noch einmal ein: 


NEW <RETURN> 

10 REM DAS IST EIN TEST 

20 REM DAS IST DAS ENDE DES TESTS 
30 END 





















































1.2.3 Das Speichern eines Programms auf Diskette 


Wir wollen unser Programm nun einmal auf die Diskette abspeichern. Dazu geben wir dem 
Programm einen Namen, der aus maximal 16 Zeichen bestehen darf und der sich Filename oder 
Dateiname nennt. In unserem Beispiel verwenden wir den Namen TEST. Dazu tippen Sie: 





SAVE "TEST",8 <RETURN> 














Die Floppy läuft an, und das Programm wird abgespeichert. Zur Kontrolle sehen Sie sich danach 
wieder das Inhaltsverzeichnis der Diskette an: 


LOAD "$",8 <RETURN> 
‚IST <RETURN> 




















Nun erhalten wir folgendes Bild: 




















0 "TESTDISKETTE " TD 2A 
1 "TEST" PRG 
663 BLOCKS FREE. 
































beziehungsweise: 

0 "TESTDISKETTE " TD 2A 
b. _ PERSE® PRG 
327 BLOCKS FREE 























Wie Sie sehen, erscheint der Programmname nun im Directory der Diskette. Die Zahl vor dem 
Programmnamen ist ein Maß für die Größe des abge 
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speicherten Programms. In unserem Fall beträgt sie 1 Block. (Was das ist, besprechen wir später 
noch.) Das Kürzel PRG steht für PROGRAMM und zeigt uns an, daß das, was wir abgespeichert 
haben, ein Programm ist. Wie wir später noch entdecken werden, können nämlich auch ganz 
andere Sachen auf einer Diskette abgelegt werden, zum Beispiel die Daten von elektronischen 
Notizbüchern oder von Kochrezepten. 


Zum Abspeichern des Programms auf die Diskette haben wir also den SA VE-Befehl benutzt. 
Dieser Befehl hat folgende Syntax: 











SAVE "filename", gerätenummer<, sekundäradresse> 





fillename 


gerätenummer 


ist der oben angesprochene Name, den man einem Programm geben muß, um 
es auf der Diskette abspeichern zu können. Dieser Name darf aus 1 bis 16 
Zeichen bestehen, wobei folgende Zeichen jedoch nicht gestattet (oder nicht 
immer gestattet) sind: @, $, *, ?, #, :. Warum diese Zeichen nicht gestattet 
sind, hat seinen Grund darin, daß die Floppy mit diesen Zeichen 
Sonderfunktionen ausführt. Bei dem $-Zeichen müßten Sie sich aber schon 
denken können, warum es nicht erlaubt ist. Natürlich: Das $-Zeichen wird von 
der Floppy als Name für das Directory der Diskette benutzt. 


ist eine Nummer, die der Floppy und jedem anderen, an den Computer 
angeschlossenen, Gerät zugeteilt wird. Das hat folgenden Grund: alle Geräte 
(Floppy, Drucker, Plotter, ...) hängen beim Computer an ein und derselben 
Steckbuchse. Diese Verbindung zum Computer bezeichnet man allgemein als 
Bus, weil auf dieser Leitung, bildlich gesprochen, Daten zwischen dem 
Computer und den angeschlossenen Geräten "hin- und herfahren". Wenn der 
Computer nun aber Daten zur Floppy "fahren" will, wie sollen dann die an 
den Bus angeschlossenen Geräte wissen, welches gemeint ist? Aus diesem 
Grund existiert die sogenannte Geräteadresse oder Gerätenummer. Bevor der 
Computer die Daten auf den Bus schickt, sendet er zuallererst einmal eine 
Nummer. Anhand dieser Nummer "weiß" jetzt das angeschlossene Gerät mit 
eben dieser Nummer, daß es gemeint ist, und macht sich für den Empfang von 
Daten oder Befehlen bereit. Die übrigen angeschlossenen Geräte ignorieren 
jetzt den Busbetrieb und geben die Leitungen für die Übertragung frei. Eine 
Floppy hat bei Commodore in der Regel die Nummer 8, ein ein Plotter die 5 
und Drucker die Nummer 4. Deshalb haben wir auch immer die 
Gerätenummer 8 angegeben, wenn wir bis 
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her mit der Floppy kommuniziert haben. Die Gerätenummer kann bei der 
1570/71 auch geändert werden. Auf dieses Problem werden wir in Abschnitt 
1.2.7 eingehen; außerdem wird diese Maßnahme natürlich erst dann 
notwendig, wenn Sie mehr als eine Floppystation an den Bus des Computers 
anschließen. 


<sekundäradresse> 


Die Angabe dieses Parameters ist optional. Aus diesem Grund steht er in 
"<>", die natürlich beim Eintippen weggelassen werden müssen. Eine 
Sekundäradresse ist ein Wert zwischen O und 255, der bei Bedarf mit auf den 
Bus gesendet werden kann, um das angeschlossene Gerät in eine bestimmte 
Betriebsart zu versetzen oder Parameter eines Peripheriegeräts zu verändern. 
Beim Drucker kann beispielsweise mit Sekundäradressen zwischen normalem 
Druck und tabellarischem Druck umgeschaltet werden. Wird die Sekun- 
däradresse weggelassen, setzt der Computer automatisch die Null. Die 
Verwendung dieses Wertes wird im Laufe der Arbeit mit der Floppy noch 
klarer werden. An dieser Stelle sei nur erwähnt, daß Sie die Sekundäradresse 
bei LOAD oder SAVE generell weglassen können, wenn Sie mit BASIC- 
Programmen arbeiten, die in den BASIC-Speicher geschrieben werden sollen 
(also wie in unserem Beispiel). Arbeiten Sie hingegen mit 
Maschinenprogrammen, die nicht im BASIC-Speicher des Computers sondern 
an irgendeiner anderen Stelle im Speicher stehen, so ist die Angabe der 
Sekundäradresse 1 unerläßlich. Prinzipiell sollten Sie sich sogar angewöhnen, 
immer mit der Sekundäradresse I zu arbeiten; das ist auf jeden Fall nie 
verkehrt (aber unbequemer, da mehr Tipparbeit zu leisten ist)! 


1.2.4 Das Laden eines Programms von der Diskette 

Im letzten Abschnitt haben wir besprochen, wie ein Programm auf die Diskette geschrieben 
werden kann. Wie bekommt man es aber wieder zurück? 

Den LOAD-Befehl haben Sie schon kennengelernt, wir wollen ihn dennoch einmal im Detail 


betrachten. 


Wenn Sie Ihr Programm wieder in den Speicher des Computers laden wollen, so tippen Sie: 
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LOAD "TEST",8 <RETURN> 








oder 


LOAD "TEST",8,1 <RETURN> 








Was die zweite Möglichkeit angeht, so haben wir ja im letzten Abschnitt erfahren, welchen Sinn 
die Angabe der Sekundäradresse hat. Dieser Sinn betrifft eigentlich nur den LOAD-Befehl, da 
der einfache SAVE-Befehl sowieso nur den BASIC-Speicherbereich auf der Diskette ablegt. In 
unserem Fall und in allen weiteren Fällen gewöhnen Sie sich also beim Laden das obligatorische 
‚3,1 an. Bei SAVE reicht in der Regel immer ‚8. 


Jetzt tippen Sie LIST, und es erscheint: 





10 REM DAS IST EIN TEST 
20 REM DAS IST DAS ENDE DES TESTS 
30 END 









































1.2.5 Fehler beim Diskettenbetrieb 


Wie Sie gesehen haben, ist der Floppybetrieb denkbar einfach. Programme werden mit SAVE 
abgespeichert und mit LOAD wieder in den Computer geladen. Auf einer Diskette haben eine 
Menge Programme Platz. Maximal 144 sind es, je nach Länge der einzelnen Programme. Es 
existieren ja maximal 664 beziehungsweise 1328 freie Blöcke für Programme. 


Beim Floppybetrieb können aber natürlich auch Pannen passieren, weil zum Beispiel ein 
Programm nicht mit dem Namen auf der Diskette steht, mit dem Sie es laden wollen, oder weil 
zum Beispiel die eingelegte Diskette defekt ist. In solchen Fällen hält die Floppy 
Fehlermeldungen bereit, die sich in einem mehr oder minder hektischen Blinken der LED am 
Laufwerk äußern. Die Leuchtdiode blinkt solange weiter, bis ein neuer fehlerfreier Befehl an die 
Floppy geschickt wird. 


Die Floppy hat leider keinen Bildschirm wie der Computer, so daß Sie mit dem Blinken auf 
Fehler hinweisen muß. Was aber viele Anwender nicht wissen, ist, daß die Floppy ein 
vollständiger eigener Computer ist. der eine Unmenge an Fehlermeldungen besitzt. So wie der 
C64 oder der C128 einen SYNTAX ERROR bei Fehlbedienung ausgibt, so kennt auch die 
1570/71 einen SYNTAX ERROR, wenn beispielsweise ein Befehl nicht korrekt eingetippt 
wurde. Diese Fehlermeldungen werden wir im zweiten Kapitel noch ausführlicher besprechen. 


Wichtig ist jetzt Wenn sich die Floppy beim Laden oder Speichern von Programmen "komisch 
benimmt", das heißt, wenn zum Beispiel auf einmal 


24 1 Der Umgang mit der Floppy 1570/71 





ein lautes Rattern hörbar wird und die LED am Laufwerk nicht mehr konstant leuchtet, sondern 
zuerst unregelmäßig flackert und dann in ein konstantes Blinken übergeht, so ist ein Fehler 
aufgetreten, der alle möglichen Ursachen haben kann - auch eine defekte Diskette. Um das Risiko 
solcher Fehler möglichst gering zu halten, kann man nicht oft genug betonen, wie sorgsam man 
mit Disketten umgehen sollte. Auch sollten Sie von wichtigen Programmen stets noch auf einer 
zweiten Diskette eine Sicherheitskopie (backup) anfertigen, die genau das gleiche Programm 
enthält, und diese Sicherheitskopie an einem sicheren Ort verwahren. Fällt nämlich die eine 
Diskette aus, so können Sie auf Ihre Reserve zurückgreifen und ersparen sich unter Umständen 
Ärger und Tipparbeit. 


Das Fehlerblinken kann aber auch auftreten, ohne daß ein Rattern hörbar wird oder daß die 
Floppy überhaupt anläuft. In diesem Fall haben Sie meistens eine falsche Eingabe gemacht, oder 
Sie haben versucht, auf eine schon volle Diskette noch ein Programm zu schreiben. Konnte ein zu 
langes Programm nicht mehr vollständig auf die Diskette geschrieben werden, so wird das im 
Directory zum Beispiel folgendermaßen sichtbar: 






























































0 "TESTDISKETTE 1" TD.2A 
1 "TRST" PRG 
2 "NOCH EIN TEST" PRG 
0 "ZU LANGER TEST" *PRG 
0 BLOCKS FREE. 


Wie Sie sehen, stehen auf dieser Diskette ordnungsgemäß zwei Programme, nämlich TEST und 
NOCH EIN TEST. Das dritte Programm (ZU LANGER TEST), das auf die Diskette geschrieben 
werden sollte, hat die Diskettenkapazität überschritten. Als Kennzeichen dafür blinkt die LED 
der Floppy und vor dem Kürzel PRG steht ein "*". Ein weiteres sicheres Zeichen für diesen 
Fehler sind die Blockangaben 0 BLOCKS FREE. und Null für die Programmlänge. Wie man 
einen solchen "faux pas" wieder behebt, denn schließlich ist im Augenblick die ganze Diskette 
unbrauchbar, das besprechen wir ausführlich im 4. Kapitel. 


Sie sollten sich jetzt schon an den Gedanken gewöhnen, daß wir es bei der 1570 und der 1571 
nicht nur mit einfachen Diskettenlaufwerken zu tun haben. Es handelt sich vielmehr um eigene 
kleine Computer, die fast alle Arbeiten selbständig ausführen können, ohne daß dafür der C64 
oder der Cl28 benötigt würden. Auch verfügen diese Floppystationen über einen erstaunlichen 
Befehlsvorrat, was den Diskettenbetrieb betrifft. 


1.2 Das Laden und Speichern von Programmen 25 





1.2.6 Testen auf korrektes Abspeichern vom Programmen 


Dieser Abschnitt befaßt sich mit dem VERIFY-Befehl, der allerdings seine Bedeutung bei einer 
Floppystation fast verloren hat. Vielleicht gehören auch Sie zu denjenigen Personen, die schon 
einmal mit einem Kassettenrecorder Programme abgespeichert und geladen haben. Dann wissen 
Sie auch, daß der Kassettenbetrieb eine relativ anfällige Angelegenheit ist, bei der öfter Pannen 
auftreten (zum Beispiel wegen eine verstellten Tonkopfes). 


Für diesen Betrieb ist der VERIFY - Befehl unerläßlich, da man mit ihm nachprüfen kann, ob ein 
Programm korrekt abgespeichert wurde. Der Computer vergleicht dabei das abgespeicherte 
Programm direkt mit dem Original im Speicher. 


Für den Betrieb einer Floppystation wird dieser Befehl eigentlich nicht mehr benötigt, da die 
Diskettenspeicherung zum einen eine erheblich sicherere Aufzeichnungsmethode darstellt, als 
eine Recorderaufzeichnung und zum anderen die 1570/71 ein automatisches Verify durchführt, 
das bei jedem SAVE-Befehl jeden geschriebenen Block noch einmal Korrektur liest, bevor der 
nächste geschrieben wird. 


Angewendet wird der VERIFY-Befehl wie der LOAD-Befehl: 





VERIFY"TEST",8 <RETURN> 

















Auch die anzugebenden Parameter sind mit denen des LOAD-Befehls identisch (siehe 1.2.4). 


Ist das abgespeicherte Programm mit dem im Computerspeicher identisch, so meldet sich der 
Computer mit OK, wenn der Vorgang abgeschlossen ist; andernfalls ist ein VERIFY ERROR die 
Folge. 


1.2.7 Das Ändern der Gerätenummer der 1570/71 


Wie wir schon erfahren haben, sendet der Computer bei einem Zugriff auf die Floppy eine 
Nummer auf den Bus, die das Gerät anspricht. Bei unserer Floppy ist das in der Regel die 
Nummer 8, die normalerweise vom Werk voreingestellt ist. 


Nun kann es aber passieren, daß wir uns eine zweite Floppystation anschaffen und diese 
gleichzeitig mit der ersten betreiben wollen. In diesem Fall gäbe es ein Chaos, wenn der 
Computer ein Gerät mit der Nummer 8 ansprechen wollte und es würden zwei Geräte mit der 
Nummer 8 antworten. 
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Für diesen Zweck kann man die Gerätenummern der Floppystationen zwischen 8 und 11 beliebig 
verstellen, wobei der Eingriff bei der 1571 problemlos zu bewältigen ist, während Sie bei der 
1570 unter Umständen Ihre Garantie verlieren. 


Zunächst zur 1571: Hier befinden sich auf der Rückseite (siehe Bild 1.1) Zwei winzige DIP- 
Schalter, die mit einem spitzen Gegenstand erreicht werden können. Diese beiden Schalter stehen 
in der Regel beide oben. Wenn Sie die Gerätenummer umstellen wollen, schalten Sie die Floppy 
aus und stellen sich Ihre Nummer wie folgt ein: 


Schalter links | Schalter rechts | Nummer 





oben oben 8 
unten oben 9 
oben unten 10 
unten unten 11 


Tabelle 1.1 Schalter für Gerätenummer 


Der linke Schalter trägt dabei auch die Nummer 1 und der rechte Schalter die Nummer 2. 


Bei der 1570 müssen Sie von Ihrer Floppystation den Gehäusedeckel abnehmen, um an die 
Schalter heranzukommen. Dazu schalten Sie die Floppystation aus und ziehen den Netzstecker 
heraus! 


Lösen Sie die vier Befestigungsschrauben auf der Unterseite der Floppy und heben den Deckel 
ab. Wenn Sie die Floppy von der Frontseite betrachten, sehen Sie die große viereckige Platine, 
auf deren rechter Seite die beiden Schalter angebracht sind. Die Einstellung dieser Schalter ist 
entsprechend Tabelle 1.1 vorzunehmen. 


Auf diese Weise können Sie also bis zu vier Floppystationen mit den Nummern 8 bis 11 an Ihren 
Computer anschließen. Wenn Sie auf eine Floppystation mit der Nummer 9 zugreifen, dann heißt 
der Befehl zum Laden des Directory natürlich nicht mehr LOAD "5", 8, sondern LOAD "$",9. 


Die weiteren Beispiele in diesem Buch beziehen sich in der Regel auf eine Floppystation mit der 
Nummer 8. 


1.2.8 Das Arbeiten mit der Floppy unter BASIC 7.0 


Wir haben uns bisher mit den Standard befehlen des BASIC 2.0 des Commodore 64 beschäftigt. 
Der Commodore 128 enthält aber das viel leistungsfähigere BASIC 7.0, das auch den 
Diskettenbetrieb stark vereinfacht. 
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Da das BASIC 7.0 für fast jede Floppyanwendung einen eigenen Befehl zur Verfügung stellt, 
wollen wir im 2. Kapitel bei der Besprechung der Floppybefehle immer beide Möglichkeiten der 
Befehlsübergabe betrachten. Dort wird also jeweils die Methodik unter BASIC 2.0, unter BASIC 
7.0 und gegebenenfalls auch für den eingebauten Monitor im Commodore 128 beschrieben. Für 
C64-Besitzer ist jedoch nur das BASIC 2.0 von Bedeutung; es sei denn, sie verfügen über eine 
eigene Befehlserweiterung, die die Befehle des BASIC 4.0 enthält. Dieses BASIC stammt von 
den CBM-Computern der Serien 4000 und 8000 und stellt die leistungsfähigen Floppybefehle 
ebenfalls zur Verfügung (ausgenommen im Monitor). Das 2. Kapitel wird also ein wenig 
tabellarisch aufgebaut und erlaubt so, für jedes Computersystem die richtigen Befehle 
auszuwählen. Wenn im weiteren Verlauf dieses Buches Programme verwendet werden, die 
sowohl auf dem C64 als auch auf dem C128 lauffähig sind, so wird stets das BASIC 2.0 für deren 
Erstellung benutzt. Programme, die nur auf dem Commodore 128 lauffähig sind, werden je nach 
Problemstellung entweder im BASIC 2.0 oder 7.0 geschrieben. 


Achtung! Dieses Buch behandelt die Floppystationen 1570 und 1571 parallel, da sich beide nur 
in geringer Weise unterscheiden. Sind Unterschiede vorhanden, so wird an entsprechender Stelle 
darauf hingewiesen. Generell gilt jedoch: Jeder Befehl, der sich auf zwei Diskettenseiten bezieht 
beziehungsweise die Wahl zwischen der einen (Seite 0) oder der anderen (Seite 1) einer Diskette 
offenläßt, gilt nur für die 1571. Bei der 1570 muß dann immer Seite 0 gewählt werden; ansonsten 
ist eine Fehlermeldung der Floppystationen die Folge. 
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2 Der Befehlssatz der 1570/1571 


Das folgende Kapitel beschreibt die grundlegenden Befehle der 1570/71 für den Diskettenbetrieb. 
Es wird dabei auf die verschiedenen Computersysteme und Anwendungen Rücksicht genommen, 
so daß jeder Anwender die für ihn wichtigen Daten auswählen kann. 

Sie können auf Daten stoßen, die Ihnen noch unverständlich sind, weil diese etwa den 
eingebauten Maschinensprache-Monitor betreffen, den Sie unter Umständen noch nie benutzt 
haben. Wichtig sind für jeden Anwender erst einmal nur die Informationen, die ihn bei seinen 
eigenen Problemen unterstützen. Die anderen Angaben werden ihm später vielleicht eine 
wertvolle Hilfe sein. 

Ein paar der Befehle, die hier aufgeführt werden, haben Sie schon kennengelernt. Dieses Kapitel 
soll jedoch die Rolle eines Nachschlagewerkes übernehmen und Ihnen die Befehle übersichtlich 
darstellen, mit denen Sie am meisten arbeiten werden. 


2.1 Erläuterungen zu den Befehlsbeschreibungen 


Im BASIC 2.0 müssen Sie den Befehl direkt über den seriellen Bus an die Floppy schicken. Dazu 
öffnen Sie einen Kanal mit dem OPEN-Befehl, senden Ihr Kommando mit PRINT# an die 
Floppy und schließen den Kanal mit CLOSE. Was ein Kanal ist und was eigentlich passiert, 
wenn Sie einen Befehl senden, wird später erläutert. Wichtig ist erst einmal, wie ein Befehl unter 
BASIC 2.0 an die Floppy gesendet wird, und das geht folgendermaßen: 


























OPEN 1,8,15 <RETURN> 
PRINT#1l,"...befehL" <RETURN> 
CLOSE 1 <RETURN> 








Also zum Beispiel: 



































OPEN 1,8,15 <RETURN> 
PRINT#1, "N:TESTDISKETTE, ID" <RETURN> 
CLOSE 1 <RETURN> 











Wenn Sie die Zeile mit PRINT# eingetippt haben, wird die Floppy in den meisten Fällen 
anlaufen und den Befehl ausführen. Tippen Sie dann direkt CLOSE ein, so ist der Computer 
solange "weg", bis die Floppy den Befehl 
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beendet hat. In der relativ langen Wartezeit (zum Beispiel beim Formatieren) können vom 
Computer andere Befehle ausgeführt werden, die nichts mit der Floppy zu tun haben. Diese 
Arbeitsweise zeigt recht eindrucksvoll, daß der Computer (nur bei BASIC 2.0; bei BASIC 7.0 
wartet er automatisch auf das Ende des Befehls bei der Floppy) nichts mit dem Formatieren einer 
Diskette und auch einigen anderen Floppybefehlen zu tun hat. Die Floppy arbeitet hierbei 
vollkommen selbständig. 

Im allgemeinen haben Basicbefehle, die die Floppy betreffen, mehrere Parameter. Für diese 
Parameter werden in den Erläuterungen Worte oder Abkürzungen benutzt, die folgende 
Bedeutungen haben: 


Name steht für einen Namen (I bis 16 Zeichen) 

X steht für ein (beliebiges) Zeichen 

file# steht für eine Dateinummer (Ibis 127) 
geräte# steht für die Gerätenummer (in der Regel 8) 
sekundär# steht für die Sekundäradresse (0 bis 255) 
drive# steht für die Laufwerknummer (immer 0) 


Diese Wörter beginnen stets mit kleinen Buchstaben. Steht davor noch ein weiteres Zeichen (zum 
Beispiel: Ugeräte#), so ist das kein Druckfehler: Dieses Zeichen muß eingetippt werden. 
Nachfolgend eine Erklärung solcher Zeichen: 

U Dieses U steht für des englische Wort "unit" und ist im BASIC 7.0 allen Angaben der 
Gerätenummer vorangestellt. Es existiert also nur die Kombination Ugeräte#, wobei Sie dann 
zum Beispiel U8 für die Geräte nummer 8 der Floppy eingeben müssen. 

D Das D steht für "drive" und bezeichnet die Laufwerknummer, die wir bei der Floppy 
ansprechen wollen. In unserem Fall ist diese Nummer immer Null, das heißt, bei der 
Kombination Ddrive# kann nur DO gesetzt werden; es sei denn, Sie betreiben an Ihrem C128 
ein DoppelLaufwerk. Auch das D gibt es nur im BASIC 7.0. 

I Das I steht für "id" oder "identification" und teilt dem Computer mit, daß die beiden 
folgenden Buchstaben als ID für das Formatieren stehen. Dieses I kommt demnach nur beim 
HEADER-Befehl vor. 

Diese Abkürzungen und englischen Ausdrücke sollten Sie sich einprägen. Die Computersprache 

schlechthin ist nun einmal Englisch, und man wird kaum darum herumkommen, sie teilweise 

auch anzuwenden. 
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2.2 Der Befehl zum Formatieren einer Diskette 


Diesen Befehl haben Sie schon im ersten Kapitel kennengelernt. Er hat an dieser Stelle im Buch 
eigentlich gar nichts verloren, da es sich hier um einen der Systembefehle der Floppystation 
handelt. Er ist jedoch von so entscheidender Wichtigkeit, daß er in dieser Aufstellung nicht 
fehlen soll. Die restlichen Systembefehle der 1570/71 werden später dann getrennt erläutert. 


Das Formatieren einer Diskette ist der erste wichtige Zugriff, nachdem eine neue Diskette aus 
ihrer Packung geholt wird. Dieser Vorgang sorgt dafür, daß die Diskette für die Floppystation 
überhaupt erst lesbar wird, bevor wir unser Programm darauf speichern können. Beim 
Formatieren wird unter anderem auch das Inhaltsverzeichnis einer Diskette angelegt, das Sie 
immer über die abgespeicherten Daten und Programme informiert. 


Der Formatierungs-Befehl hat den Namen NEW oder N unter BASIC 2.0 und wird unter BASIC 
7.0 mit der Anweisung HEADER aufgerufen. 


BASIC 7.0 HEADER "name" ‚Ixx, U geräte#,Ddrive# 
BASIC 2.0  "Ndrive#:name,xx" 


Monitor @ geräte#,Ndrive#:name,xx 


Beispiele: 





HEADER "TESTDISKETTE", ITD,U8,DO 
OPEN 1,8,15 

PRINT#1, "NO:TESTDISKETTE, TD" 
c 

@ 




















= 




















‚oSE 1 
8,NO:TESTDISKETTE,TD 
































Oben wurde unter BASIC 2.0 nur der zur Floppy gesendete Befehl dargestellt. Die Anweisungen 
an den Computer, um diesen Befehl an die Floppy zu übertragen, sind dort weggelassen worden. 
Die Beispiele zeigen Ihnen die Verwendung der Angaben noch einmal etwas praxisnäher. 


Die beiden xx in der Befehlstabelle stellen Platzhalter für die Angabe einer 
Diskettenidentifikation (kurz ID) dar. Diese ID muß für jede neu zu formatierende Diskette 
angegeben werden und erlaubt die Unterscheidung der Disketten noch über deren Namen hinaus, 
zum Beispiel durch Titel wie TESTDISKETTE,01, TESTDISKETTE,02, usw.. 
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Wird die ID bei der Formatierung weggelassen, so erzielt man damit einen Effekt, der auch als 
"kurze Formatierung" bekannt ist. Durch die kurze Formatierung wird lediglich das Directory der 
Diskette gelöscht. Das geht natürlich erheblich schneller, als wenn die Diskette insgesamt neu 
formatiert wird. Das funktioniert jedoch nur dann, wenn die Diskette schon einmal auf der 
1570/71 "lang" formatiert wurde. Als Ergebnis der kurzen Formatierung erhält man, wie bei der 
langen Version, ein leeres Directory mit dem neuen Namen. Alle Blöcke sind wieder frei. 


Ein anderes Problem stellt sich im BASIC 7.0, jedoch in Form eines Fehlers des BASIC- 
Interpreters. Es gibt BASIC-Anweisungen, die nur 2 Zeichen lang sind, beziehungsweise mit 2 
Zeichen abgekürzt werden können (IF, ON, GO, Po, Pr,...). Der BASIC-Interpreter versucht nur 
dann nicht, Zeichen als Anweisungen zu erkennen, wenn sie in Anführungszeichen "" oder hinter 
dem REM-BefeHhl stehen. 


Wenn Sie nun den HEADER-Befehl verwenden, müssen Sie bei der Angabe der ID auf diese 
Eigenart des Interpreters Rücksicht nehmen. Die folgende Zeile ruft zum Beispiel einen 
SYNTAX ERROR hervor: 





HEADER "TESTDISKETTE", IFE,U8,DO 





























da das I (für ID) zusammen mit dem nachfolgenden F vom Computer als ein IF-Befehl erkannt 
wird. 


Wollen Sie eine solche ID angeben, so kann der Umweg über das BASIC 2.0 helfen. Hier steht 
der Befehl in Anführungszeichen und Sie können prinzipiell jedes vorhandene Zeichen als ID 
verwenden; sogar Cursor-Steuerzeichen. 


Haben Sie bei BASIC 7.0 alles richtig gemacht, dann kommt die Sicherheitsnachfrage vom 
Computer: ARE YOU SURE? 








Diese im BASIC 2.0 fehlende Einrichtung wird bei allen diskettengefährdenden Befehlen 
verwendet, die unter Umständen wichtige Daten zerstören können. Nach dieser Frage wird nur 
bei der ausdrücklichen Angabe von Y oder YES weitergemacht, sonst wird abgebrochen. Bei 
Verwendung des Header-Befehls innerhalb eines Basic-Programms wird diese Abfrage nicht 
durchgeführt. 


Wird das Formatieren ordnungsgemäß beendet, dann meldet sich der Computer wieder mit 
READY. Ansonsten erfolgt bei BASIC 7.0 die Ausgabe der Meldung BAD DISK und das 
Formatieren wird abgebrochen. Im BASIC 2.0 bleibt die Floppy mit einer blinkenden LED 
stehen. Beiden Fälle bedeuten das gleiche: Die Diskette, die formatiert werden sollte, ist nicht in 
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Ordnung. Ändert sich dieser Sachverhalt nicht nach zwei weiteren Versuchen, so ist entweder der 
Schreib-/Lesekopf der Floppy verstellt oder sie können die Diskette wegwerfen, da sie einen 
Herstellungsfehler aufweist. Im ersten Fall sollten Sie sich mit weiteren Versuchen an anderen 
Disketten von der Richtigkeit der Annahme überzeugen. 


Die Befehlsangabe für den Monitor entspricht von ihrer Verarbeitung her immer der für BASIC 
2.0. Nur BASIC 7.0 ist so komfortabel, daß es über eine spezielle Diskettenbehandlung außer 
dem üblichen Datenaustausch verfügt (Umsetzen der Fehlermeldungen der Floppy, 
Sicherheitsabfragen, Auslesen des Fehlerkanals, usw.). 


2.3 Das Inhaltsverzeichnis der Diskette 


Auch das Directory der Diskette haben wir uns schon einmal angesehen. Hier gibt es jedoch 
grundlegende Unterschiede zwischen BASIC 2.0 und BASIC 7.0. In der Tabelle wird dies 
deutlich: 


BASIC 7.0 DIRECTORY Ddrive# ON Ugeräte#, "x...x" 
CATALOG Ddrive# ON Ugerätef#, "x...x" 


BASIC 2.0 LOAD "$drive#:x...x",geräte# 
Monitor @ geräte#,$drive#:x...x 


Beispiele: 





ECTORY 
ECTORY DO ON U8 

ECTORY DO ON U9, "*=p" 
ECTORY U8 

RECTORY "TEST=U" 

LOAD "$0",8 

LOAD "$0:*=S",8 

LOAD "$0",9 

@8,5$ 

@8,$0:TEST 




















| 





OO0O0O000 























In BASIC 2.0 wird das Inhaltsverzeichnis wie ein Programm (siehe 1.2.2) in den BASIC-Speicher geladen 
und durch LIST angesehen. Alle im Speicher vorhandenen BASIC-Programme werden dadurch jeweils 
gelöscht. Diese sehr ärgerliche Tatsache kann man nur durch ein Programm beheben oder sich eine 
BASIC-Erweiterung zulegen. 
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Im BASIC 7.0 existieren dazu zwei Befehle, die beide jedoch prinzipiell das gleiche tun. Nun, 
warum denn zwei Befehle? Hier hat Commodore darauf Rücksicht genommen, daß es Anwender 
aus sehr unterschiedlichen Kreisen gibt. Die einen nennen das Inhaltsverzeichnis einer Diskette 
Directory, die anderen sprechen von einem Catalog; beide meinen jedoch das gleiche, und so ist 
auch die Syntax dieser beiden Befehle gleich. 


Hier wird das Directory nicht, wie bei LOAD, in den Speicher des Computers geladen, sondern 
lediglich auf dem Bildschirm angezeigt, wobei keine Programme oder Daten verlorengehen. Der 
Vorteil liegt klar auf der Hand: Sie können nach dem Schreiben eines Programms erst einmal auf 
verschiedenen Disketten nachsehen, ob Sie überhaupt noch Platz darauf haben und das Programm 
danach abspeichern. Versuchen Sie so etwas einmal bei BASIC 2.0 (lieber nicht!). 


Der Befehl DIRECTORY ist so nützlich, daß der C128 nach dem Einschalten automatisch die 
Funktionstaste F3 damit belegt hat. Es genügt also ein Tastendruck, und schon erscheint das 
Directory auf dem Bildschirm - ohne Programmverlust. 


Hier sind der Vollständigkeit halber noch einmal ein paar Informationen zum Aussehen eines 
Directory. 


In der ersten Zeile steht nach der Laufwerknummer (bei Einzellaufwerken immer 0) der 
Diskettenname, den Sie beim Formatieren festgelegt haben. Dieser Name steht in 
Anführungszeichen und ist invers (dunkel auf hellem Grund) dargestellt. Danach folgt die 
zweistellige ID der Diskette, wiederum gefolgt von zwei Buchstaben (2A). Diese letzten zwei 
Buchstaben geben das Diskettenformat an, damit man feststellen kann, auf welcher Commodore- 
Floppy die Diskette formatiert wurde (die Commodore 8050 hat beispielsweise die Kennung 2C). 


Danach folgen untereinander die Dateieinträge. Sie beginnen jeweils mit einer Zahl als 
Längenangabe. Danach kommt der Programmname und am Ende der Zeile ein Kürzel für die Art 
der Daten, die auf der Diskette stehen. Für Programme haben wir das Kürzel schon 
kennengelernt: PRG. Insgesamt gibt es davon fünf verschiedene: 


PRG für Programmdateien 
SEQ für sequentielle Datenfiles 
USR für Programmdatenfiles 
REL für relative Datenfiles 


DEL für gelöschte Dateien (wird normalerweise nicht angezeigt) 


2.4 Laden eines Programms 35 





Am Ende des Directory steht jeweils eine Mitteilung, die angibt, wieviel Platz auf der Diskette 
noch frei ist. Maximal sind das 664 (oder 1328) Diskettenblöcke, wobei wir noch erfahren 
werden, was ein Block im einzelnen ist. 


Wie Sie in der Tabelle gesehen haben und auch aus den Beispielen sehen können, kann man dem 
DIRECTORY-Befehl (oder CATALOG-Befehl; das ist egal) noch eine Zeichenkette in 
Anführungszeichen folgen lassen. Das "x...x" soll dabei ausdrücken, daß es sich um eine 
Zeichenkette variabler Länge handeln kann. Diese Zusätze erlauben ein selektives Anzeigen des 
Directory. Wie Sie wissen, können auch noch andere Daten, außer Programmen, auf einer 
Diskette abgelegt werden. Mit dieser Methode ist es nun möglich, zum Beispiel nur die 
Programme auf der Diskette anzuzeigen oder nur die Datenfelder, die mit den Buchstaben 
DATEN beginnen. Wie das im einzelnen funktioniert, das müssen wir später etwas genauer be- 
sprechen, da hier noch einige Sonderfunktionen der Floppy zu beachten sind. 


2.4 Laden eines Programms 


Dieser Befehl erklärt sich eigentlich von selbst. Hier ist die Befehlssyntax: 


BASIC 7.0  DLOAD "name" ‚Ddrive#,Ugeräte# 
RUN "name" ,Ddrive#,Ugeräte# 
BASIC 2.0 LOAD "drive#:name" ‚geräte#,sekundär# 


Monitor L "drive#:name" ,geräte#,xxxx 


xxxx gibt hierbei eine hexadezimale Startadresse an, 
ab der das Programm geladen werden soll. 


Beispiele: 


DLOAD "TEST",DO,U8 

LOAD "PROGRAMM" 

RUN "AUTOSTART",U9 

‚OAD "BASIC-PROGRAMM", 8 
LOAD "0:MASCHINENPRG", 8,1 
, "ASSEMBLER", 8 

‚, "0:BILD",8,12000 





w) 
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Der prinzipielle Unterschied zwischen RUN und DLOAD besteht darin, daß der RUN-Befehl das 
Programm nach dem Laden direkt startet; der DLOAD-Befehl jedoch nicht. 


Wie Sie sehen, kann man im BASIC 7.0 bei DLOAD und RUN keine Sekundäradresse angeben, 
wie das beim LOAD-Befehl möglich ist. 


Wenn der Computer ein Programm auf die Diskette schreibt, dann fügt er außerdem die 
Anfangsadresse des Programms im Speicher dazu. Für ein BASIC- Programm ist das in der 
Regel 2049 ($0801) beim C64 oder 7169 ($ICO1) beim C128. Arbeiten Sie jedoch auch im 
Maschinensprachemonitor, so wollen Sie vielleicht einmal den Speicherbereich von $2000 bis 
$3000 abspeichern. In diesem Fall haben Sie also eine andere Startadresse, als ein BASIC- 
Programm. 


Wenn Sie im BASIC 2.0 keine Sekundäradresse oder die Null angeben, so wird jedes direkt von 
der Diskette geladene Programm an den BASIC-Start gebracht - egal, wo es vor dem 
Abspeichern stand. Im ersten Kapitel erfuhren Sie, warum Sie beim Laden eines Programms 
generell die Sekundäradresse 1 angeben sollten. Hier wird ein Programm an den Platz im 
Speicher eingeladen, den es auch beim Abspeichern innehatte, das heißt, der Computer richtet 
sich jetzt nach der angegebenen Startadresse des Programms. Für ein BASIC-Programm ist diese 
immer $0801 bzw. $1c01; in unserem Beispiel mit dem Maschinensprache-Monitor ist sie $2000. 


In BASIC 7.0 können Sie diese Sekundäradresse beim DLOAD oder RUN-Befehl, wie gesagt, 
nicht angeben. Hier gibt es für das Laden von Programmen in andere Speicherbereiche einen 
speziellen Befehl (BLOAD), den wir in Kapitel 2.7 besprechen werden. 


2.5 Speichern eines Programms 

Den SAVE-Befehl haben wir ebenfalls schon kennengelernt. Hier ist seine 
Syntax: 

BASIC 7.0 DSAVE "name",Ddrive#,Ugeräte# 

BASIC 2.0 SAVE "drive#:name",geräte#,sekundär# 


Monitor S "driveftiname",‚geräte#,xxxx,yyyy 
xxXx gibt hierbei eine hexadezimale Startadresse und yyyy die 
hexadezimale Endadresse plus 1 des Speicherbereichs an, der 
abgespeichert werden soll. 
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Beispiele: 





DSAVE "TEST",DO,U8 

DSAVE "OHNE PARAMETER" 
DSAVE "FLOPPY NR.9",U9 

SAVE "0:TEST",8,1 

SAVE "IN BASIC 2.0",8 

Ss "0:6502 ASS",08,0801,6000 
























































Die Sekundäradresse bei SAVE ist im Gegensatz zu LOAD ohne Belang und kann angegeben 
werden oder auch nicht. Wenn wir vom Monitor einmal absehen, der ohnehin für die Behandlung 
spezieller Speicherbereiche zuständig ist, können mit diesen Befehlen nur BASIC-Programme 
abgespeichert werden. Will man ein BASIC-Programm im Monitor abspeichern, so ist nur die 
Startadresse gleich $1CO1 zu setzen (BASIC-Speicher des C128; der C64 besitzt ja keinen 
eingebauten Monitor). Das Ende hängt von der Länge des BASIC-Programms ab. 


Bei Maschinenprogrammen, die von BASIC aus abgespeichert werden sollen, gibt es in BASIC 
2.0 überhaupt keine Möglichkeit (ohne spezielle Tricks). In BASIC 7.0 gibt es dafür den 
BSAVE-Befehl, den wir im Kapitel 2.8 besprechen. 


2.6 Prüfen auf fehlerfreies Abspeichern 


Der VERIFY-Befehl wird bei einer Floppy zwar nicht benötigt, der Vollständigkeit halber ist hier 
jedoch seine Syntax: 


BASIC 7.0 DVERIFY "name",Ddrive#,Ugeräte# 
BASIC 2.0 VERIFY "drive#:name",geräte#,sekundär# 


Monitor V "drive#:name",geräte# 


Beispiele: 








DVERIFY "FEHLER?",DO,U8 
DVERIFY "TEST" 
VERIFY "PRÜFUNG", 8 

V "AUCH IM MONITOR", 8 
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Dieser Befehl dient der Prüfung, ob ein Programm richtig abgespeichert wurde. Hierbei wird das 
Original im Speicher direkt mit dem Disketteninhalt verglichen. Ist alles on Ordnung, wird OK 
ausgegeben; ansonsten ist ein VERIFY ERROR die Folge. 


Der Befehl stellt eigentlich ein Relikt aus der Zeit der Datasette dar, bei der eine 
Datenspeicherung oft mit sehr hoher Fehleranfälligkeit verbunden war. Floppystationen 
benötigen den Befehl nicht mehr, da sie erstens sehr sicher aufzeichnen und zweitens bei jedem 
Speichervorgang ein automatisches VERIFY durchführen. 


2.7 Laden eines Maschinenprogramms 


Dieser Befehl behandelt das Laden von Programmen, die nicht im 
Speicherbereich des BASIC-Interpreters stehen. 


BASIC 7.0 BLOAD "name",‚Ddrive#,Ugeräte#, ON Bxx,Pyyyyy 


xx bedeutet die Nummer der Speicherbank, in die das 
Programm geladen werden soll (0 bis 15). 

yyyyy gibt die dezimale Adresse an, ab der das Programm 
abgelegt werden soll (0 bis 65535). 


BASIC 2.0 LOAD "drive#:name",geräte#,l 


Monitor L "drive#:name" ‚geräte#,xxxxx 


XXXXX gibt hierbei eine hexadezimale Adresse an, ab der 
geladen werden soll. 


Beispiele: 





BLOAD "ASSEMBLER",DO,U8,ON B1,P2049 
BLOAD "SOURCE CODE",ON B1,P8192 

LOAD "MASCHINE",9, 
‚ "0:TEST",0,008001 






























































Den BLOAD-Befehl gibt es in dieser Form nicht im BASIC 2.0. Er erlaubt das Laden von 
Programmen an eine beliebige andere Stelle als die Originaladresse, mit der sie abgespeichert 
wurden. 
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2.8 Speichern eines Maschinenprogramms 


Analog zum BLOAD-Befehl gibt es BSAVE, um Graphikbilder oder Maschinenprogramme sogar von 
BASIC aus abspeichern zu können. 


BASIC 7.0  BSAVE "name",Ddrive#,Ugeräte#, ON Bxx,Pyyyyy TO Pzzzzz 


xx steht für die Nummer der Speicherbank (0 - 15) und yyyyy 
und zzzzz jeweils für Startadresse und Endadresse plus 1 des 
Programms (dezimal). 


BASIC 2.0 Befehl existiert nicht in BASIC 2.0 


Monitor S "drivef#finame",‚geräte# xxxxx,yyyyy 


xxxxx bedeutet die Startadresse und yyyyy die Endadresse plus 1 
(hexadezimal) des Programms. 


Beispiele: 





BSAVE "ZEICHEN",DO,U8,ON B1,P8192,P16384 
BSAVE "PROGRAMM", ON B1,P4096 
S "0:TEST",8,12000,14000 
































Will man Speicherbereiche in BASIC 2.0 abspeichern, so ist dazu entweder eine 
Befehlserweiterung oder ein Maschinensprache-Monitor notwendig. 


2.9 Abfragen der Floppy-Fehlermeldungen 


Es wurde schon einmal darauf hingewiesen, daß die Commodore-Floppystationen mehr als nur 
einfache Massenspeicher sind. Das Besondere an ihnen ist zum Beispiel der große Vorrat an 
Fehlermeldungen. (Eine Liste befindet sich im Anhang dieses Buches.) Diese Fehlermeldungen 
können vom Benutzer abgefragt werden. 


BASIC 7.0 PRINT DSS$ für die Fehlermeldung 
PRINT DS für die Fehlernummer 

BASIC 2.0 10 OPEN 1,geräte#,15 
20 GET#1,A$: PRINT A$: IF ST <> 64 THEN 20 
30 CLOSE 1 

Monitor @gerätet# 
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Wenn die Floppy eine Fehlermeldung für Sie bereitgestellt hat, dann erkennen Sie das am 
Blinken der LED am Laufwerk. Sobald die Fehlermeldung abgeholt oder ein neuer Befehl zur 
Floppy geschickt wird, erlischt die LED. 


Diese Fehlermeldungen sind für Programme mit intensiver Diskettenbenutzung außerordentlich 
wichtig, so daß das BASIC 7.0 extra zwei Variablen dafür reserviert hat: DS und DS$. 


DS enthält stets die Nummer der letzten aufgetretenen Meldung (das muß keine Fehlermeldung 
sein). DS$ enthält darüberhinaus den gesamten String der Rückmeldung der Floppystation 
(inklusive der Rückmeldungsnummer). 


Ist die Nummer der Rückmeldung kleiner als 2, so handelt es sich grundsätzlich um keine 
Fehlermeldung sondern um eine Statusanzeige der Floppystation. Eine Null bedeutet zum 
Beispiel die Meldung 00, OK,00,00, was soviel wie "Alles in Ordnung" bedeutet. Diese Meldung 
wird immer dann ausgegeben, wenn ein Befehl ordnungsgemäß, ohne Fehler, ausgeführt wurde. 


Die Rückmeldung mit der Nummer 1 hat eine besondere Bedeutung beim SCRATCH-Befehl, der 
uns später interessieren wird. 


In BASIC 2.0 ist die Handhabung dieser Rückmeldung nicht so einfach. Hier muß extra ein 
Programm geschrieben werden, das die Rückmeldung abholt und auf dem Bildschirm ausgibt. 
Bemerkenswert ist hier die Verwendung der ST-(Status)-Variablen. Diese Variable ist 
gewissermaßen eine Überwachungsvariable für den gesamten "Verkehr" zwischen Computer und 
Peripherie. Sie enthält den Wert eines Bytes, dessen Bits folgende Bedeutung haben, wenn sie 
gesetzt, das heißt auf "1" sind: 


Bit O Time-Out beim Schreiben von Daten 

Bit 1 Time-Out beim Lesen von Daten 

Bit 2 Block beim Laden zu kurz (nur Kassette) 
Bit 3 Block beim Laden zu lang (nur Kassette) 
Bit 4 Fehler beim Lesen (nur Kassette) 

Bit 5 Fehler in Prüfsumme (nur Kassette) 

Bit 6 letztes Datenbyte übertragen (EOD) 

Bit 7 keine weitere Übertragung mehr (EOT) 


Deshalb kann unser Programm auch feststellen, wann kein Byte von der Floppy mehr ankommt. 
Das ist notwendig, da die Rückmeldung unterschiedlich lang sein kann. Bei der Übertragung des 
letzten Bytes gibt die Floppy außerdem ein EOI-Signal (end of information) an den Computer 
aus, und der setzt dann das Bit 6 im Statusbyte (ergibt den Wert 64). 
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Nun haben Sie also den grundsätzlichen Befehlssatz der 1570/71 kennengelernt. Diese Befehle 
sind nur ein kleiner Teil dessen, was die Floppy noch alles kann. Sie erlauben Ihnen aber schon 
die einfache Arbeit mit der Floppystation: Das Laden und Speichern von Programmen. Da die 
Commodore-Floppies aber noch um einiges mehr beherrschen als nur das Laden und Speichern 
von Programmen, wollen wir uns als nächstes ein bißchen mehr mit den Interna und wichtigen 
Begriffen in der Verbindung zwischen Floppy und Computer beschäftigen. Einige dieser Dinge 
haben Sie bewußt oder unbewußt schon angewendet. 
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3 Informationen zum Arbeiten mit der 1570/71 


Dieses Kapitel bringt nun gewissermaßen die ersten Voraussetzungen für ein effektiveres 
Arbeiten mit der Floppystation. Sie werden etwas über den grundsätzlichen Aufbau von 
Disketten, über unterschiedliche Diskettenformate und über die Kommunikation zwischen dem 
Computer und der Floppy erfahren. 


3.1 Der Aufbau einer formatierten Diskette 


Im Laufe dieses Buches haben Sie schon einiges über das Formatieren gehört, jedoch noch nichts 
darüber erfahren, was dieser Vorgang eigentlich mit den Disketten macht. 


Wenn Sie sich eine neue, unbespielte Compactkassette auf Ihrer Stereoanlage anhören, dann 
hören Sie im ersten Moment gar nichts. Wenn Sie lauter aufdrehen, können Sie vielleicht ein 
Rauschen vernehmen: Das ist gewissermaßen der Leerinhalt der Kassette. 


Bei einem Kassettenrecorder kann man auf eine neue Kassette direkt Musik aufzeichnen, ohne 
daß dafür irgendwelche Vorkehrungen notwendig wären. Bei einer Diskette sieht das anders aus, 
und zwar aus folgenden Gründen: 


Sie können davon ausgehen, daß auch eine Diskette einen ähnlichen "Leerinhalt" aufweist wie 
eine Compactkassette. Nun arbeitet eine Floppystation jedoch nicht analog, sondern digital. Das 
bedeutet, daß eine Floppy nur zwischen zwei Signalen auf der Diskette unterscheiden kann: 
entweder High-Pegel oder Low-Pegel. Auch der Lese-Schreibverstärker in der Floppy ist darauf 
ausgelegt. Bei einem Kassettenrecorder wird einfach verstärkt und weitergegeben, was vom Band 
kommt; egal, was das ist. Bei einer Floppy wird nur nach gültigen Pegeln - entweder High-(1)- 
Pegel oder Low-(O)-Pegel - gesucht, und diese Pegel werden in eine Folge von Bits umgewandelt 
(entweder kommt ein Bit=1 oder ein Bit=0). 


Wenn Sie einer Floppy nun eine neue Diskette "servieren", so kann die Elektronik in der Floppy 
und auch das Betriebssystem im ROM der Floppystation (DOS oder Disk Operating System) mit 
dem darauf vorhandenen "Rauschen" nicht viel anfangen. Eine Floppystation ist auf das Vorhan- 
densein von gewissem Markierungen auf der Diskette angewiesen. Durch unterschiedliche Art 
und Ausführung der Markierungen entstehen verschiedene Diskettenformate. Hier ist das Wort 
Format schon enthalten, 
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denn das bedeutet letztendlich nichts anderes, als das Aufbringen eines Diskettenformates auf die 
Diskette. 


3.1.1 Spuren oder Tracks 


Wie Sie wissen, enthält eine herkömmliche Schallplatte spiralförmig angeordneten Rillen. Diese 

Rillen (oder Spuren) haben zwei Funktionen: 

l. sie enthalten die Musikinformation und 

2. sie führen den Tonarm des Spielers immer weiter nach innen, zur jeweils folgenden 
Information. 


Hätte also eine Schallplatte nicht diese Rillen, so würde der Plattenspieler hoffnungslos verwirrt 
werden, da er keine Führung zur nächsten Musikinformation mehr hätte. 





SPUR 35 


N SPUR 1816 
1 EN 


Bild 3.1 Aufbau einer formatierten Diskette 


SPUR 1 


Einer Floppystation geht es genauso, wenn man ihr eine unformatierte Diskette einlegt. Auch sie 
ist auf eine gewisse Art von Rillen angewiesen, die es ihr gestatten, die jeweilige Position des 
Lese- /Schreibkopfes auf der Diskettenscheibe festzustellen. Der Unterschied zu den Rillen auf 
der 
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Schallplatte ist dabei folgender: Erstens sind es keine echten Rillen sondern nur magnetische 
Signale, die aufgebracht werden, und zweitens sind diese "Rillen" nicht spiralförmig angeordnet, 
sondern bestehen aus konzentrischen Ringen um den Diskettenmittelpunkt (siehe Bild 3.1). Diese 
Ringe nennt man bei der Floppystation Spuren oder man bezeichnet sie auch oft mit dem 
englischen Ausdruck Tracks. 


Die Floppystationen 1570 und 1571 arbeiten dabei mit maximal 40 solcher Spuren pro 
Diskettenseite: Ganz außen liegt dabei Spur O und ganz innen liegt Spur 39. Floppystationen mit 
maximal 40 Spuren auf einer Seite schreiben meistens mit einfacher Dichte (single density); das 
kann aber auch noch von anderen Faktoren abhängen. Es gibt jedoch Floppystationen, die bis zu 
80 Spuren auf einer Diskettenseite verarbeiten. Hier handelt es sich in jedem Fall um Laufwerke 
mit doppelter Schreibdichte (double density). 


Da die Spuren untereinander in keiner Verbindung stehen, muß der Schreib-/Lesekopf der Floppy 
immer um ein kleines Stück nach innen oder nach außen auf der Diskette bewegt werden, wenn 
er auf die nächste Spur zugreifen will. Für diesen Zweck hat die Floppy noch einen zweiten 
Motor, außer dem, der die Diskette dreht. Dieser Motor ist in der Lage, sehr winzige, ruckartige 
Drehungen zu machen. Er wird daher Schritt- oder Steppermotor genannt. Er ist für die 
Positionierung des Schreib-/Lesekopfes auf jede Spur der Diskette zuständig und kann diese 
Aufgabe mit erstaunlicher Präzision lösen. 


Wenn Sie eine Diskette formatieren, dann hören Sie in der Regel in schneller Folge ein Klicken 
aus der Floppystation. Mit jedem Klicken rückt der Schrittmotor den Schreib-/Lesekopf um eine 
Spur weiter in Richtung Diskettenmitte, um die Formatierung aufzubringen. Wenn Sie ein etwas 
länger dauerndes Schnarren hören, dann ist das der Steppermotor, wenn er den Kopf über 
mehrere Spuren hintereinander bewegt. 


Die erste Grundvoraussetzung für das Arbeiten mit einer Diskette ist damit geschaffen. Sie 
verfügen nun über eine Diskette, die so magnetisiert ist. daß die Floppy immer weiß, auf welcher 
Spur sich der Schreib- /Lesekopf gerade befindet und auch dementsprechend den Kopf auf eine 
andere gewünschte Spur bewegen kann. 


3.1.2 Die Sektoren auf einer Diskette 


Jetzt haben wir unsere Diskette zwar in Spuren unterteilt. geholfen ist uns aber damit im 
Endeffekt wenig. Da eine Spur eine sehr große Speicherkapazität besitzt, ist es sinnvoll, eine 
Diskette in noch kleinere Einheiten zu zerlegen, auf die noch schneller und genauer zugegriffen 
werden kann. 
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Zu diesem Zweck benutzt man Sektoren. Jede Spur einer Diskette besitzt noch eine gewisse 
Anzahl von Sektoren, die auf der Diskette vorerst die kleinste einzeln ansprechbare Einheit 
darstellen. 


Nehmen wir einmal Spur 1 einer Diskette. Im Commodore-Diskettenformat, das auch als GCR- 
Format bezeichnet wird, besteht dieser Spur wiederum aus 21 Sektoren. Diese Sektoren sind von 
0 bis 20 durchnummeriert. Bei Commodore wurde festgelegt, daß ein Sektor immer genau 256 
Bytes an Daten aufnehmen kann. Das entspricht gerade einer Speicherseite im Computer (zum 
Beispiel dem Bereich $0000 bis $00ff, der Zeropage). 


Eine Einheit von 256 Datenbytes wird oft auch als Block bezeichnet. Sie sollten sich daher nicht 
durcheinanderbringen lassen, wenn im Commodore-Format von Blöcken die Rede ist, obwohl 
Sektoren gemeint sind. 


Wie Sie sehen, kann man nun auf alle 256-Byte-Einheiten der Diskette gezielt zugreifen. Es 
reicht die Angabe der Spur- und der Sektornummer, und schon weiß die Floppy, wo die 
entsprechenden Daten stehen. Zum Beispiel ist eine Angabe wie 1,18 üblich. An erster Stelle 
steht die Spurnummer und hinter dem Komma die entsprechende Sektornummer. In unserem 
Beispiel soll also ein Zugriff auf Spur 1 Sektor 18 stattfinden. 


Wenn im Commodore-Format 256 Bytes als Sektorgröße üblich sind, so gilt das noch lange nicht 
für die anderen Diskettenformate, die es sonst noch gibt. In der Regel beschränkt man sich bei 
der Herstellung einer Floppystation auf das eigene, spezifische Format. Bei der 1570/71 ist das 
jedoch anders. Diese Floppystation kann auch noch andere Formate lesen und sogar schreiben, 
wodurch dem Benutzer der Zugriff auf fast alle bekannten Diskettenformate gestattet wird. Bei 
diesen anderen Formaten kann sowohl die Anzahl der Spuren als auch die Sektoranzahl stark 
voneinander abweichen. 


Es gibt zum Beispiel Formate, die besitzen nur noch 5 Sektoren auf einer Spur, dafür enthält aber 
jeder Sektor 1024 Bytes. 


Commodore verwendet in seinem Format nur die Spuren 1 bis 35; andere Hersteller nutzen alle 
möglichen Spuren von O bis 39 für ihr Format aus und beschreiben jede Spur mit Sektoren der 
Größe von 512 Byte. 


Um Ihnen das Verständnis dieser doch ziemlich verworrenen Tatsachen zu erleichtern, wollen 
wir uns gleich einmal ein bißehen genauer das Commodore GCR-Format betrachten und uns 
ansehen, wie eine Diskette darin aufgebaut ist. 
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3.2 Das Commodore GCR-Format 


Wie Sie schon im letzten Abschnitt erfahren haben, benutzt Commodore für sein Format nur die 
Spuren 1 bis 35 auf einer Seite der Diskette. Bei der doppelseitigen 1571 wird auch die zweite 
Seite verwendet. Die hier vorhanden Spuren (1 bis 35) werden dann einfach mit 36 bis 70 
durchnummeriert, so daß auch bei der zweiseitigen Diskette die Angabe einer Spur- und einer 
Sektornummer genügt, um jede Spur und jeden Sektor einer Diskette zu erreichen. 


Commodore verwendet, wie schon erwähnt, immer Sektoren, die 256 Datenbytes enthalten. 
Diese Sektoren werden von Commodore auch als Blöcke (blocks) bezeichnet. 


Da das Commodore-Diskettenformat sehr flexibel ist, sind Disketten auf eine Art und Weise 
aufgebaut, die man woanders in der Regel nicht findet. So nimmt zum Beispiel die Anzahl der 
Sektoren von außen nach innen (also von Spur 1 bis Spur 35) ab, da der Durchmesser der 
Diskette kleiner wird. Die folgende Tabelle zeigt die genauen Zahlen: 


Spur Ol bis 17_ 21 Sektoren 
Spur 18 bis24 19 Sektoren 
Spur 25 bis 30 18 Sektoren 
Spur 31 bis35 17 Sektoren 
Spur 36 bis 52 21 Sektoren (nur 1571) 
Spur 53 bis 59 19 Sektoren (nur 1571) 
Spur 60 bis 65 18 Sektoren (nur 1571) 
Spur 66 bis 70 17 Sektoren (nur 1571) 


Tabelle 3.1 Anzahl der Sektoren pro Spur im GCR-Format 


Die Spuren 36 bis 70 entsprechen den Spuren 1 bis 35 auf der ersten Seite (Seite 0) der Diskette 
und haben dementsprechend die gleichen Sektorzahlen. Die 1571 errechnet also intern die 
Position für ihren Schreib-/Lesekopf auf der anderen Seite (1) der Diskette dadurch, daß sie 
einfach von der Spurnummer 35 subtrahiert. Spur 53 auf der Diskette ist also nichts anderes, als 
Spur 18 auf Seite 1. 


An dieser Stelle sei auf die Zählweise eingegangen, wie sie beim Computer üblich ist. Ein 
Computer zählt nicht von 1 an, sondern er benutzt die 0 als erste Zahl. Wenn wir also 21 
Sektoren auf einer Spur haben, so sind das die Sektoren von O bis 20. Auch die erste Seite einer 
Diskette (Vorderseite) ist grundsätzlich Seite 0, die andere Seite demnach Seite 1 (Rückseite). 


Bei den Spuren im Commodore-Format verhält es sich genauso, obwohl wir von Spur 1 bis 35 
zählen. In Wirklichkeit besteht das Commodore-Format 
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nämlich aus 36 Spuren (0 bis 35). Die Spur O wird lediglich nicht beschrieben, da sie als 
Anschlagpunkt für den Schreib-jLesekopf definiert ist. 


3.2.1 Die Diskettenorganisation im Commodore-Format 


Nachdem Sie nun wissen, wie eine Diskette aufgeteilt ist, heißt das noch lange nicht, daß auch 
deutlich wird, warum eine Floppy so schnell und effektiv arbeitet. Wir wollen uns deshalb in 
diesem Abschnitt mit der Organisation der Diskette ein wenig genauer beschäftigen. 


3.2.1.1 Das Directory der Diskette 


Können Sie sich noch an Kapitel 1 und 2 erinnern? Wir haben dort etwas über das 
Inhaltsverzeichnis, das Directory, einer Diskette erfahren. 


Wenn Sie nach Tabelle 3.1 alle Sektoren auf einer Diskette zusammenzählen, dann müßten Sie 
auf eine Anzahl von 683 beziehungsweise 1366 Sektoren pro Diskette kommen. Das ist die 
theoretische Gesamtkapazität einer Diskette im Commodore-1570/71-Format. Wollen Sie die 
Anzahl der möglichen Bytes ermitteln, so brauchen Sie diese Anzahl einfach nur mal 256 (ein 
Sektor hat 256 Bytes) zu nehmen, und Sie erhalten 163328 beziehungsweise 326656 BYTES 
FREE für Ihre Disketten. 


Das entspricht jedoch nicht ganz der Wahrheit. Formatieren Sie sich einmal eine Diskette, und 
sehen Sie sich dann das Inhaltsverzeichnis an. Sie lesen die Meldung 664 BLOCKS FREE 
beziehungsweise 1328 BLOCKS FREE. Wie Sie wissen, entspricht im Commodore-Format ein 
Block gleich einem Sektorinhalt, so daß Sie sich fragen müssen, wo denn die restlichen 19 (38) 
Sektoren geblieben sind. 


Die Antwort ist einfach. Für die Organisation einer Diskette benötigt das Betriebssystem der 
Floppy (DOS) einen gewissen Teil der Diskette als eigenen reservierten Arbeitsbereich. In 
diesem Bereich - es ist jeweils Spur 18 beziehungsweise Spur 18 und 53 einer Diskette - stehen 
unter anderem das Directory der Diskette und die BAM, die wir im nächsten Abschnitt be- 
sprechen. 


Wenn Sie also ein Programm auf eine Diskette schreiben, so wird der Programmname in das 
Directory auf Spur 18 eingetragen (und noch ein paar zusätzliche Informationen), dann wird das 
Programm auf den Rest der Diskette geschrieben. Wie das genau aussieht, erfahren Sie ab 
Abschnitt 3.2.2. 


Das Directory kann bis zu 144 Dateinamen unterbringen und benötigt deshalb eine Menge Platz. 
Auf Spur 18 werden deshalb allein die Sektoren I bis 18 für das Directory benötigt. 
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3.2.1.2 Die BAM der Diskette 


Das Kürzel BAM steht für den englischen Ausdruck "block availability map", was übersetzt etwa 
Blockbelegungsplan heißt. Die BAM, die den Sektor 0 auf Spur 18 (beziehungsweise auf Spur 18 
und 53) belegt, gibt Auskunft über das Vorhandensein von freien und belegten Blöcken der 
Diskette. 


Die ganze Angelegenheit funktioniert dabei folgendermaßen: In der BAM ist für jeden Block auf 
der Diskette ein Bit reserviert. Steht dieses Bit auf logisch 1, so ist der entsprechende 
Block/Sektor frei. Wird nun ein Programm auf die Diskette geschrieben, so belegt dieses 
natürlich einen oder mehrere Diskettenblöcke. Damit das DOS nun weiß, welche der Blöcke auf 
einer Diskette belegt sind, werden diese Blöcke in der BAM entsprechend gekennzeichnet; das 
entsprechende Bit wird auf O gesetzt. 


Durch diese Methode weiß das DOS also bei einem nächsten Diskettenzugriff, daß der 
entsprechende Sektor mit einem Programm oder mit Daten belegt ist und sucht für das neue 
Programm andere Sektoren, die noch frei sind. 


Jetzt werden Sie auch die Angaben im Directory verstehen. BLOCKS FREE gibt an, wie viele 
Blöcke/Sektoren der Diskette noch nicht als belegt gekennzeichnet wurden, und die Zahl vor 
jedem Programmnamen gibt die Länge dieses Programms in Blöcken/Sektoren auf der Diskette 
an. Addieren Sie alle Zahlen vor den Programmnamen mit dem BLOCKS FREE- Wert, so 
müßten Sie auf die Maximalzahl der freien Blöcke der Diskette (664 oder 1328) kommen. 


Diese Bemerkungen zum Commodore-Diskettenformat sollen für den Augenblick genügen. Wir 
werden eine Diskette natürlich später noch ganz genau unter die Lupe nehmen. Damit das jedoch 
überhaupt möglich ist, müssen wir uns erst einmal überlegen, wie man mit einer Floppystation 
kommuniziert. 


3.3 Kommunikation mit der 1570/1571 


Wir haben im Laufe dieses Buches schon ein paar Mal Zugriffe auf die Diskette vorgenommen. 
Diese Zugriffe bestanden aber jedesmal aus einem ganzen Komplex von Operationen, die der 
Computer nach dem Eingeben des Befehls selbsttätig durchgeführt hat (zum Beispiel LOAD). 


Uns soll jetzt interessieren, wie die Kommunikation zwischen Computer und Floppy auf 
niedrigerer Ebene möglich ist. Wie sendet man zum Bei- 
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spiel nur einzelne Bytes zur Floppy, oder wie legt man Daten auf einer Diskette ab. 


3.3.1 Der Kommandokanal 


Im Laufe des ersten Kapitels haben Sie schon ein wenig über die Verbindung zwischen Floppy 
und Computer, den seriellen Bus, erfahren. Der Computer muß eine Geräteadresse über diesen 
Bus schicken, um das gewünschte Gerät (Floppy, Drucker, usw.) anzusprechen. 


Wurde also diese Geräteadresse über den Bus gesendet, dann muß man der Floppy noch 
mitteilen, was es zu tun gibt. Wir müssen an die Floppy zum Beispiel einen Befehl schicken, der 
besagt, daß das Inhaltsverzeichnis einer Diskette gelesen oder daß ein Programm geladen werden 
soll. 


Zu diesem Zweck verwenden wir den sogenannten Kommandokanal. Die Floppy verfügt intern 
über 16 verschiedene Kanäle, die man mit verschiedenen Gängen vergleichen kann, wie in einem 
großen Gebäude. Jeder dieser Kanäle hat dabei eine bestimmte Funktion. Die einen sind dafür zu- 
ständig, daß Daten gelesen werden, die anderen sorgen dafür, daß ein Programm von der Diskette 
geladen wird und wieder andere besorgen das Schreiben eines Programms auf die Diskette. 


Bei der 1570/1571 ist es so organisiert, daß der Kanal Nummer O grundsätzlich für das Laden 
eines Programms verantwortlich ist. Spricht der Computer also Kanal O0 an, so "weiß" die Floppy, 
daß jetzt ein Programm geladen werden soll. Sie fordert vom Computer dann nur noch den Pro- 
grammnamen an und schickt ihm daraufhin jedes Byte dieses Programms zu. 


Kanal Nummer 1 ist für das Speichern eines Programms zuständig. Eröffnet der Computer eine 
Leitung für Kanal 1, so erwartet die Floppy zunächst den Programmnamen, der dann ins 
Directory geschrieben wird. Danach holt sie sich vom Computer Byte für Byte des betreffenden 
Programms und schreibt diese in die einzelnen Sektoren der Diskette. 


Die Kanäle Nummer 2 bis 14 sind für den Benutzer reserviert, das heißt, hier kann der Benutzer 
bestimmen, was er mit diesen Kanälen anfangen will. Wir werden bald lernen, wie wir auch diese 
Kanäle zum "Rauchen" bringen. 


Der Kanal 15, der uns schon in der Überschrift dieses Abschnittes vorgestellt wurde, ist der 
sogenannte Kommandokanal. Da die Floppy über eine Vielzahl von Befehlen verfügt, muß ihr 
irgendwie mitgeteilt werden, welchen Befehl sie auszuführen hat. Bei LOAD und SAVE ist das 
nicht not- 
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wendig. Hier reicht es, wenn der Computer einfach einen Dateinamen über Kanal 0 oder 1 
schickt, und schon "weiß" die Floppy, daß entweder ein Programm geladen oder gespeichert 
werden soll. 


3.3.2 Die Verwendung des Kommandokanals 


Sie sollen jetzt natürlich erfahren, wie man denn nun an die vielen Befehle der Floppy 
herankommt; wie man sie an die Floppy schickt und vor allem, welcher Art die Befehle 
überhaupt sind. 


Betrachten wir zuerst das Senden von Befehlen an die Floppy. Rufen Sie sich einmal das 
Formatieren einer Diskette ins Gedächtnis zurück, wie es unter BASIC 2.0 stattfindet: 


OPEN 1,8,15 
PRINT#1, "NO:TESTDISKETTE, TD" 
CLOSE 












































Wenn man den OPEN-Befehl verwendet, so gibt man zuerst eine Dateinummer an. Diese 
Nummer hat nur für den Computer eine Bedeutung und dient computerintern zur Organisation 
von mehreren offenen Dateien. Der Computer muß ja wissen, welche Datei gemeint ist, wenn 
man mehrere geöffnet hat. In unserem Fall ist das eine Datei mit der Nummer 1. und wie Sie 
sehen, werden auch über diese Nummer entsprechend (PRINT#1), Daten zur Floppy gesendet. 


Die zweite Angabe kennen Sie schon: Es ist die Gerätenummer des Geräts. daß Sie ansprechen 
wollen. In unserem Fall die Floppy mit der Nummer 8. 


Die dritte Angabe, und jetzt wird's interessant, ist die Sekundäradresse oder Kanalnummer. Diese 
dritte Angabe hat nun mit dem Computer nichts mehr zu tun, sondern sie wird direkt an das Gerät 
geschickt, das wir angesprochen haben. Es wurde in Kapitel 1 schon erwähnt, daß die 
Sekundäradresse (oder Kanalnummer) in der Regel Steuerfunktionen hat, um ein bestimmtes 
Gerät in bestimmte Betriebsarten zu versetzen. So ist es z.B. bei der Floppy. 


Die Angabe der Sekundäradresse im OPEN-Befehl ist beim Umgang mit Floppies immer 
zwingend erforderlich, da hiermit der entsprechende Kanal für die Bearbeitung ausgewählt wird. 
In unserem Fall - beim Schicken eines Befehls zur Floppy - ist das natürlich der Kommandokanal 
mit der Nummer 15. 


Außer dem Senden von Befehlen zur Floppy können wir über den Kommandokanal aber auch 
etwas empfangen: 
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10 OPEN 1,8,15 
20 GET#1,A$: PRINT A$;: IF ST<>64 THEN 20 
30 CLOSE 1 























Wie Sie sehen, gibt die Floppy über den Kommandokanal auch eine Status- oder Fehlermeldung 
heraus. Wenn Sie nicht in BASIC 7.0 arbeiten, ist es ein Kinderspiel, einen Befehl zur Floppy zu 
senden, dessen Ausführung abzuwarten und schließlich nachzusehen, ob alles zur Zufriedenheit 
erledigt wurde. Zum Beispiel beim Formatieren einer Diskette: 




































































10 OPEN 1,8,15 :REM Kommandokanal öffnen 

20 PRINT#1, "NO:DISKETTENNAME, DN" :REM Befehl senden 
30 GET#1,AS :REM Rück_eldung holen 

40 PRINT AS; :REM Zeichen auf Bildschirm 

50 IF ST<>64 THEN 30 :REM Ende der Meldung abwarten 





























60 CLOSE 1 :REM Kanal schließen 











Wir können also direkt nach dem Senden eines Kommandos den Status der Floppy abfragen. 
Dauert der Befehl eine Weile, so hält der Computer beim Holen der Rückmeldung solange an, bis 
die Floppy den Befehl ausgeführt hat und die Meldung herausgibt. Hat bei unserem Programm 
alles einwandfrei funktioniert, so muß auf Ihrem Bildschirm die Meldung 


00, OK,00,00 
READY 





erscheinen. Ist ein Fehler aufgetreten, so Kann dort zum Beispiel stehen: 





24, READ ERROR, 18,00 
READY 














Diese Meldung ist das typische Zeichen für eine defekte Diskette, wobei hinter dem Text 
natürlich auch andere Spur- und Sektorangaben stehen können. Im Anhang finden Sie eine 
Aufstellung aller Fehlermeldungen mit den Bedeutungen der einzelnen Parameter. 


Jetzt wissen Sie also, wie man den Kommandokanal bedient. Hierbei muß man leider auf die 
Ebene des BASIC 2.0 heruntersteigen, da das BASIC 7.0 viele der einzelnen Befehle (zum 
Beispiel Lesen der Rückmeldung) schon implementiert hat und die Bedienung des 
Kommandokanals dabei automatisch übernimmt. Die Variable DS$ wird zum Beispiel 
automatisch aktualisiert, sobald die Floppy über BASIC angesprochen wurde. 
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4 Die Dateibehandlung auf der Diskette 


Nachdem wir nun wissen, wie wir Meldungen und Befehle von der Floppy erhalten, 
beziehungsweise an sie senden, wollen wir das neue Wissen gleich einmal anwenden, indem wir 
neue Befehle der Floppystation und mehrere neue Dateitypen (außer den schon bekannten 
Programmdateien) kennenlernen. 


An dieser Stelle ist eine Bemerkung angebracht: Natürlich ist es ein leichtes, dieses Buch mit den 
Eigenheiten der BASIC-Dialekte von BASIC 2.0 und BASIC 7.0 zu füllen. Das ist aber nicht der 
Sinn dieses Buches. Wenn also künftig Beispiele angegeben werden, die sich direkt auf den 
Kommandokanal oder die Dateibearbeitung beziehen, dann werden diese Beispiele in dem auf 
beiden Computern (C64 und C128) lauffähigen BASIC 2.0 angegeben. Für die C128 Besitzer, die 
auch nur geringe Kenntnisse besitzen (oder zumindest das Handbuch) und bei den kurzen 
Beispielen Wert darauf legen, dürfte es kein Problem sein, einen OPEN-Befehl in einen DOPEN- 
Befehl umzuwandeln. Im Prinzip sind im BASIC 7.0 sowieso nur einige Erleichterungen 
hinzugekommen, die auf weniger Tipparbeit hinauslaufen. Gibt es jedoch spezielle Befehle des 
C128, die für den Aufruf von floppyinternen Funktionen verantwortlich sind, dann werden diese 
selbstverständlich dargestellt. Es soll hier nur eine Spitzfindigkeit zwischen OPEN und DOPEN 
oder CLOSE und DCLOSE vermieden werden, die außer gefülltem Papier nichts bringt. 


Jetzt kommen wir aber zu ein paar neuen Befehlen und Tips auf der 1570/71, die bei intensiverer 
Arbeit mit diesen Geräten sicher unumgänglich sind. 


4.1 Die Joker im Diskettenbetrieb 


Die Commodore-Floppies haben alle eine Eigenschaft, die sie von vielen anderen Produkten 
unterscheidet und die das Arbeiten mit einer Floppystation in vielen Fällen stark erleichtert. 


Die Rede ist von sogenannten Jokern (im englischen mit "wild cards" bezeichnet). Diese Joker 
sind bei der Floppy die beiden Zeichen "*", und "?". 
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4.1.1 Das Sternchen im Dateinamen 


Haben Sie schon einmal ein Programm von der Diskette laden wollen, das irgendeinen 
exotischen Namen besitzt, der noch dazu 16 Zeichen lang ist und mit SPE beginnt? Wenn ja, 
dann haben Sie sicher in mühevoller Arbeit das Directory geladen, um nachzusehen, wie der 
Name genau geschrieben wird, um beim Eintippen keinen Fehler zu machen. 


Diese Arbeit hätten Sie sich sparen können, wenn Sie nur gewußt hätten, daß Ihr Programm das 
einzige auf der Diskette ist, dessen Name mit SPE beginnt; oder zumindest das erste der 
Programme mit SPE. Für solche Fälle hat sich Commodore den Joker einfallen lassen (Achtung: 
Die folgenden Hinweise gelten nicht für den Betrieb unter CP/M!). 


Wenn Sie von einem Programm nur die ersten paar oder nur den ersten Buchstaben kennen, dann 
können Sie den Programmnamen abkürzen. Die Floppy sucht dann im Directory nach dieser 
ersten Zeichenfolge und lädt das Programm (oder die Daten). 


Sie haben z.B. eine Diskette, auf der sich zwei Programme befinden: 1. TESTPROGRAMM und 
2. TESTPROGRAMM. Auf dieser Diskette haben Sie alle Programme nach dem gleichen Muster 
benannt. Es reicht nun, wenn Sie die Nummer des TESTPROGRAMMfs wissen, um das richtige 
Programm in den Computer zu laden. In unserem Fall vielleicht das zweite: Anstatt 


LOAD "2. TESTPROGRAMM", 8,1 





tippen Sie einfach 


LOAD "2*",8,1 


oder 
LOAD. 25, #W:87.-T 


je nachdem, wie Sie gerade wollen. Damit haben wir die Funktion des ersten Jokers, nämlich des 
"*", kennengelernt. Dieses Zeichen versetzt Sie in die glückliche Lage, Programm- oder 
Dateinamen abzukürzen, um überflüssige Tipparbeit zu sparen. 


Zu beachten ist dabei: Die Floppy holt immer die erste Datei, das der Abkürzung entspricht. Bei 
einer Diskette mit den Programmen TESTPROGRAMM | und TESTPROGRAMM 2 wäre eine 
Abkürzung sicher nicht sinnvoll. 
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Wollen Sie das allererste Programm von einer Diskette laden, dann heißt der Befehl dazu 


LOAD ":*",8 


Der Doppelpunkt steht dabei für ein Zeichen, daß die Floppy im Dateinamen ignoriert. Es soll 
also die erste Datei geladen werden, die überhaupt einen Dateinamen besitzt, und das ist immer 
die allererste Datei einer Diskette (eine Datei ohne Dateiname existiert ohnehin nicht!). Nun 
werden Sie sich fragen, warum man dazu nicht die Befehlsfolge 


LOAD "*",8 


verwendet. Dieser Befehl wird jedoch nicht fehlerfrei vom Betriebssystem interpretiert. 
Ursprünglich war er dazu gedacht, eine Datei zu laden, die den gleichen Namen der vorher 
geladenen besitzt, um so immer wieder auf die gleiche Datei zugreifen zu können. Von dieser 
Idee ist Commodore jedoch dann abgekommen, das heißt, es gibt Floppystationen, die laden mit 
diesem Befehl die erste Datei einwandfrei; wieder andere bringen bei einem Diskettenwechsel 
einen FILE NOT FOUND ERROR, da die Datei mit gleichem Namen auf der anderen Diskette 
nicht existiert. Bei den neuen Floppies 1570/71 Kann man allerdings davon ausgehen, daß ein 
LOAD "*",8 wie das LOAD ":*",8 arbeitet. 


4.1.2 Das Fragezeichen im Dateinamen 


Neben dem "*" gibt es auch noch einen anderen Joker bei der 1570/71. 
Dieser Joker ist das Fragezeichen "?". 


Während das "*" einen Dateinamen abkürzt - wobei die Floppy alles, was nach dem "*" als 
Dateiname folgt, ignoriert -, steht das "?" immer für ein beliebiges Zeichen im Dateinamen. 


Nehmen wir an, Sie wollen ein Programm laden, dessen Name aus 4 Zeichen besteht, wobei die 
letzten beiden Zeichen ".2" lauten. Anstatt nachzusehen, wie der komplette Dateiname lautet, 
können Sie jetzt die fehlenden ersten Zeichen durch einen Joker ersetzen: 


LOAD "??7.2",8,1 


Diese Befehlskombination lädt das erste Programm von der Diskette, das im Directory mit einem 
vier Zeichen langen Namen eingetragen ist und dessen zwei letzte Zeichen" .2" lauten. 


Wollen Sie das erste Programm von der Diskette holen, das einen Dateinamen mit 8 Zeichen 
Länge hat, so tippen Sie: 
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Natürlich kann man sämtliche Joker miteinander kombinieren. 


4.1.3 Die Kombination von Jokern im Dateinamen 


Es steht Ihnen frei, wie Sie das "*" und das "?" miteinander kombinieren; Sie sollten nur 
beachten, daß für die Floppy ein Dateiname bei einem eventuell vorhandenen "*" beendet ist. 


LOAD "4??? TEST*",8,1 





lädt zum Beispiel ein Programm, dessen Dateiname eine 4 am Anfang, danach noch 3 beliebige 
Zeichen mit der Folge" TEST" und danach ebenfalls wieder beliebige Zeichen besitzt. Eine 
Angabe, wie 


LOAD "TEST*.???",8,1 





lädt das erste Programm, das gefunden wird und dessen Name mit TEST 
beginnt. Die Zeichen hinter dem "*" werden ignoriert. 


Generell gilt: Die Floppy ignoriert alle Zeichen hinter dem "*", die darauf hindeuten, daß sie zu 


einem Dateinamen gehören. Dazu zählen nicht die Sonderzeichen, wie "," oder ":" oder "= 


4.2 Das Löschen einer Datei (SCRATCH-Befehl) 


Sicherlich kommt es im Lauf der Zeit einmal vor, daß Sie ein abgespeichertes Programm später 
nicht mehr brauchen, oder Daten liegen auf einer Diskette, die unnütz sind, aber Platz 
wegnehmen. 


Für diesen Fall gibt es den SCRATCH-Befehl. Hiermit ist es möglich, unerwünschte Dateien von 
der Diskette wieder zu löschen. 


BASIC 7.0 SC RA TCH "name",Ddrive#,Ugeräte# 
BASIC 2.0 OPEN |,geräte#,15,"Sdrive#:name" 


Monitor @geräte#,Sdrive#:name 


Beispiele: 


SCRATCH "WEG DAMIT", DO, U8 
SCRATCH "*" 
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OPEN 1,8,15, "SO:TEST*" 
@8,S:???2?TEST* 





Die Bedeutungen der einzelnen Abkürzungen finden Sie in Kapitel 2.1. 


Wenden Sie den SCRATCH-Befehl unter BASIC 7.0 an, dann folgt nach Drücken der RETURN- 
Taste die Frage ARE YOU SURE, die mit "Y" oder YES zu beantworten ist. Ansonsten wird der 
Befehl abgebrochen. Nachdem der Befehl ausgeführt wurde, wird unter BASIC 7.0 automatisch 
eine Meldung der Floppy angezeigt: 





01, FILES SCRATCHED,xx,00 














Diese Meldung kann auch unter BASIC 2.0 (siehe Kapitel 2.9) abgeholt werden. Sie gibt an, 
wieviele Dateien mit dem entsprechenden Namen auf der Diskette gelöscht wurden (xx steht 
dabei für die Anzahl). Normalerweise ist xx immer 1. Es können aber im SCRA TCH-Befehl die 
schon bekannten Joker verwendet werden, wobei eine Befehlsfolge, wie 


SCRATCH "TEST*" 





beziehungsweise 


OPEN 1,8,15, "S:TEST*" 








alle Dateien löscht, deren Namen mit TEST beginnen. Hier ist die Rückmeldung über die Anzahl 
der gelöschten Dateien durchaus sinnvoll. Auf diese Weise ist es natürlich möglich, eine gesamte 
Diskette zu löschen; hierzu verwendet man jedoch bevorzugt den NEW- oder HEADER-Befehl 
ohne ID, der in Kapitel 2.2 beschrieben ist. 


4.3 Aufräumen auf der Diskette (VALIDATE-Befehl) 


Dieser Befehl ist vor allem dann sinnvoll, wenn durch einen Fehler beim Diskettenzugriff die 
BAM und das Directory in Unordnung geraten sind. Hiermit werden alle Dateien auf der Diskette 
abgetastet und deren Blöcke in der BAM als belegt gekennzeichnet. Der Rest der Blöcke in der 
BAM wird freigegeben. Die BAM wird hierbei also neu geschrieben. 


BASIC 7.0 COLLECT Ddrive# ON Ugeräte# 
BASIC 2.0 OPEN 1 ‚geräte#, 15, "V drive#" 
Monitor @ geräte#,Vdrive# 
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Beispiele: 





COLLECT 
COLLECT DO ON U9 


























OPEN 1,9,15, "V" 
OPE ‚8,15, "VO" 











@8,V 


Wann die BAM durch einen Fehler zerstört werden kann, haben Sie schon in Kapitel 1 erfahren. 
Es kann zum Beispiel passieren, daß ein Programm bei SAVE nicht mehr auf die Diskette paßt. 
In diesem Fall wird der SAVE-Befehl abgebrochen und die Diskette auf 0 BLOCKS FREE 
gesetzt. Gleichzeitig erscheint vor dem Dateinamen ein "*", der darauf hindeutet, daß mit dem 
Programm etwas nicht stimmt. Außerdem ist noch die Anzahl der vom Programm belegten 
Blöcke ebenfalls auf O gesetzt worden. 


In diesem Fall hilft der COLLECT- oder VALIDATE-Befehl, der die Diskette aufräumt und die 
verlorengegangenen Blöcke der zu langen Datei wieder freigibt. 


Je nach Belegung der Diskette kann der Befehl einige Zeit für die Ausführung brauchen. Es ist 
aber auf jeden Fall darauf zu achten, daß die Diskette keine Schreibschutz-Plakette trägt, da sonst 
eine Fehlermeldung die Folge ist. 


4.4 Das Umbenennen von Dateien (RENAME-Befehl) 


Dieser Befehl ist selten wirklich nötig; oft aber eine Frage des guten Geschmacks. Hiermit kann 
der Name einer gespeicherten Datei nachträglich im Inhaltsverzeichnis geändert werden. 


BASIC 7.0 RENAME "a-name" TO "n-name",Ddrive#,Ugeräte# 


wobei a-name der bisherige Name der Datei und n-name 
der neue Name der Datei sein soll. 


BASIC 2.0 OPEN I,geräte#,15,"Rdrive#:n-name=a-name" 
Monitor @ geräte#,Rdrive#:n-name=a-name 


Beispiele: 





RENAME "TEST" TO "KEIN TEST",DO,U8 
RENAME "ALTER NAME" TO "NEUER NAME" 
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OPEN 1,8,15, "RO:NEUER NAME=ALTER NAME" 
@9, R:NEU=ALT 





Zu beachten ist bei dem Wechsel zwischen BASIC 7.0 und BASIC 2.0 die 
unterschiedliche Reihenfolge der Namen in der Befehlszeile! 


4.5 Das Kopieren von Dateien (COPY -Befehl) 


Dieser Befehl wurde eigentlich für Doppellaufwerke entwickelt und hat seine Bedeutung bei den 
Einzellaufwerken eigentlich verloren. Er kann jedoch noch für das Kopieren innerhalb einer 
Diskette verwendet werden, wenn zum Beispiel mehrere Dateien zu einer einzigen verknüpft 
werden sollen, oder wenn von einer Datei eine Sicherheitskopie (backup) angefertigt werden soll. 


An dieser Stelle ist zu beachten, daß im BASIC 7.0 für das Anhängen einer Datei an eine andere 
und für das Kopieren von einer Datei in eine andere zwei verschiedene Befehle vorhanden sind, 
die jedoch prinzipiell das gleiche bewirken: Sie senden den COPY - oder C- Befehl an die 
Floppy. Der einzige Unterschied zwischen beiden Befehlen besteht darin, daß die Zieldatei bei 
CONCAT schon auf der Diskette sein muß, während sie bei COPY noch nicht vorhanden sein 
darf. COPY fertigt also eine Sicherheitskopie an, während CONCAT eine Datei an eine schon 
bestehende anhängt. 


BASIC 7.0 COPY Ddrive#2,"name?2" TO Ddrive#l, 
"namel" ON Ugeräte# 
CONCAT Ddrive#2,"name2" TO Ddrive#l, 
"namel" ON Ugeräte# 


Die Nummern 2 und 1 hinter den Drivenummern und den 
Dateinamen stehen für Quelle und Ziel (Laufwerk und Da- 
tei). 


BASIC 2.0 OPEN 1,geräte#,15,"Cdrive#1l:namel=drive#2:name2, 
drive#3:name3,..." 
Monitor @ geräte#,Cdrive#l:name 1=drive#2:name2,drive#3:name3,... 


Beispiele: 





COPY: "EESTL" "LO '"TEST2T 
CONCAT DO, "NEUES ZUM" TO "ALTEH" OH U8 
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OPEN 1,8,15,"C:NEUE® FILE=DAS,UND DAS,UND DAS AUCH" 
OPEN 1,8,15,"C0:BACKUP=0:0RIGINAL" 
























































@8.C0:TEST=0:TEST1,0:TEST2 


Auch bei diesen Befehlen muß wieder auf die unterschiedliche Reihenfolge der Dateinamen 
geachtet werden. Verwendet man BASIC 7.0, dann kopiert man die eine Datei zum anderen 
(Name 2 TO Name 1); bei BASIC 2.0 erzeugt man eine neue Datei aus einem oder mehreren 
alten Dateien (Name 1=Name 2,Name 3,Name 4). 


4.6 Das Kopieren einer Diskette (DUPLICATE-Befehl) 


Dieser Befehl ist bei der 1570/71 nicht vorhanden, da er eine gesamte Diskette von einem 
Laufwerk auf ein anderes kopiert, was bei einem EinzelLaufwerk nicht so ohne weiters möglich 
ist. Prinzipiell sieht die Syntax des Befehls folgendermaßen aus: 


BASIC 7.0 BACKUP Ddrive#2 TO Ddrive#l, Ugeräte# 
BASIC 2.0 OPEN 1,geräte#,15,"Ddrive#1=drive#2" 
Monitor @ geräte#,Ddrive#1=drive#2 


Beispiele: 


BACKUP DO TO DI 
OPEN 1,8,15,"D1=0* 
@8,D1=0 











Die Nummern hinter der Laufwerksangabe (drive#1,drive#2) stehen jeweils 
für Ziel- (1) und Quellaufwerk (2). 
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5 Die verschiedenen Dateitypen der 1570/71 


Bisher haben wir uns mit allen möglichen Befehlen der Floppy zur Filebzw. Dateiverwaltung 
beschäftigt. Sie haben etwas über die BAM und das Directory erfahren und haben Programme 
geladen sowie ab gespeichert. Nun sollen uns andere Anwendungen der Floppystation 
interessieren. 


5.1 Die sequentielle Datei (SEQ) 


In Kapitel 2.3 haben Sie schon erfahren, daß es auch noch andere Dateitypen, als die schon 
bekannte PRG-(Programm)-Datei gibt, deren Kennung im Directory immer hinter dem 
Dateinamen steht. 


Als erstes soll uns ein Dateityp mit der Kennung SEQ interessieren. Das SEQ steht für 
sequentielle Datei und bedeutet folgendes: 


Wenn Sie ein Buch aufschlagen, dann lesen Sie dieses Buch (zum Beispiel einen Roman) immer 
der Reihe nach, von vorne bis hinten durch. Dieses "der Reihe nach", wird auch als sequentiell 
bezeichnet. Wenn Sie jetzt zum Beispiel eine bestimmte Stelle suchen und keinen Anhaltspunkt 
haben, wo sich diese Stelle (zum Beispiel ein Fremdwort) im Buch befindet, dann bleibt Ihnen 
nichts anderes übrig, als das Buch noch einmal durchzulesen (der Reihe nach), bis Sie die 
betreffende Stelle gefunden haben. 


Jetzt kann man aber im Zuge der zunehmenden Verbreitung der Computer auch auf die Idee 
kommen, ein solches Buch auf eine Diskette zu speichern und vielleicht eine Bibliothek mit 
Bildschirmterminals auszustatten, wo jeder Band nur noch auf Diskette existiert. Für die 
Speicherung solcher Romane ist die sequentielle Datei wie geschaffen. 


5.1.1 Das Eröffnen einer sequentiellen Datei 


Eine sequentielle Datei enthält alle Datenbytes hintereinander in einer Datei. Um eine solche 
Datei anzulegen, benötigt man fast keinen Aufwand, weshalb diese Form der Datenverwaltung 
sehr häufig anzutreffen ist. 


Wir wollen jetzt eine sequentielle Datei mit dem Namen SEQ-TEST anlegen. Dazu rufen Sie sich 
noch einmal die Kanalstruktur der Floppy ins Gedächtnis zurück (Kapitel 3.3). Wir wissen, daß 
die Floppy über 16 Kanäle verfügt, wobei die Nummern 2 bis 14 für den Benutzer frei 
verwendbar 
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sind. Wählen Sie für die sequentielle Datei beispielsweise den Kanal mit der Nummer 2: 





OPEN 1,8,2,"SEQ-TEST,S,U" 














So einfach ist das. Die LED am Laufwerk der 1570/71 geht an und die Datei wird auf der 
Diskette eröffnet, das heißt im Inhaltsverzeichnis eingetragen. 


Beim Eröffnen einer Datei muß man der Floppy immer mitteilen, welchen Typ man wünscht; die 
Kanäle können ja jeden beliebigen Dateityp verwalten. In unserem Fall sind das zwei Parameter, 
die an den Dateinamen angehängt werden. Die Bedeutung des ersten Parameters ist folgende: 


SEQ- Datei 
PRG- Datei 
USR-Datei 
REL-Datei 


ala aus): 


In unserem Falle ist also ein S zu setzen. Wie Sie sehen, gibt es auch ein Kürzel für 
Programmdateien. Wenn ein Programm abgespeichert werden soll, nimmt man aber im 
allgemeinen den Kanal 1, da hier die Angabe P nicht mehr notwendig ist - Kanal 1 ist schon von 
vornherein für Programmdateien ausgelegt. Das SAVE-Kommando ist also letztendlich nichts 
anderes, als das Anlegen einer Programmdatei, in der dann die Programmbytes untergebracht 
werden. 


Nun aber wieder zur sequentiellen Datei. Haben wir den Dateityp angegeben, so müssen wir der 
Floppy nur noch mitteilen, für welchen Zweck wir die Datei öffnen: zum Schreiben, Lesen oder 
zum Anhängen von Daten. 


W Schreiben von Daten in eine neue Datei 
R Lesen von Daten aus einer bestehenden Datei 
A Anhängen (Append) von Daten an eine bestehende Datei 


In unserem Beispiel haben wir also eine neue Datei zum Schreiben von Daten eröffnet und der 
Eintrag in das Inhaltsverzeichnis der Diskette ist nun erstellt. 


5.1.2 Das Schreiben von Daten in eine Datei 


Dieser Vorgang ist für alle Dateitypen identisch. Hier geht es um das 
Übertragen von Datenbytes in die entsprechende Datei. 





PRINT#1,"DIES IST EIN SEQUENTIELLES FILE" 
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Hier wird gleich eine ganze Anzahl von Bytes (eine Zeichenkette) in unsere Datei geschrieben. 
Sie können natürlich auch nur ein einzelnes Byte in die Datei eintragen, wenn Sie z.B. irgend 
welche Parameter von technischen Messungen ablegen wollen. Das Byte wird folgendermaßen in 
diese Datei geschrieben: 


PRINT#1,CHRS (byte); 





An dieser Stelle eine Bemerkung zu dem Semikolon am Ende des Befehls. Steht bei einem 
PRINT-Befehl auf den Bildschirm des Computers kein Semikolon am Ende der Zeichenkette, so 
wird automatisch ein Zeilenvorschub ausgeführt, was gleichbedeutend mit der Ausgabe des 
ASCII-Zeichens 13 ($0d = RETURN) ist. Dieses ASCII-Zeichen sorgt dafür, daß der nächste 
PRINT-Befehl in die nächste Bildschirmzeile schreibt. Das gleiche gilt für den PRINT#-Befehl 
in eine Datei. Hier wird das ASCH-Zeichen ebenfalls mit ausgegeben und hinter die Zeichenkette 
in die Datei geschrieben. Hat man Text, den man auf Diskette ablegen will, so ist dieser Effekt 
erwünscht. Hier kann man nämlich dann die einzelnen Zeichenketten mit INPUT# wieder in den 
Computer holen, da der INPUT#-Befehl das Zeichen $0d als Endekennzeichen für eine 
Zeichenkette nimmt. Wäre es nicht vorhanden, so würde der Computer mit INPUT# immer 
weiterlesen, bis er mehr als 255 Zeichen bekommt und mit einem STRING TOO LONG ERROR 
aussteigt. 


Will man jedoch keinen Text auf der Diskette ablegen, sondern zum Beispiel Daten oder 
Programmbytes, so ist das RETURN störend, da es erstens Speicherplatz verbraucht (hinter 
jedem einzeln abgespeicherten Byte kommt ein RETURN) und zweitens die Struktur des 
Datenfeldes zerstört. 


Aus diesem Grund ist hinter der BASIC-Zeile mit dem CHR$-Befehl ein Semikolon eingegeben. 
Es verhindert die Ausgabe des RETURNs und sorgt so für die gleiche Struktur der Daten auf der 
Diskette wie im Computerspeicher. Für den Bildschirm gilt übrigens das gleiche. Auch hier 
können Sie durch die Angabe eines Semikolons den Zeilenvorschub hinter PRINT verhindern. 


In jedem Fall haben Sie jetzt Ihre Zeichenkette oder Ihr einzelnes Byte in die Datei geschrieben. 
Dabei fällt Ihnen vielleicht auf, daß die Floppy nach diesem Schreibvorgang nicht angelaufen ist, 
um die Daten auf die Diskette zu schreiben. Der Grund dafür ist folgender: 


Wenn die Floppy Daten für eine Datei bekommt, so werden diese Daten zuerst einmal in einem 
floppyinternen Pufferspeicher zwischengelagert, und zwar solange, bis ein ganzer Block (256 
Byte) erhalten wurde, um auf die Diskette geschrieben zu werden. Die 1570/71 erspart sich damit 
allzu häu 
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fige Diskettenzugriffe. Würden Sie jetzt immer wieder Daten zur Floppy schicken, so würde der 
Laufwerkmotor auf einmal anlaufen, um die Daten auf die Diskette zu schreiben. Sie wissen 
dann, daß Sie mehr als 256 Bytes zur Floppy geschickt haben. Danach beginnt das Füllen des 
Pufferspeichers wieder von neuem, bis der Dateizugriff beendet wird. 


5.1.3 Das Schließen einer Datei 
Ein Dateizugriff wird durch das Schließen der betreffenden Datei beendet. 


CLOSE 1 





Das ist alles! Jetzt kann es sein, daß der Motor der Floppy erneut anläuft, damit ein eventuell 
noch vorhandener halbvoller Puffer auf die Diskette geschrieben werden kann. Die Datei wird im 
Directory abgeschlossen und die LED am Laufwerk erlischt. 


Achtung! Das Schließen einer Datei nach der Bearbeitung ist unbedingt notwendig, da sonst 
diese sonst "offen" stehen bleibt und die restlichen Daten im Pufferspeicher der Floppy 
verlorengehen. Eine offene Datei können Sie im Inhaltsverzeichnis ganz einfach erkennen: Sie 
hat ein Sternchen vor der Angabe des Dateityps und die Anzahl der belegten Blöcke der Datei 
steht auf 0. Wir werden später noch erfahren, wie man auch einen solchen Fehler wieder behebt. 
Sie sollten es jedoch auf keinen Fall darauf ankommen lassen. 


5.1.4 Die Arbeit mit einer sequentiellen Datei 


Wie Sie in den vorherigen Abschnitten gesehen haben, ist die Handhabung einer sequentiellen 
Datei im Prinzip recht einfach: Datei öffnen, Daten hineinschreiben und schließlich Datei wieder 
schließen. Wie der Name dieses Dateityps schon sagt, werden die Daten genau in der 
Reihenfolge auf die Diskette geschrieben, in der sie bei der Floppy ankommen: also sequentiell. 
Zum Lesen dieser Daten wird in der Floppy ein spezieller Zeiger auf den Anfang der Datei 
gesetzt, der die Position in der Datei angibt. 


Stellen Sie eine kleine sequentielle Datei her: 










































































OPEN 1,8,2,"SEQ-DATEI,S,W" 
PRINT#1,"1. EINTRAG" 
PRINT#1,CHRS (1); 
PRINT#1,"2. EINTRAG" 
PRINT#1,CHRS (2); 

PRINT#1, "ENDE DER DATEI" 
PRINT#1,CHRS (3) 
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Die Datei ist folgendermaßen aufgebaut: Zuerst kommt der Text "1. EINTRAG", der mit dem 
ASCII-Zeichen für RETURN ($0d) auf die Diskette geschrieben wird (zur Erklärung siehe 5.1.2). 
Danach folgt ein numerischer Wert in Form eines Bytes, das einzig und allein noch einmal die 
Nummer des Eintrags enthält. Es wird ohne anschließendes RETURN auf die Diskette 
geschrieben, da es sich nicht um eine Text-Zeichenkette handelt. Der "2. EINTRAG" ist genauso 
aufgebaut. Der Schluß der Datei wird durch das Byte 3 gekennzeichnet. 


Da in einer sequentiellen Datei die Reihenfolge der aufgezeichneten Daten berücksichtigt werden 
muß, können die Daten auch nur in der gleichen Reihenfolge gelesen werden wie sie geschrieben 
wurden. Dieses Problem kann man mit der Anwendung der relativen Datei umgehen, die wir in 
Abschnitt 5.3 besprechen werden. Deren Handhabung ist jedoch um einiges komplizierter, als die 
der sequentiellen Datei, weshalb vor allem für den Anfänger die Verwendung der relativen Datei 
nicht zu empfehlen ist. 


Wir können das "sequentielle Problem" auch ein wenig anders lösen. Haben Sie sich vielleicht 
gefragt, warum im Beispiel immer ein Byte nach einer Zeichenkette kommt, das die Nummer des 
Eintrags angibt? Nun, stellen Sie sich vor, Sie hätten anstelle des Textes "1. EINTRAG" und "2. 
EINTRAG" zum Beispiel den Titel eines Kochrezeptes stehen. Sie wären dann nur sehr schwer 
in der Lage, auf einen bestimmten Eintrag zuzugreifen. 


Mit Hilfe der Nummer können Sie jedoch einigermaßen schnell zum Beispiel auf den 2. Eintrag 
der Datei zugreifen, selbst wenn die Reihenfolge durcheinandergewürfelt ist. 


Zum Auslesen der Datei benötigen wir allerdings ein kleines Programm, da INPUT und GET im 
Direktmodus nicht funktionieren: 





10 OPEN 1,8,2,"SEQ-DATEI,S,R" 
20 INPUT#1.A1S 

30 GET#1,N1$ 

40 INPUT#1,A2S 

50 GET#1,N2$ 

60 INPUT#1,AXS 

70 GET#1,NX$ 

80 CLOSE 1 


















































In der ersten Zeile (10) wird Ihre vorhin angelegte Datei als sequentielle Datei zum Lesen 
geöffnet. Dann können die Daten wieder fast genauso aus der Datei herauslesen werden, wie sie 
hineingeschrieben wurden: nur mit dem Unterschied, daß die Zeichenketten mit dem RETURN- 
Zeichen am Ende jeweils mit INPUT# und das einzelne Byte jeweils mit GET# ein 
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lesen wird. Sie können eine Zeichenkette natürlich auch mit GET# einlesen; das funktioniert 
folgendermaßen: 





10 OPEN 1,8,2,"SEQ-DATEI,S,R": Al$="" 
20 GET#1,A$ 

30 IF AS=CHR$ (13) THEN 50 

40 AlS=AlS+AS$S: GOTO 20 

50 GET#1,N1$ 









































. CLOSE 1 








Diese Methode ist aber natürlich ziemlich langsam, da sehr viele BASICBefehle für das Lesen 
einer Zeichenkette ausgeführt werden müssen. Achtung bei Zeichen ketten über 255 Zeichen 
Länge. In diesem Fall muß eine Spezialvorrichtung eingebaut werden, die solche Zeichenketten 
auf mehrere Variablen verteilt, da sonst ein STRING TOO LONG ERROR die Folge ist. Solche 
Zeichenketten können außerdem nur mit PRINT# und anschließendem Semikolon erzeugt 
werden. 


Wenn Sie eine sequentielle Datei also öffnen, dann wird der Zeiger in diese Datei bei jedem 
Schreib- oder Lesezugriff weitergestellt, so daß pro Zugriff auf eine sequentielle Datei jedes 
Element nur maximal einmal gelesen oder geschrieben werden kann. Haben Sie jetzt zum 
Beispiel zehn Elemente überlesen, um vor das elfte zu gelangen und stellen dann fest, daß Sie das 
neunte Element hätten haben wollen, so müssen Sie die Datei wieder schließen und danach erneut 
öffnen. Dann müssen Sie wieder die ersten acht Elemente überlesen, um nun das neunte zu 
erhalten. 


Diese Methode ist natürlich ziemlich kompliziert und damit auch sehr zeitraubend, besonders 
wenn Sie eine sehr große Datei zu verwalten haben, bei der nicht alle Elemente gleichzeitig in 
den Computer geladen werden können. Die relative Datei bietet dann eine echte Alternative, doch 
dazu mehr in Abschnitt 5.3. 


5.1.5 Das Anhängen von Daten in einer sequentiellen Datei 


Natürlich kommt es bei richtiger Datenverarbeitung häufig vor, daß eine Datei zum Beispiel 
ergänzt werden muß. Auch dafür gibt es bei der 1570/71 einen Befehl. Nehmen wir einmal an, 
Sie wollen ein Adreßbuch verwalten, bei dem laufend neue Adresse hinzukommen. In diesem 
Fall wird die Datei beim allerersten Mal angelegt wie in Abschnitt 5.1.1 beschrieben, damit ein 
Directory-Eintrag vorhanden ist. Nach dem Zugriff wird die Datei natürlich wie immer 
ordnungsgemäß geschlossen. Jetzt hängen Sie neue Daten an Ihre Datei, die sich ADRESSBUCH 
nennt. Das geht folgendermaßen: 
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OPEN 1,8,2, "ADRESSBUCH, S,A" 














Wie Sie sehen, wird die Datei wieder geöffnet - diesmal mit dem A-Kommando (A für Append). 
Dieses Kommando stellt den Zeiger in die Datei automatisch hinter den letzten bisher 
vorhandenen Eintrag und macht die Floppy somit bereit für neue Daten, die hinten an die Datei 
angehängt werden. 


Dieser Vorgang kann theoretisch beliebig oft erfolgen; jedoch können damit keine Daten gelöscht 
werden. Will man Daten löschen, so muß die Datei völlig neu aufgebaut und in eine andere Datei 
umgeladen werden. 


5.2 Die Benutzerdatei (User- Datei. USR) 


Dieser Dateityp unterscheidet sich in der Handhabung überhaupt nicht von der sequentiellen 
Datei und ist auch genauso aufgebaut. Er unterscheidet sich lediglich in der Anwendung. 


Während die sequentielle Datei in der Floppy generell für die Datenaufzeichnung verwendet 
wird, soll die User-Datei für das Aufnehmen von Maschinenprogrammen dienen. Die 
sequentielle Datei ist also ein Datenfile, während es sich bei der User-Datei (wie auch bei der 
Programm-Datei) um ein Programmfile handelt. 


Diese Vereinbarung wurde von Commodore getroffen, damit sich die Dateien zumindest 
äußerlich voneinander unterscheiden. Der innere Aufbau ist nämlich vollkommen identisch. Sie 
können also theoretisch jederzeit ein Kochbuch in einer USR - Datei und ein 
Maschinenprogramm in einer SEQDatei ablegen. 


Wir werden die User-Datei später noch im Zusammenhang mit einem Spezialbefehl der Floppy 
kennenlernen. 


5.3 Die relative Datei (REL) 


Dieser Dateityp wurde vorhin schon einmal erwähnt. Er stellt den schnellsten und zugleich auch 
kompliziertesten Dateityp dar und sollte nur verwendet werden, wenn komplexe Dateien 
möglichst schnell verwaltet werden sollen und wenn der Programmierer schon Erfahrung im 
Umgang mit der 1570/71 besitzt. 
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Die relative Datei wurde ursprünglich für das BASIC 4.0 der Commodore-Serien 4000 und 8000 
vorgesehen, da deren BASIC die Handhabung unterstützt und erleichtert. Da dieses BASIC auch 
im BASIC 7.0 des C 128 enthalten ist, kommen dem Commodore-128-Anwender die 
Erleichterungen zugute. Aber auch C64-Besitzer sollten sich nicht davor scheuen, diese 
komfortable und schnelle Datenverarbeitung kennenzulernen; auch wenn das mit ein bißchen 
mehr Aufwand verbunden ist. 


5.3.1 Eröffnen einer relativen Datei 


Der Nachteil der sequentiellen Datenspeicherung besteht eigentlich nur darin, daß man nicht auf 
einen bestimmten Dateieintrag willkürlich zuzugreifen kann. Die ganze Datei besteht aus einem 
einzigen Datensatz, der solange durchsucht werden muß, bis man seinen entsprechenden Eintrag 
gefunden hat. 


Die relative Datenspeicherung geht einen anderen Weg. Es wird hier davon ausgegangen, daß 
jede Datei aus vielen Einträgen besteht, die alle eine gewisse Maximalgröße nicht überschreiten. 
Bei der relativen Datei wird also für jeden dieser Einträge, deren Größe vom Benutzer definiert 
wird, ein eigener Datensatz (Record) angelegt, auf den bei späterer Bearbeitung direkt 
zugegriffen werden kann. 


Haben Sie beispielsweise eine Adreßkartei, in der Name, Adresse und Telefonnummer jedes 
Kunden abgelegt werden, so teilen Sie der Floppy beim Eröffnen der Datei mit, daß Sie für jede 
Eintragung 40 Zeichen Länge gewähren. Die Floppy legt danach eine relative Datei an, die in 
Datensätze zu je 40 Zeichen aufgeteilt wird. Auf jeden dieser Datensätze kann der Benutzer dann 
willkürlich zugreifen, ohne sich um irgendeine Reihenfolge kümmern zu müssen. In der Praxis 
sieht das so aus: 


Sie eröffnen eine Datei ADRESSEN, bei der jeder Eintrag bis zu 40 Zeichen lang sein darf: 





OPEN 1,8,2, "ADRESSEN, L,"+CHR$ (41) 














beziehungsweise 





DOPEN#1, "ADRESSEN", L4] 


für BASIC 7.0. 














Wie Sie sehen geschieht das Öffnen analog zur sequentiellen Datei, nur daß anstelle der 
Betriebsart der Datei die Länge der Datensätze (Recordlänge) steht. Bei einer Länge der Einträge 
von 40 Zeichen wurden hier 41 Zeichen angegeben, da wir jetzt einmal davon ausgehen, daß 
jeder Eintrag mit ei 
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nem PRINT#-Befehl ohne anschließendes Semikolon gesendet wird. Wie Sie wissen, schickt der 
Computer dann ein RETURN-Zeichen automatisch hinterher, so daß Sie die Länge um eins 
erhöhen müssen. 


Ist die Datei, auf die Sie zugreifen wollen, schon vorhanden, so kann die Angabe der 
Recordlänge entfallen. Wird sie dennoch angegeben, so muß die Länge aber in jedem Fall mit der 
beim allerersten Zugriff übereinstimmen. 


Die Datei ist jetzt in jedem Fall im Directory eingetragen, und wir gehen davon aus, daß dies der 
erste Zugriff auf die relative Datei ist. In diesem Fall sollten Sie sich aus folgendem Grund 
Gedanken machen, wie groß die Datei später eventuell einmal werden soll: Die Datei ist zwar 
jetzt im Inhaltsverzeichnis eingetragen; die Datensätze sind aber auf der Diskette noch nicht 
angelegt beziehungsweise für den Zugriff freigegeben. Wollten Sie jetzt Daten in die Datei 
schreiben, so würde die Floppy eine Fehlermeldung ausgeben. Aus diesem Grund sollte man als 
erstes den Datensatz freigeben, dessen Nummer man für die höchste hält, die später in der Datei 
verwendet werden wird. Es werden dann automatisch auch alle niedrigeren Datensätze 
freigegeben, so daß anschließend die gesamte relative Datei auf der Diskette organisiert vorliegt. 
Erweitern Kann man die Datei zu gegebener Zeit dann immer noch. Da das Freigeben aber eine 
ganze Weile dauern kann, sollte man diesen Vorgang lieber möglichst früh hinter sich bringen. 


Das Freigeben geschieht durch das Anwählen des entsprechenden Datensatzes und das Schreiben 
eines Leerbytes in diesen Datensatz. Dieses Leerbyte ist für die 1570/71 das Byte 255 ($ff). Wir 
wollen eine Datei mit 500 Datensätzen anlegen, wobei das Freigeben folgendermaßen aussieht: 























OPEN 2,8,15 :REM Kommandokanal für Befehl öffnen 
PRINT#2,"P";CHRS (2+96),CHRS (244) ;CHRS (1) ;CHRS$S (1) 
PRINT#1,CHR$S (255) :REM Leerbyt senden 

CLOSE1:CLOSE2 


























beziehungsweise 


RECORD#1,500,1 
PRINT#1,CHRS (255) 
DCLOSE# 


























für BASIC 7.0 (das OPEN 1,8,2,... ist schon erfolgt). Beachten Sie im Basic-2.0-Betrieb, daß 
beim Positionieren immer die Zahl 96 zur Kanalnummer des Datenkanals addiert werden muß! 


Wenn Sie die zweite Zeile eingetippt haben, beginnt die LED an der Floppy zu blinken, da Sie 
auf einen Datensatz zugreifen wollen. der noch 
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nicht freigegeben ist. Das soll Sie nicht stören. Sie tippen einfach die dritte Zeile ein und mit 
dieser wird der entsprechende Datensatz und alle niedrigeren sofort freigegeben, was ein Weile 
dauern kann. Es soll Sie auch nicht irritieren, daß die LED während des Freigebens manchmal 
leuchtet und manchmal nicht. Das ist normal und hängt davon ab, ob Sie die Fehlermeldung bei 
der blinkenden LED ausgelesen haben oder nicht. Haben Sie die Meldung nicht ausgelesen, so 
blinkt die LED nach dem Freigeben wiederum. Sie bekommen dann aber unter Umständen 
keinen sinnvollen Fehlertext mehr. Nun aber zur Erklärung der einzelnen Schritte. 


5.3.2 Das Positionieren auf einen Datensatz (Record) 


In der ersten Zeile der letzten Befehlsfolge haben Sie den Kommandokanal mit der Dateinummer 
2 geöffnet. Das ist notwendig, da im folgenden ein Befehl an die Floppy geschickt wird, und wie 
wir wissen, müssen Befehle über den Kommandokanal geschickt werden. Der folgende Befehl ist 
der P- oder POSITION-Befehl, der uns in die Lage versetzt, den Zeiger innerhalb der Datei auf 
einen gewünschten Datensatz zu setzen (zu positionieren). Die Syntax dieses Befehls ist 
folgende: 


BASIC 7.0 RECORD file#,datensatz#,byte# 


datensatz# bezeichnet dabei die Nummer des gewünschten 
Datensatzes und 
byte# die Nummer des Bytes in diesem Datensatz. 


BASIC 2.0 OPEN 1,geräte#, 15, "P"+CHR$(sekundär#+96) 
+CHR$(rec Lo)+CHR$(rec Hi)+CHR$(byte#) 


rec Lo bezeichnet dabei die Nummer Lo des Records 

rec Hi die Nummer Hi des Records. 

Zur Berechnung dieser Nummern siehe folgenden Text. 
Monitor nicht anwendbar, wegen fehlender CHR$-Umrechnung 


Wie Sie sehen, ist die Anwendung unter BASIC 7.0 sehr viel kürzer und einfacher; wir werden 
uns jedoch jetzt mit beiden Methoden beschäftigen. 


Unter BASIC 2.0 müssen Sie den Kommandokanal öffnen, da der P-Befehl an die Floppy 
gesendet werden muß. Dieser Befehl hat folgende Parameter: sekundär# gibt die Kanalnummer 
oder Sekundäradresse an, wie Sie beim Öffnen der relativen Datei festgelegt wurde (in unserem 
Fall 2). Zu dieser Kanalnummer wird 96 addiert, um die Kompatibilität der Vorgehensweise mit 
dem Vorgehen des RECORD-Befehls unter BASIC 7.0 zu erhalten. Dies ist eine Commodore- 
Empfehlung, der man sich nicht verschließen sollte, auch wenn es ein wenig unbequem erscheint. 
Danach muß die 
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Nummer des gewünschten Records übergeben werden. Da ein Byte maximal den Wert 255 
aufnehmen kann, wurde diese Angabe in 2 Bytes, das Lo- und das Hi-Byte zerlegt. Die Werte 
berechnen sich daraus wie folgt: 


rec Hi INT(Nummer des Records/256) 
rec Lo Nummer des Records AND 255 


Schließlich muß noch das Byte innerhalb des Datensatzes angegeben werden, auf das positioniert 
werden soll. Das kann maximal den Wert 1 bis 254 erhalten, woraus Sie schon schließen können, 
daß die Länge eines Datensatzes einer relativen Datei höchstens 254 Zeichen betragen darf. Die 
Berechnung der Recordnummer läßt den maximalen Wert von 65535 zu. Eine relative Datei kann 
also höchstens aus 65535 Datensätzen bestehen. Durch das Betriebssystem der Floppy ist auch 
die Gesamtlänge einer relativen Datei begrenzt. Sie beträgt 182880 Bytes. Das ist bei der 1570 
sicherlich keine Einschränkung, da hier die Diskettenkapazität auf maximal 169329 Bytes 
beschränkt ist. Bei der 1571 sieht die Sache etwas anders aus, da sie eine Kapazität von 338640 
Bytes hat. 


Unter BASIC 7.0 funktioniert das Freigeben der Datensätze etwas anders. Hier braucht der 
Kommandokanal nicht extra geöffnet zu werden, da der Computer die Angelegenheit mit dem 
RECORD-Befehl intern regelt. Zwei Besonderheiten besitzt der RECORD-Befehl gegenüber 
BASIC 2.0. Erstens wird nicht, wie beim P-Befehl, die Kanalnummer der relativen Datei, son- 
dern dessen Dateinummer (in unserem Beispiel die 1) angegeben, und zweitens kann man die 
Recordnummer als einen ganzen Wert zwischen 1 und 65535 angeben, ohne sich über eine Auf- 
teilung Gedanken machen zu müssen. 


Das Freigeben der Datensätze durch das Senden des Leerbytes CHR$(255) ist bei beiden BASIC- 
Versionen gleich. Durch diesen Befehl werden jeweils alle Datensätze bis zum angegebenen 
vollständig mit dem Wert 255 ($ff) gefüllt. In unserem Fall besteht die Datei also aus 500 
Datensätzen, wobei jeder 41 Bytes mit dem Inhalt 255 enthält. 


5.3.3 Das Schreiben eines Datensatzes 


Wenn Sie bisher alles richtig gemacht haben, so müßte auf Ihrer Diskette jetzt eine Datei 
ADRESSEN stehen, die die Kennung REL trägt und 82 Diskettenblöcke belegt. 


Nun wollen wir einen beliebigen Datensatz dieser Datei beschreiben. Verwenden Sie dazu 
folgende Daten: 
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NA$="HUBERT MEIER" 
WES="HERZOGWEG 4" 
OR$="9999 BEISPIEL" 
























































Aus diesen Daten bilden wir unseren Datensatz: 


RE$S=NA$S+WES+ORS 








Der Datensatz heißt nun 








"HUBERT MEIERHERZOGWEG 49999 BEISPIEL" 












































und soll auf die Diskette unter der Datensatznummer 10 abgelegt werden. Das geschieht 
folgendermaßen: 


Zuerst müssen Sie die Datei wieder öffnen, wobei Sie bei einer relativen Datei nicht angeben 
müssen, zu welchem Zweck - Schreiben oder Lesen von Daten - die Datei geöffnet wird: 





OPEN 1,8,2,"ADRESSEN,L" 














Beziehungsweise 





DOPEN#1, "ADRESSEN" 














für BASIC 7.0. 
Danach positionieren Sie auf den zehnten Datensatz und dort auf das erste Byte 
OPEN 2,8,15 


PRINT#2,"P"CHRS (2+96)CHRS (10)CHRS (O)CHRS (1) 
CLOSE 2 











beziehungsweise 


RECORD#1,10,1 
für BASIC 7.0. 





Jetzt können Sie den Datensatz in die Datei eintragen: 





PRINT#1,RES 











wobei das RETURN-Zeichen automatisch hinter die Zeichenkette in die 
Datei geschrieben wird. Durch 


CLOSE 1 
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Beziehungsweise 


DCLOSE#1 





für BASIC 7.0 sichern Sie Ihre Eingabe und schließen den Zugriff ab. Das Zugreifen auf einen 
Datensatz und das Schreiben des Inhaltes kann man vor dem CLOSE-Kommando natürlich 
beliebig wiederholen und dabei kreuz und quer durch die Datei springen. 


Der Vorteil der relativen Datei wird sehr schnell deutlich, wenn man viele Dateizugriffe machen 
muß, bei denen sich auch noch das Schreiben und Lesen abwechseln. 


5.3.4 Das Lesen eines Datensatzes 


Analog zum Schreiben von Daten erfolgt deren Lesen. Wenn wir davon ausgehen, daß die Daten 
als Zeichenkette mit dem RETURN-Zeichen am Ende abgespeichert wurden, dann kann ein 
Datensatz ganz einfach mit INPUT# wieder eingelesen werden. Ansonsten verwendet man den 
GET#-Befehl, wobei eine Abfrage auf das Leerbyte 255 in jedem Datensatz dafür sorgt, daß das 
Lesen bei kürzeren Zeichenketten rechtzeitig abgebrochen wird. Bei kürzeren Zeichenketten ist 
nämlich der Rest des Datensatzes immer noch mit 255 ($ff) Bytes gefüllt. Zuerst das Beispiel mit 
INPUTE#: 





10 OPEN 1,8,2,"ADRESSEN,L" 

20 OPEN 2,8,15 

30 PRINT#2, "P"CHR$ (2+96)CHR$S (10O)CHR$(O)CHRS (1) 
40 INPUT#1,A$ 
50 PRINT A$ 
60 CLOSEl: CLOSE2 



































bezieh ungsweise 





10 DOPEN#1, "ADRESSEH" 
20 RECORD#1,10,1 

30 IHPUT#1,A$ 

40 PRINT AS 
50 DCLOSE# 



































für BASIC 7.0. Der Datenzeiger wurde so positioniert, daß der gleiche Datensatz ausgelesen 
wird, der zuvor geschrieben wurde. Dieses Auslesen muß natürlich in einem Programm erfolgen, 
da ein INPUT im Direktmodus nicht erlaubt ist. Bei beiden Programmen muß der folgende 
Bildschirmausdruck erscheinen: 











HUBERT MEIERHERZOGWEG 49999 BEISPIEL 
READY. 
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Mit einem entsprechenden Rahmenprogramm kann man jetzt die Einzelheiten des Datensatzes 
wieder in Namen und Adresse zerlegen und mit dem Beispiel aus Abschnitt 5.3.3 eine komplette 
Adreßverwaltung schreiben. 


Nun noch das Beispiel mit GET#. Wir haben die vorherige Zeichenkette mit dem RETURN- 
Zeichen 13 ($0d) auf die Diskette geschrieben, deshalb fragt das Programm nach 13 als 
Endekennzeichen. Im anderen Fall, wenn wir die Zeichenkette mit einem PRINT# und 
abschließendem Semikolon geschrieben hätten, müßte der Computer das Leerkennzeichen als 
Endekennzeichen abfragen. Eines muß ja auf jeden Fall vorhanden sein, da wir eine 
Datensatzlänge von 41 angegeben haben und mit 40 Zeichen pro Datensatz arbeiten: 





10 OPEN 1,8,2,"ADRESSEN,L": RE$="" 

20 OPEN 2,8,15 

30 PRINT#2,"P"CHRS (2+96)CHRS (10)CHRS$S(O)CHRS$S (1) 

40 GET#1,AS$ 

50 IF AS=CHRS (13) THEN 60: REM IF AS=CHRS (255) THEN 60 
60 RES=RES+AS$S: GOTO 40 

’0 PRINT RES 

80 CLOSE 1: CLOSE 2 













































































beziehungsweise 





10 DOPEN#1, "ADRESSEN" 
20 RECORD#1,10,1 
30 RES="" 
GET#1,AS 
50 IF AS=CHRS (13) THEN 60: REM IF AS=CHRS (255) THEN 60 
60 RES=RES+AS$S: GOTO 40 
’0O PRINT RES 
80 DCLOSE#1 






























































für BASIC 7.0. In Zeile 50 müssen Sie sich also jeweils entscheiden, ob Sie auf das RETURN- 
Zeichen oder auf das Leerzeichen achten. 


Wie Sie sehen, läßt sich mit einer relativen Datei recht gut leben; vor allem unter BASIC 7.0. 
Haben Sie sich einmal eine riesige Datei angelegt, dann werden Sie vor allem in den Genuß der 
Geschwindigkeit dieser Datenverarbeitungsmethode kommen. Während Sie bei der sequentiellen 
Datei jeden Buchstaben erst einmal überspringen müssen, können Sie bei der relativen Datei 
direkt auf jeden Eintrag zugreifen. Eine Voraussetzung dabei ist allerdings zu beachten. Die 
relative Datei ist nur dann effektiv, wenn die Datensätze sortiert vorliegen, das heißt, daß Sie sich 
die Datensatznummer eines Eintrags zum Beispiel aus der Nummer eines anderen Eintrags er- 
rechnen können und dann direkt zugreifen. Müssen Sie einen Datensatz erst 
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suchen, weil ein wirres Durcheinander vorherrscht, so kann auch die relative Datei nicht zaubern; 
dann braucht eben alles seine Zeit. 


5.4 Die Programmdatei (PRG) 


Diese Datei zu erwähnen ist fast überflüssig, da wir wohl meistens damit arbeiten. Man kann 
jedoch nicht nur LOAD und SAVE darauf anwenden. 


5.4.1 Das Inhaltsverzeichnis als Programmdatei 
Wie Sie das Inhaltsverzeichnis bzw. Directory unter BASIC 2.0 laden können, das wissen Sie ja: 
LOAD"S" ‚8... 


Das heißt aber, daß das Inhaltsverzeichnis einem Programm entspricht. Die Floppy verwaltet das 
Directory intern auf eine andere Weise als die übrigen Programmdateien. Sie richtet es in einer 
Art her, daß der Computer "meint", er habe es mit einem BASIC-Programm zu tun. 


Diese Eigenschaft des Directory kann mit dem Wissen über die Dateitypen der 1570/71 zunutze 
machen. Es wurde schon einmal angesprochen, daß beim C64 das Laden des Directory jedesmal 
mit einem Programmverlust verbunden ist. Wir wollen nun einmal sehen, wie wir das Directory 
auf einem C64 anzeigen können, ohne daß ein Programm dadurch verloren geht. Diese 
Möglichkeit kann zum Beispiel in einem BASIC-Programm mit Diskettenbetrieb verwendet 
werden, damit der Benutzer jedesmal nachsehen kann, was für eine Diskette er eingelegt hat. 


Das einzige, was Sie zu diesem Thema noch wissen müssen, ist, wie ein BASIC- Programm im 
Speicher des Computers aussieht. Das ist recht schnell erklärt. 


Der BASIC-Speicher beginnt beim C64 bei der Adresse 2049, was hexadezimal $0801 
entspricht. An dieser Adresse beginnt die erste BASIC-Zeile. Jede Zeile besteht zuerst aus 2 
Bytes, die die Adresse der nächsten BASICZeile angeben. Existiert keine weitere BASIC-Zeile, 
stehen diese zwei Bytes auf $00. In der ersten Zeile steht also die Adresse der nächsten BASIC- 
Zeile bei $0801 und $0802; und zwar zuerst das niederwertige (Lo-) Byte und dann das 
höherwertige (Hi-) Byte. Anschließend folgen wieder zwei Bytes, die die Zeilennummer bilden. 
In diesem Fall zuerst das Hiund dann das Lo-Byte. Die Adressen und Zeilennummern errechnen 
sich folgendermaßen (die Bytes in dezimaler Angabe): 
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Adresse = AdresseHi * 256 + AdresseLo 


Nummer = NummerHi * 256 + NummerLo 


Nach diesen 4 Bytes der BASIC-Zeile folgt der eigentliche BASIC-Text, der durch ein Nullbyte 
($00) abgeschlossen wird. Danach folgt die zweite Zeile und so weiter... 


Das Ende eines BASIC-Programms besteht also aus drei hintereinander stehenden Nullbytes: das 
Ende der letzten BASIC-Zeile und die Adresse der nächsten Zeile, die ja aus zwei Nullbytes 
besteht, wenn keine Zeile folgt. 


5.4.2 Anzeige des Inhaltsverzeichnis unter BASIC 2.0 


Die Kenntnis über den Aufbau eines BASIC-Programms ist notwendig, wenn wir uns das 
Directory mit einem Programm anzeigen lassen wollen. 


Zu diesem Zweck eröffnen wir das Inhaltsverzeichnis als Programmdatei und lesen dessen Daten 
mit GET# aus (wie aus einer sequentiellen Datei, da der Aufbau fast identisch ist). Wir müssen 
dabei nur den Aufbau eines BASIC-Programms berücksichtigen, da wir erstens wissen müssen, 
wann das Directory zu Ende ist und da wir zweitens die Adressen, die zwischen zwei BASIC- 
Programmzeilen stehen, ausfiltern müssen - sie gehören ja nicht zur eigentlichen Information des 
Directory. Schließlich müssen wir noch die Zeilennummern umrechnen und als Blockanzahl der 
einzelnen Dateien ausgeben. 


Das folgende BASIC-Programm sollten Sie sich einmal ansehen. Es holt die Daten aus dem 
Directory und zeigt sie auf dem Bildschirm an. Durch seine Kompaktheit ist es für einen Einbau 
in ein größeres Programm wie geschaffen. 


Wie Sie sehen, wird die Directorydatei im Programm nicht mit 


OPEN 1,8,2,"$,P,R" 





geöffnet, sondern mit 





OPEN 1,8,0,"$" 


In Kapitel 3 haben wir schon gelernt, daß so etwas bei PRG-Dateien möglich ist, da die 
Kanalnummern O und 1 für PRG-Dateien reserviert sind und demzufolge immer eine PRG-Datei 
angenommen wird, wenn keine andere Angabe gemacht wird. Die Kanalnummer 0 entspricht 
dabei dem ",P,R" und die Kanalnummer 1 dem ",P,W". Nun aber zum Programm: 


5.5 Einige Zusatzbemerkungen zur Dateibehandlung 77 





1000 OPEN 1,8,0,"$": GET#1,A$: GET#1,AS 

010 GET#1,D$: GET#1,A$: PRINT VAL(DS) 

1020 FOR x=0 TO 27: GET#1,A$: PRINT A$;: NEXT: PRINT 
030 IF ST=64 THEM 1080 

1040 GET#1,A$: GET#1,AS 

1050 GET#1,ZL$: GET#1,ZHS 

1060 PRIMT ASC(ZL$S+CHRS (0) ) +256*ASC (ZHS+CHR$S (0)); 
1070 FORX=0 TO 27: GET#1,A$: PRINT A$;: NEXT: PRINT 
1080 GOTO 1030 

1090 CLOSE 1 































































































Es kann durchaus sein, daß Sie in diesem Programm noch nicht alle Einzelheiten verstehen. Wir 
werden jedoch im nächsten Kapitel auf den Aufbau von Dateien und auch vom Directory und der 
BAM eingehen; danach müßte sich der Schleier eigentlich heben. 


5.5 Einige Zusatzbemerkungen zur Dateibehandlung 


Wie Sie sehen, kann man im Prinzip alle Dateitypen der 1570/71, außer den relativen Dateien, 
gleich behandeln. Das liegt an der internen Bearbeitung der Dateien durch die Floppy und an dem 
Aufbau der einzelnen Dateitypen. Wie wir im nächsten Kapitel sehen werden, sind die Dateien 
im Aufbau nämlich relativ ähnlich. 


Nun noch etwas zum Öffnen von Dateien und/oder Kanälen bei der 1570/71. Bei relativen 
Dateien haben wir schon einmal 2 Kanäle gleichzeitig geöffnet, nämlich den Kommandokanal 
und den Kanal für die relative Datei. Im Prinzip kann man auch mehrere Dateien gleichzeitig 
öffnen. Das sind 


3 Dateien bei PRG, SEQ oder USR - Dateien 
1 Datei bei REL-Dateien 
l REL-Datei und eine Datei anderen Typs 


Sie können also drei sequentielle Dateien gleichzeitig offenhalten und bearbeiten, während nur 
eine einzige relative Datei offen sein darf. 


Diese Zahlen hängen mit den schon erwähnten Pufferspeichern der Floppy zusammen. Die 
Floppy hat insgesamt 2 KByte RAM. Dieser ist unter anderem in fünf Pufferspeicher zu je 256 
Byte Größe aufgeteilt. 


Wenn eine sequentielle oder eine Programmdatei eröffnet wird, "verschlingt" das jeweils einen 
Pufferspeicher, wobei noch zwei andere für die übrige Organisation benötigt werden. Es können 
also drei Dateien geöffnet werden. 
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Eine relative Datei benötigt indessen drei Pufferspeicher und einen weiteren für die übrige 
Organisation. Deshalb kann zu einer relativen Datei nur maximal ein anderer Dateityp geöffnet 
werden; dann ist der gesamte Pufferspeicher belegt. 


Öffnen Sie einmal aus Versehen zuviele Dateien, dann meldet sich die Floppy mit der 
Fehlermeldung 70, NO CHANNEL,00,00, die besagt, daß kein weiterer Kanal mehr reserviert 
werden Kann. 
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6 Die Organisation einer Diskette 


Die folgenden Abschnitte dieses Buches sollen Ihnen die Arbeitsweise des Betriebssystems der 
1570/71 (DOS 3.0) ein wenig deutlicher machen. Dazu nehmen wir die Organisation einer 
Diskette, das heißt den Aufbau der BAM, des Directory und der einzelnen Dateien einmal 
genauer unter die Lupe, wobei wir mit der BAM anfangen wollen. Den Sinn und Zweck dieser 
Einrichtung haben Sie ja schon kennengelernt. Jetzt wollen wir die Organisation in Block 18,0 
genauer betrachten. 


6.1 Der Aufbau von Block 18,0 (BAM) 


Wie Sie sicherlich noch wissen, ist in der BAM das Verzeichnis über belegte und freie 
Blöcke/Sektoren der entsprechenden Diskette abgelegt. Tabelle 6.1 zeigt die Bedeutung der 
einzelnen Bytes dieses Sektors für den Betrieb der 1570/71: 


Byte Bedeutung 

000 enthält 18 ($12); Spurnummer für Diredory 

001 enthält 1 ($01); Startsektor für Diredory 

002 enthält 65 ($41); Formatkennzeichen "A" 

003 Flag für doppelseitige Disketten (1 = doppelseitige Disk, keine Bedeutung 
im 1541-Modus) 

004 Anzahl der freien Blöcke/Sektoren für Spur 1 


005-007 Bitmuster der Blockbelegung für Spur 1: 
Bit=1 bedeutet "Sektor/Block frei" 
Bit=0 bedeutet "Sektor/Block belegt" 
Byte 005 enthält die Belegung für Sektor 0 - 7 
Byte 006 enthält die Belegung für Sektor 8 - 16 
Byte 007 enthält die Belegung für Sektor 17 - 23 
(Sektor 21-23 sind natürlich nie vorhanden) 
008-011 s.o. 004-007 für Spur 2 


140-143 s.0. 004-007 für Spur 35 
Diskettenname, der bei der Formatierung angegeben wird; aufgefüllt mit 160 
144-159 ($a0) 
160-161 zweimal 160 ($a0) SHIFT SPACE 
162-163 ID der Diskette 
164 160 ($a0) SHIFT SPACE 
165-166 $32 und $41 "2A"; Formatangabe der Diskette, wobei es eigentlich "3A" 
heißen müßte, da die 1570/1571 mit DOS 3.0 arbeitet 
167-170 160 ($aO) SHIFT SPACE 
171-179 $00 bei 1541-Modus; $ao bei 1570/71-Modus 
180-220 0 ($00); nicht benutzter Bereich 
221-255 1541/1570: restlicher Bereich nicht verwendet ... 
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bei 1571: 

221-237 Anzahl der freien Blöcke für Spur 36-52 

238 Anzahl der freien Blöcke für Spur 53 (immer 0) 
239-244 Anzahl der freien Blöcke für Spur 54-59 
245-250 Anzahl der freien Blöcke für Spur 60-65 
251-255 Anzahl der freien Blöcke für Spur 66-70 


Die 1571 enthält zusätzlich noch ein Verzeichnis in Block 53,0: 


Byte Bedeutung 

000 enthält 0 ($00) 

001-003 s.0. 005-007 für Spur 36 

102-104 s.0. 005-007 für Spur 70 

105-255 restlicher Bereich nicht verwendet 


Tabelle 6.1 Aufbau der BAM bei der 1541/1570/1571 


Die Belegungstabelle spricht eigentlich für sich. Hier sind jedoch noch ein paar kleine 
Anmerkungen: 


Die Bytes O und 1 eines jeden Sektors haben in der Regel eine Bedeutung, auf die wir nachher - 
beim Aufbau der Dateien - noch intensiver eingehen werden. Sie zeigen normalerweise immer 
auf den nächsten Sektor einer Datei, in diesem Fall auf den ersten Sektor des Directory, daBAM 
und Inhaltsverzeichnis eine zusammengehörige Einheit darstellen. 


Die Bytes 004 bis 007 stellen eine der Vier-Byte-Einheiten dar, die die Blockbelegung für jeden 
Track bzw. jede Spur anzeigen. Ein gesetztes Bit heißt dabei "Block frei", während ein gelöschtes 
Bit auf einen belegten Sektor hindeutet. Da in diesem Bitmuster 24 Sektoren Platz haben 
(Sektoren 0 bis 23), wir jedoch über maximal 21 Sektoren pro Spur verfügen, sind die Bits für die 
Sektoren 21 bis 23 generell gelöscht (Block belegt). Das erste Byte der Vier-Byte-Einheit stellt 
jeweils die Summe der gesetzten Bits, also die Anzahl der freien Blöcke für eine Spur dar. Dieser 
Belegungsplan gilt für sämtliche Spuren einer Diskette auf der 1570/71. Spur 18 hat dabei stets 
die Kapazität 0, das heißt keinen Block frei, da hier die BAM und das Inhaltsverzeichnis stehen. 
Bei der 1571 gilt das gleiche für Spur 53. 
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6.2 Der Aufbau des Directory (Block 18,1 ...) 


Nun soll uns der Aufbau des Inhaltsverzeichnisses der Diskette interessieren. In jedem Sektor auf 
Spur 18 (außer 18,0) können acht Dateieinträge, das heißt acht Dateinamen mit Parametern, 
abgespeichert werden. Da auf Spur 18 noch 18 Sektoren (18,1 bis 18,18) frei sind, entspricht das 
einer Kapazität von 18*8=144 Einträgen. Tabelle 6.2 zeigt den Aufbau eines Directoryblocks. 


Byte 
000 

001 
002-031 
034-063 
066-095 
098-121 
130-159 
162-191 
194-223 
226-255 


Bedeutung 

Spurnummer des nächsten Directoryblocks; ggf. 0 
Sektornummer des nächsten Directoryblocks 
Eintrag der 1. Datei 

Eintrag der 2. Datei 

Eintrag der 3. Datei 

Eintrag der 4. Datei 

Eintrag der 5. Datei 

Eintrag der 6. Datei 

Eintrag der 1. Datei 

Eintrag der 8. Datei 


Tabelle 6.2 Aufbau eines Blocks des Directory 


Ein Directory-Eintrag ist folgendermaßen aufgebaut: 


Byte 
000 


001-002 
003-018 
019-020 
021 

022-025 
026-027 
028-029 


Bedeutung 


Kennzeichen des Dateityps; die Bits haben dabei folgende Bedeutung: 
Bit 0: die Bits 0-3 kennzeichnen den Dateityp: 

Bit 1: 0000 - DEL 0011 - USR 

Bit 2: 0001 - SEQ 0100 - REL 

Bit 3: 0010 - PRG 

Bit 4: keine Bedeutung 

Bit 5: keine Bedeutung 

Bit 6: Bit=1 zeigt SCRATCH-Schutz an 

Bit 1: Bit=0 zigt offene (ungültige) Datei an; dieses Bit muß also 
normalerweise immer auf 1 stehen. 

Spur und Sektor des ersten Blocks der Datei 

Dateiname; mit 160 ($a0) aufgefüllt 

Spur und Sektor des ersten Side-Sektor-Blocks (nur bei relativen Dateien) 
Recordlänge (nur bei relativen Dateien) 

Zwischenspeicher bei DOS-Operationen 

Spur und Sektor der neuen Datei beim Überschreiben mit REPLACE (@) 
Anzahl der Blöcke der Datei (L/H) 


Tabelle 6.3 Struktur eines Dateieintrags im Directory 


Zur Struktur der Dateieinträge einige Erklärungen: 


Wie Sie sehen, besteht der Dateityp aus einzelnen Bits, die alle eine bestimmte Bedeutung haben. 
Die Bits 0 bis 3 bestimmen den Dateityp. Inter 
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essant sind für uns auch die Bits 6 und 7. Bit 6 enthält eine Funktion, die das Schützen einer 
Datei vor dem SCRATCH-Befehl erlaubt. Ist dieses Bit gesetzt, so erscheint im Directory ein "<" 
hinter der Angabe des Dateityps und der SCRATCH-Befehl wird unwirksam. 


Bit 7 kennzeichnet eine nicht ordnungsgemäß geschlossene Datei. An dieser Stelle müßte Ihnen 
eigentlich sofort Kapitel 5.1.3 ins Gedächtnis kommen. Dort haben wir die Wichtigkeit des 
CLOSE-Befehls nach dem Bearbeiten einer Datei kennengelernt. Wird dieser CLOSE-Befehl 
nicht eingesetzt, so bleibt Bit 7 im Dateityp gelöscht, was sich durch ein Sternchen vor dem Typ 
im Directory äußert. Wir werden später eine Möglichkeit kennenlernen, die einen solchen 
"Defekt" nachträglich beheben kann (indem das betreffende Bit gesetzt wird). Voraussetzung ist 
allerdings, daß bis dahin kein weiterer Schreibzugriff auf die Diskette erfolgt. Wollen Sie eine 
solche offengebliebene Datei löschen, so müssen Sie dafür den VALIDA TE-Befehl (siehe 4.3) 
verwenden. 


Wie Sie sehen, bedeutet auch eine DEL-Datei (also eine gelöschte Datei) nichts weiter, als einen 
bestimmten Dateityp. Genauso wie der NEW-Befehl im Computer funktioniert auch der 
SCRATCH-Befehl in der Floppy. Es wird lediglich der Dateityp auf $00 gesetzt und die Blöcke 
dieser Datei in der BAM wieder freigegeben. Findet nun kein weiterer Schreibzugriff auf die 
Diskette statt, so kann man den SCRATCH-Befehl jederzeit durch Setzen des ursprünglichen 
Dateityps wieder rückgängig machen (genauso wie ein OLD beim Computer ein BASIC- 
Programm wieder restaurieren kann). Wir werden auch das später noch genauer erläutern. 


6.2.1 Der REPLACE-Befehl (@:;) 


Wie Sie aus der Bedeutung der Bytes 26 und 27 ersehen können, existiert bei der 1570/71 ein 
Befehl, der das Überschreiben einer "alten" Datei durch eine neue gleichen Namens erlaubt. 
Dieser Befehl nennt sich REPLACE und wurde in diesem Buch bisher deshalb nicht erläutert, da 
er einen ganz fatalen Betriebssystemfehler enthält, der unter Umständen mehrere Dateien auf 
einer Diskette zerstören kann. Es wird daher an dieser Stelle ausdrücklich empfohlen, den Befehl 
nicht anzuwenden, sondern ihn durch die Kombination SCRATCH und anschließendes 
Neuschreiben der Datei zu ersetzen. Anderslautende Meldungen, die besagen, daß der Fehler 
inzwischen von Commodore behoben wurde, entsprechen nicht den Tatsachen; sie übersehen nur 
den Effekt, daß dieser Fehler ganz sporadisch auftreten kann und nur selten (dann aber gründlich) 
Disketten zerstört. Die Kombination SCRA TCH und normales neues Abspeichern ist in jedem 
Fall sicherer. Wer den Befehl dennoch ausprobieren möchte, für den ist hier kurz 
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die Syntax dargestellt: Der Unterschied zum normalen Abspeichern besteht im Setzen eines 
@drive#: vor den Dateinamen, zum Beispiel 








DSAVE "@:UEBERSCHREIBEN" 
SAVE "@O:TEST",8 
OPEN "@:SEQ-FILE, SW" 
























































Es wird dann automatisch die bisher vorhandene Datei gleichen Namens mit der neuen Datei 
überschrieben, wobei zuerst die neue Datei vollständig auf Diskette geschrieben und dann die 
"alte" gelöscht wird. 


6.3 Der Aufbau von Dateien auf der Diskette 


Nachdem wir nun über den Aufbau der BAM und des Directory informiert sind, interessiert uns 
natürlich auch der Aufbau der einzelnen Dateitypen. Dieser ist bei allen Typen ähnlich 
(ausgenommen relative Dateien) und sehr einfach. Die einzige Angabe, die dabei im 
Inhaltsverzeichnis enthalten ist, ist die Spur- und Sektornummer des jeweils ersten Blocks in der 
Datei. 


6.3.1 Der Aufbau von sequentiellen Dateien (SEQ) 


Die sequentiellen Dateien haben den einfachsten Aufbau aller Dateitypen, der jedoch einem ganz 
bestimmten Schema der Blockverkettung entspricht. Diese Blockverkettung ist grundlegend für 
das Commodore-Diskettenformat. 


6.3.1.1 Das Prinzip der Blockverkettung 


In einem Fall, nämlich beim Aufbau von Directory und BAM, haben wir uns schon die einzelnen 
Bytes von Sektoren angesehen. Dabei sind Ihnen die beiden ersten Bytes (0 und ]) sicher ganz 
besonders aufgefallen. Sie enthielten jeweils eine Spur- und eine Sektornummer. 


Dieser Aufbau eines Blocks/Sektors ist für die gesamte Diskette gleich. Wie Sie wissen, gibt es 
im Directory in jedem Dateieintrag zwei Bytes, die die Spur- und Sektornummer des jeweils 
ersten Blocks einer Datei angeben. Nun haben die meisten Dateien aber mehr als einen Block. 
Um den jeweils folgenden Block einer Datei zu finden, hat man bei Commodore vereinbart. die 
beiden ersten Bytes eines Blocks generell für die Spur- und Sektornummer des Folgeblocks zu 
reservieren. Dieses Prinzip nennt man "Linken" oder Blockverkettung. Die Spur- und 
Sektorangaben nennt man demzufolge Linkbytes oder Linker. 
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Wie unschwer zu erkennen ist, verringert sich dabei die Kapazität eines einzelnen Blocks auf nur 
mehr 254 Datenbytes; dafür ist jedoch ein sehr schnelles sequentielles Abarbeiten einer Datei 
möglich. 


Da aber jede Datei ein Ende hat, muß das DOS wissen, wann der letzte Block einer Datei gelesen 
wurde. Das Kennzeichen hierfür ist die Spurnummer des Folgeblocks, die jetzt auf Null ($00) 
steht (es gibt ja im Commodore-Format keine Spur 0). 


Nun muß aber dieser letzte Sektor nicht mehr voll belegt sein; er kann zum Beispiel nur noch 5 
Datenbytes enthalten. Um das zu erkennen, bekommt auch die Sektornummer des Folgeblocks 
im letzten Block eine andere Bedeutung; sie gibt jetzt an, wieviele Bytes dieses Blocks noch zur 
Datei gehören ($01 bis $fd). Die restlichen Bytes dieses Sektors sind wohl oder übel 
verschwendet. 


Das Laden der Daten einer Datei ist also recht einfach aber raffiniert gelöst. Es wurde schon 
erwähnt, daß die sequentielle Datei den einfachsten Aufbau aller Dateitypen hat. Sie besteht 
lediglich aus Blöcken, die durch die eben angesprochenen Linkbytes miteinander verknüpft sind. 
Das DOS liest nun jeweils einen Block der Datei in den Pufferspeicher. Werden mehr Daten 
benötigt, so wird der nächste Block der Datei anhand der Linker ebenfalls in den Puffer gelesen, 
und so weiter. Wenn das DOS auf eine Null als Spurnummer stößt, weiß es, daß die Datei zu 
Ende ist, und hört auf. 


6.3.1.2 Der Abstand der Sektoren beim Schreiben 


Wie Sie wissen, enthält eine Spur zum Beispiel 21 Sektoren, die der Reihe nach von O bis 20 
durchnummeriert sind, wobei Sektor 1 neben Sektor 0, Sektor 2 neben Sektor 1, ... und Sektor 0 
wiederum neben Sektor 20 liegt; damit ist der Kreis geschlossen. 


Wenn die Floppy nun ein Programm von der Diskette lädt, so ist es nicht möglich, die Sektoren 
direkt von der Diskette zum Computer zu übertragen. Es wird vielmehr der erste Block 
vollständig in den floppyinternen Pufferspeicher gelesen und erst danach zum Computer 
geschickt. Dann wird der zweite Block anhand des Linkers ebenfalls gelesen und zum Computer 
geschickt, und so weiter, bis das gesamte Programm geladen wurde. 


Nun benötigt dieses Schicken eines Blocks zum Computer natürlich eine gewisse Zeit, in der sich 
die Diskette jedoch weiterdreht. Aus diesem Grund wäre es zeitlich nicht sehr klug, wenn der 
Zeiger des nächsten Blocks direkt auf den physikalisch nächsten Block zeigen würde. Während 
der Übertragung des einen Sektors würde sich die Diskette nämlich so 
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weiterdrehen, daß der direkt im Anschluß kommende Sektor erst nach einer ganzen Umdrehung 
wieder gelesen werden könnte. 


Die Erfahrung zeigt jedoch, daß die Übertragung des Blocks vom Pufferspeicher der Floppy zum 
Computer im 1541-Modus etwa zweieinhalb Diskettenumdrehungen - die Diskette dreht sich 5 
mal in der Sekunde, das bedeutet also 1/2 Sekunde - und im 1570/71-Modus etwa eine Viertelum- 
drehung - das entspricht 1/20 Sekunde - benötigt. 


Aus diesem Grund legt man den Folgeblock im 1541-Modus im 10-Sektoren-Abstand und im 
1570/71-Modus im 6-Sektoren-Abstand an. Wenn wir also auf der 1571 eine Datei haben, die 
zufällig bei Sektor 17,0 beginnt, so werden beim Abspeichern die Zeiger auf die Folgesektoren, 
auf 17,6 und 17,12 und 17,18 und 17,3 und so weiter gelegt, so daß sich die Floppy nach dem 
Senden eines Blocks ziemlich genau vor dem Folgeblock befindet und diesen sofort - ohne langes 
Suchen - in den Pufferspeicher lesen kann. 


Auch im Directory existiert ein solcher Sektorabstand, der übrigens im englischen mit "sector 
interleave" bezeichnet wird. Dort wird jedoch meistens nur intern nach einem Dateinamen 
gesucht, so daß der Sektorabstand hier kürzer gewählt werden kann. Er beträgt in der Regel drei 
Sektoren, so daß auf Sektor 18,1 der Sektor 18,4 folgt, und so weiter... 


Um die Angaben nachprüfen zu können, müssen Sie sich noch ein wenig gedulden. Wir werden 
nämlich im nächsten Kapitel auf den Direktzugriff eingehen, und dort werden Sie unter anderem 
einen Diskettenmonitor an die Hand bekommen, der es Ihnen erlaubt, Disketten anzusehen und 
das Gesagte zu überprüfen. Außerdem werden Sie in die Lage versetzt, auf jedes Byte einer 
Diskette zuzugreifen, um eigene Eingriffe, wie das Schützen einer Datei vor SC RA TCH, 
vorzunehmen. 


Jetzt aber erst wieder zum Aufbau der einzelnen Dateitypen. 


6.3.2 Der Aufbau von Benutzer-Dateien (User-Files, USR) 


Dieser Dateityp entspricht, wie schon in Kapitel 5.2 besprochen, prinzipiell der sequentiellen 
Datei und wird nur anderen Aufgabengebieten zugewiesen. Er besteht, wie auch die sequentielle 
Datei, nur aus zusammengeketteten Sektoren, wobei jeder Sektor 254 Datenbytes aufnimmt. 


6.3.3 Der Aufbau von Programmdateien (PRG) 


Auch dieser Dateityp ist der sequentiellen Datei sehr ähnlich. Er 
unterscheidet sich lediglich im ersten Block jedes Programms. 
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Im ersten Block einer Programmdatei haben, im Gegensatz zur sequentiellen Datei, nur 252 
Bytes Platz, da weitere 2 Bytes für die Dateiverwaltung benötigt werden. Das sind die Bytes 2 
und 3, die in diesem Fall die Startadresse des Programms im Speicher des Computers enthalten 
(zuerst das Lo- und dann das Hi-Byte). Für die Floppy macht das intern zwar keinen Unterschied 
(ihr ist "egal", was in welchem Byte außer Byte O und 1 steht). Der Computer richtet sich jedoch 
sehr wohl danach: 


Bei LOAD"name",8,1 nimmt der Computer als Programmadresse im Speicher die Adresse, die er 
bei SAVE zur Floppy geschickt und auf Diskette geschrieben hat, also die Bytes 2 und 3. 


Lädt man dagegen mit LOAD"name",8, so ignoriert der Computer die Adresse, die im ersten 
Sektor der Programmdateien steht und nimmt als Adresse generell 2049 ($0801), da das der 
BASIC-Startadresse entspricht (beim C64). Beim Commodore 128 ist die BASIC-Startadresse 
entweder $1c01 (ohne HiRes-Grafic) oder $4001 (mit HiRes-Grafik). 


Wichtig ist in diesem Zusammenhang noch: der Computer hat von den Linkbytes der Sektoren 
(also Byte O0 und 1) "keine Ahnung". Sie werden nur von der Floppy benötigt. Das erste 
Datenbyte einer Datei ist für den Computer also jeweils das Byte 2. 


6.4 Der Aufbau von relativen Dateien (REL) 


Wegen der unterschiedlichen Arbeitsweise mit relativen Dateien im Gegensatz zu allen anderen 
Dateitypen ergibt sich fast zwangsläufig, daß dieser Dateityp auch einen anderen Aufbau besitzt, 
als beispielsweise eine sequentielle Datei. Dieser Aufbau ist um einiges komplexer und soll im 
folgenden besprochen werden. 


Wie Sie wissen, besteht eine relative Datei aus mehreren Datensätzen, die alle ein Länge bis zu 
254 Bytes haben können. Die Längenangabe entspricht dabei genau dem Dateninhalt eines 
Sektors. Sie schließen daraus ganz richtig, daß ein Datensatz in einer relativen Datei maximal 1 
Sektor lang sein darf. 


Zur Verwaltung einer relativen Datei benötigt die Floppy jedoch noch einen Zusatz, dem wir uns 
zuerst widmen wollen. 


6.4.1 Die Funktion des Side-Sektors 


Bei einer relativen Datei Kann, auf jeden beliebigen Datensatz nur durch die Angabe der Nummer 
dieses Datensatzes zugegriffen werden. Wie weiß 
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die Floppy aber nun, wo dieser Datensatz auf der Diskette steht? Theoretisch könnte Sie die 
gesamte relative Datei anhand der Linker in den Date nb löcken nach dem gewünschten Record 
durchsuchen. Diese Methode wäre jedoch sehr zeitaufwendig und würde den Zeitvorteil der 
relativen Datenverarbeitung gegenüber der sequentiellen Verarbeitung wieder zunichte machen. 
Aus diesem Grund geht man einen anderen Weg. 


Die Floppy legt neben der Sektorfolge der Datensätze noch einen sogenannten Side-Sektor an. 


Wie Sie aus Abschnitt 6.2 wissen, steht bei relativen Dateien im Dateieintrag noch zusätzlich die 
Angabe der Recordlänge und die Spur- und Sektornummer des ersten Side-Sektor-Blocks. 


Ein Side-Sektor ist eine Tabelle, die die Positionen der einzelnen Datensätze auf der Diskette 
angibt. Das heißt im Klartext, für jeden Datensatz der relativen Datei ist im Side-Sektor eine 
Spur- und eine Sektornummer abgelegt, die den Block auf der Diskette angibt, in dem der 
gewünschte Datensatz zu finden ist. Ein Side-Sektor-Block kann dabei bis zu 120 Einträge 
aufnehmen. Werden mehr Angaben benötigt, so legt die Floppy einen weiteren der 6 möglichen 
Side-Sektor-Blöcke an. Die Gesamtheit aller dieser Side-Sektor-Blöcke bildet dann den Side- 
Sektor. 


Aus diesen Faktoren errechnet sich auch die maximale Kapazität einer relativen Datei. Sie Kann 
aus 6* 120=720 Datensätzen bestehen. Jeder Datensatz kann dabei bis zu 254 Bytes lang sein. 
Das entspricht einer Maximalzahl von 182880 Bytes pro relativer Datei. 


Tabelle 6.4 zeigt den genauen Aufbau eines solchen Side-Sektors-Blocks. 


Byte Bedeutung 

000 Spurnummer des nächsten Side-Sektor-Blocks 

001 Sektornummer des nächsten Side-Sektor- Blocks 

002 Nummer dieses Side-Sektor-Blocks (0 bis 5) 

003 Recordlänge in der Datei 

004-015 Spur- und Sektornummern der übrigen angelegten Side-Sektor-Blöcke; 
sie sind O, wenn der entsprechende Block nicht angelegt 
worden ist. 

016-255 Verzeichnis der Spur- und Sektornummern für die entsprechenden 120 


(oder weniger) Datensätze 


Tabelle 6.4 Aufbau eines Side-Sektor-Blocks 


Die Spurnummer des folgenden Side-Sektor-Blocks steht natürlich auch 
hier auf 0, wenn kein weiterer Block vorhanden ist. 
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6.4.2 Wie die Floppy einen Datensatz findet 


Sie wissen nun, daß eine relative Datei im Prinzip aus einer sequentiellen Datei besteht, die noch 
zusätzlich einen Side-Sektor besitzt. Die Datenblöcke der relativen Datei sind genauso verkettet 
wie eine sequentielle Datei und besitzen jeweils 254 Datenbytes. 


Es stellt sich nun natürlich die Frage, wie die Floppy auf einen gewünschten Datensatz zugreift. 
Durch den Side-Sektor ist der relative Datenzugriff keine Suchangelegenheit mehr, sondern ein 
rein mathematisches Problem und Rechnen geht allemal schneller als ein Diskettenzugriff. 


Betrachten wir wieder die relative Datei aus Kapitel 5.3. Sie besitzt den Namen ADRESSEN und 
besteht aus 500 Datensätzen zu je 41 Bytes. Bedingt durch die Länge eines Records, können bei 
dieser Datei mehr als 6 Datensätze in einem Datenblock untergebracht werden, womit die Anzahl 
der benötigten Sektoren der Datei auf 81 festlegt ist. Dazu benötigen wir noch einen einzigen 
Side-Sektor-Block (er faßt theoretisch 120 Datenblöcke) und bekommen die Datei mit 82 
Blöcken auf Diskette. Wenn Sie sich das Directory ansehen, finden Sie das bestätigt. 


Wir wollen nun auf den 398. Datensatz zugreifen und in diesem Datensatz auf das 4. Byte. 
In der Floppy startet jetzt folgende Rechnung: 


Ein Datensatz besteht aus 41 Bytes. Wenn wir den 398. Datensatz benötigen, sind das bis dahin 
398*41=16318 Bytes. Dazu zählen wir noch 4 Bytes, da der Zeiger auf das 4. Byte positioniert 
werden soll. Das ergibt nun 16322 Bytes. Da ein Datenblock aus 254 Bytes besteht, errechnet 
sich die Nummer des betreffenden Blocks aus 16322/254=64 (das genaue Ergebnis beträgt 
ungefähr 64.259, wobei wir den Nachkommawert später noch benötigen, um die Byteposition im 
entsprechenden Datenblock festzustellen.). 


Unser Datensatz steht also im 64. Datenblock der relativen Datei. Anhand des Dateieintrags im 
Directory wird nun auf den benötigten Side-SektorBlock zugegriffen. In unserem Fall ist das nur 
einer. Hätten wir auf den 164. Block zugreifen wollen, so hätte sich der betreffende Side-Sektor- 
Block aus 164/120=1 (genauer: 1.367) errechnet, was dem zweiten SideSektor- Block entspricht. 


Wir müssen den entsprechenden Zeiger auf unseren Datenblock jedoch im ersten Side-Sektor- 
Block mit der Nummer 0 suchen, wobei sich die Byteposition aus 
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(64 * 2) + 16 = 144 


errechnet: plus 16, da die Tabelle im Side-Sektor-Block ab Byte 16 beginnt; mal 2, da jeder 
Eintrag in der Tabelle aus 2 Bytes (Spur und Sektor) besteht. Die Spur- und Sektornummer 
unseres Datenblocks steht also bei Position 144 und 145 in Side-Sektor-Block 0. 


Jetzt fehlt nur noch die Byteposition unseres Datensatzes im Datenblock. Dazu nehmen wir das 
Ergebnis unserer ersten Rechnung (64.259) und holen davon den Nachkommarest (0.259). Aus 
diesem Wert errechnen wir mit 


0,259 * 254 + 2 = 67,786 


die Position unseres Bytes im Datenblock, die also 68 beträgt. Das "+2" ist natürlich nötig, da die 
beiden ersten Bytes des Datenblocks keine Datenbytes, sondern Linker sind. 


Mit dieser Rechnung haben Sie die Position des Datensatzes also gefunden. Dies mag im ersten 
Augenblick zwar kompliziert erscheinen, ist es aber nicht. Es geht in der Praxis noch dazu um 
einiges schneller, als jedes andere Verfahren, da diese Rechnungen vom DOS der 1570/71 in ein 
paar Millisekunden erledigt sind. Das Durchsuchen der Diskettenblöcke und Durchzählen der 
Bytes hätte mehrere Sekunden benötigt. 


6.5 Der Aufbau von gelöschten Dateien (Deleted Files, DEL) 


Dieser Dateityp hat genaugenommen gar keinen Aufbau, da es sich hier um eine gelöschte Datei 
handelt. Da das Löschen einer Datei bei der Floppy aber lediglich durch Ändern des Dateityps 
und Freigeben der Sektoren in der BAM besteht, hat eine DEL-Datei natürlich immer den Aufbau 
der Datei, die gelöscht wurde. Ändert man den Dateityp "von Hand" wieder auf den vorherigen 
Wert und führt ein VALIDATE aus, damit die Sektoren der Datei wieder als belegt 
gekennzeichnet werden, so hat man den gesamten Vorgang des SCRATCH-Befehls wieder 
rückgängig gemacht. 


Eine Besonderheit dieses Dateityps darf aber dennoch nicht unerwähnt bleiben: wird ein 
SCRATCH durchgeführt, so sucht die Floppy im Inhaltsverzeichnis die betreffende Datei und 
ersetzt den bisherigen Dateityp (das erste Byte des Eintrags) durch 0 ($00). Das heißt eigentlich, 
daß es sich nun um eine DEL-Datei handelt, die nicht ordnungsgemäß geschlossen wurde (Bit 7 
des Dateityps steht auf 0). Will man sich nun das Inhaltsverzeichnis ansehen, so ist die gelöschte 
Datei nicht mehr darin vorhanden. 
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Mit einem Trick kann man die Anzeige einer DEL-Datei jedoch erzwingen. Dazu muß man das 
Bit 7 des Dateityps setzen (also den Dateityp auf ordnungsgemäß geschlossen stellen; entspricht 
128 bzw. $80). Im Directory erscheint die Datei nun wieder ganz normal; jedoch mit der 
Dateikennung DEL. 


Diesen letzten Vorschlag können Sie natürlich im Augenblick noch nicht praktizieren. Er 
motiviert Sie vielleicht ein bißchen für das folgende Kapitel, in dem wir uns dem Direktzugriff 
auf eine Diskette zuwenden. 


Mit dem Ende dieses Kapitels verlassen Sie nun endgültig die Abschnitte des Buches für den 
weniger versierten Anwender. Wir steigen nun sehr tief in die Interna der 1570/71 ein und 
werden Befehle und Geheimnisse entdecken, die Sie Ihrer Floppy im ersten Moment sicherlich 
nicht zugetraut haben. Erst diese Befehle jedoch machen die Floppy zu einem Gerät, das jede nur 
erdenkliche Anwendung unterstützen kann. 
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7 Der Direktzugriff auf die Floppy 1570/71 


Wir wollen uns nun mit dem Bereich der beiden Floppystationen beschäftigen, der wohl den 
größten Unterschied zu herkömmlichen Floppylaufwerken darstellen dürfte. Einige Befehle der 
1570/71 haben Sie schon kennengelernt. Diese Befehle stellen jedoch nur einen geringen Teil des 
tatsächlichen Befehlsvorrates der Floppy dar. 


Sie lernen jetzt Befehle kennen, die sich nicht mehr an eine Dateistruktur halten. Diese Befehle 
erlauben den direkten Zugriff auf die Diskette (auf jedes einzelne Byte) und auf das 
Betriebssystem der Floppy, das DOS. 


Zuerst wollen wir die Befehle behandeln, die sich mit dem Direktzugriff auf die Diskette 
beschäftigen. Wenn Sie einen solchen Befehl an die Floppy schicken, so muß von der Floppy 
intern ein Pufferspeicher bereitgestellt und ein Kanal reserviert werden. Das ist nötig, damit die 
Floppy den zu behandelnden Sektor in den Speicher liest und Sie danach die Inhalte dieses 
Sektors ungestört bearbeiten können. 


7.1 Das Eröffnen eines Direktzugriffs-Kanals 


Die folgenden Ausführungen dürften Sie sehr stark an die Arbeit mit Dateien erinnern. Auch hier 
wird nämlich eine Art Datei eröffnet, die jedoch nicht auf einer Diskette existiert, sondern 
lediglich für die interne FloppyOrganisation nötig ist. Diese Datei nennt sich Direktzugriffs-Datei 
und hat auch einen Namen, nämlich das Numerus-Zeichen "#". Wenn dieses Zeichen als 
Dateiname ankommt, dann stellt die Floppy sofort einen Puffer mit 256 Bytes Kapazität und 
einen Kanal für den Datenaustausch zur Verfügung. 


Die Syntax beim Eröffnen einer Direktzugriffs-Datei lautet: 











OPEN 1,geräte#, sekundär#, "#puffer" 





Dazu einige Beispiele: 


OPEN 1,8,2,"#" 
OPEN 3,9,3,"#0" 
OPEN 1,8,4,"#3" 
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In der Regel wird die zu bearbeitende Diskette nach dem Einlegen sofort initialisiert. Sie sollte 
sich also beim Eröffnen der Direktzugriffs-Datei schon im Laufwerk befinden. 


Wenn Sie die Syntax des Befehls noch einmal betrachten, so werden Sie feststellen, daß hinter 
dem Dateinamen noch eine Nummer angegeben werden kann. Mit dieser Nummer kann man der 
Floppy vorschreiben, welchen Puffer man für den Direktzugriff reservieren möchte (0 bis 3). 
Diese Angabe sollten Sie aber nur dann verwenden, wenn sie wirklich nötig ist (das kann bei 
späteren Anwendungen passieren); ansonsten sollten Sie die Zahl weglassen und der Floppy die 
Wahl des geeigneten Puffers überlassen. 


Der Rest des Eröffnens entspricht dem einer ganz normalen Datei, wobei wieder eine 
Kanalnummer zwischen 2 und 14 gewählt werden kann. 


Es sei an dieser Stelle darauf hingewiesen, daß das BASIC 7.0 die Direktzugriffs-Befehle nicht 
unterstützt. Hier müssen Sie also auf die Ebene des BASIC 2.0 heruntersteigen. 


Nun wollen wir uns aber den einzelnen Befehlen zuwenden, wobei zwei Kategorien 
unterschieden werden müssen: Die BLOCK-Befehle und die MEMORY -Befehle. Die BLOCK- 
Befehle beziehen sich immer auf einen Sektor der Diskette im Commodore-(GCR)-Format. 
Anschließend widmen wir uns den MEMORY-Befehlen, die für Anwendungen im Speicher der 
Floppy geschaffen sind. 


7.2 Der BIOCK-READ-Befehl (B-R, U1) 


Dieser Befehl erlaubt es Ihnen, einen beliebigen der 683 (1366) vorhandenen Sektoren einer 
Diskette in den reservierten Pufferspeicher zu lesen, wo er dann von Ihnen bearbeitet werden 
kann. Wie Sie sehen, können Sie auf sämtliche Blöcke der Diskette zugreifen, also auch auf die 
Spuren 13 und 53, die die BAM und das Directory beinhalten. Sie haben damit enorme 
Möglichkeiten, direkt auf die Organisation einer Diskette einzuwirken und diese bei 
entsprechender Behandlung zur bis absoluten Unkenntnis zu verstümmeln. Seien Sie also 
besonders vorsichtig, wenn Sie Disketten verwenden, die unter Umständen wichtige Daten 
beinhalten. 


Der BLOCK-READ-Befehl sieht folgendermaßen aus: 





B-R Kanal# Drive# Spur# Sektor# 


Da dieser Befehl jedoch eine, für unsere Zwecke unerwünschte, Begleiterscheinung hat (siehe 
auch "Fehler im DOS der 1570/71"), wird er durch 
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einen anderen Befehl ersetzt, der sich Ul nennt und dessen Syntax genau die gleiche ist: 
Ul Kanal# Drive# Spur# Sektor# 

Hierzu ein paar Beispiele: 

OPEN 1,8,15,"U1 2 0 18 0" 


PRINT#2, "Ul";Kanal;Drive;Track;Sector 
OPEN 8,8,15,"U1l 3 8";T;S 























Wie Sie an den Beispielen erkennen, handelt es sich natürlich auch bei den Direktzugriffs- 
Befehlen um Befehle, die über den Kommandokanal geschickt werden müssen, wobei jeder 
Befehl die Angabe der Nummer des Direktzugriffs- Kanals verlangt. (Sie können also auch 
mehrere gleichzeitig offenhalten.) 


Haben Sie den Block im Pufferspeicher, so können Sie dessen Inhalt mit GET# oder INPUT# 
einlesen, wobei bei INPUT# natürlich wieder auf die Stringlänge zu achten ist (siehe auch 5.2 
und 5.3). Das folgende kleine Programm liest die beiden ersten Bytes aus Block 18,0 einer 
Diskette und zeigt diese an. Wie Sie wissen, befindet sich in Block 18,0 die BAM einer Diskette, 
wobei die beiden ersten Bytes den Zeiger auf den ersten Block des nachfolgenden Directory 
enthalten (siehe auch 6.1). Das Ergebnis muß also im Normalfall die Zahlen 18 und 1 liefern. 


10 OPEN 1,8,2,"#": OPEN 2,8,15 




















20 PRINT#2,"Ul 2 0 18 0" 
30 GETB1,T$,S$ 

40 PRINT ASC(T$),ASC(S$) 
50 CLOSEl: CLOSE2 














Wenn Sie dieses Programm starten, muß folgender Ausdruck auf dem Bildschirm erscheinen, 
wenn an der eingelegten Diskette nichts manipuliert worden ist: 


18 1 


Wie Sie sehen, ist das Einlesen eines Sektors sehr einfach. Es gibt nur ein Problem im 
Zusammenhang von GET# und ASC. 


Der ASC-Befehl stellt die Umkehrung des CHR$-Befehls dar und wandelt demzufolge ein 
Zeichen wieder in einen Zahlenwert um. Aus dem Zeichen A wird also die Zahl 65, die dem 
Zeichen entspricht. Es gibt allerdings einen einzigen Zahlenwert, dem kein Zeichen zugeordnet 
ist. Das ist der Zahlenwert O0, der in der Datenübertragung zwischen verschiedenen Computern 
eine bestimmte Rolle spielt. Wenn dieser Wert von der Floppy an 
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den Computer gesendet wird, ist er nicht in der Lage, ein Zeichen in einer der beiden Variablen 
T$ oder S$ zu übergeben. Die Folge davon ist, daß die entsprechende Stringvariable keinen 
Inhalt erhält und einen sogenannten Leerstring "" bildet. 


Wenn der ASC-Befehl aber wiederum auf einen solchen Leerstring stößt, so ist die Folge ein 
ILLEGAL QUANTITY ERROR, der in unserem Fall in Zeile 40 auftreten würde. 


Aus diesem Grund muß in einer komplexeren Anwendung, in der Nullbytes von der Floppy 
gelesen werden Könnten, ein solcher Fehler verhindert werden. Das kann auf zwei Arten erfolgen: 


Sie können einmal eine Abfrage einbauen und auf ein Nullbyte entsprechend reagieren: 





357 TEN IS=""T SEHEN. % 








Andererseits gibt es noch eine viel elegantere Methode: 


40 PRINT ASC(T$S+CHR$(0)), ASC(SS+CHR(0)) 





Wie Sie sehen, wird jedem Zeichen, das von der Floppy kommt, das Nullbyte angehängt. Das 
ändert am Wert eines ASCII-Zeichens gar nichts; hat jedoch den Vorteil, daß der ASC-Befehl nie 
auf einen Leerstring stößt, da das CHR$(0) eindeutig einen Wert, nämlich O aufweist; auch, wenn 
dieser Wert nicht als Zeichen in einem String interpretiert werden kann. 


Außer dem Problem, das ein Leerstring hervorruft, gibt es noch eine weitere Unzulänglichkeit: 
Alle 100 davorliegenden Bytes müssen in den Computer eingelesen werden, wenn man den Wert 
des 101. Bytes erhalten will (siehe auch "sequentielle Datei"). 


Das muß jedoch nicht unbedingt sein. Für diesen Fall stellt die Floppy einen weiteren Befehl zur 
Verfügung. 


7.3 Der BUFFER-POINTER-Befehl (B-P) 


Dieses Kommando ermöglicht den Zugriff auf jedes beliebige Byte (O0 bis 255) innerhalb eines 
Puffers. Sie müssen lediglich die Nummer dieses Bytes angeben: 








B-P Kanal# Byte# 
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Wollen Sie also wie geschildert auf das 101. Byte zugreifen, so geben Sie folgende Zeile 
zusätzlich ein: 








PRINT#2,"B-P 2 181" 


Die Eigenschaft des Zeigers, den Sie mit diesem Befehl verändern können, sollten Sie sich 
einprägen. Er wird beim Lesen eines Blocks auf das Byte 0 des Puffers gestellt und erhöht sich 
bei jedem Lese- oder Schreibzugriff um 1. Wird der Wert 255 ($ff überschritten, so wird 
automatisch wieder bei 0 angefangen. Schreibzugriffe auf den eingelesenen Sektor erfolgen ge- 
nau analog zum Lesen: mit dem Positionieren auf das gewünschte Byte und einem Schreibzugriff 
mit dem PRINT#-Befehl. Hierbei müssen Sie wieder auf die Eigenarten des PRINT#-Befehls 
achten (siehe Kapitel 5). 


7.4 Der BLOCK-WRITE-Befehl (B-W) 


Natürlich existiert auch das Gegenstück zum Lesen eines Blocks, denn Sie wollen den geänderten 
Block selbstverständlich wieder abspeichern. Die Bedienung des B-W-Befehls erfolgt genau 
analog zum B-R-Befehl; so auch das Ersetzen dieses Befehls durch einen anderen, nämlich den 
U2- Befehl: 


U2 Kanal# Drive# Spur# Sektor# 
Ein paar Beispiele: 
PRINT#1,"U2 2 0 1 0" 


OPEN 3,8,15,"U2 2 0"+TRACK+SECTOR 
PRINT#3, "U2";2;8;18;1 














An dieser Stelle eine Anmerkung zu den Spur- und Sektornummern bei den eben besprochenen 
Befehlen. Für das Commodore-Format sind selbstverständlich die gegebenen Grenzen zu 
berücksichtigen; das heißt bei der 1570 eine Spurangabe von 1 bis 35 und bei der 1571 eine 
solche von 1 bis 70. Die Sektorzahlen richten sich dabei nach der entsprechenden Spurnummer 
und liegen zwischen O und 16, 17, 18 und 20. 


Anhand der Direktzugriffs-Befehle erfahren Sie auch ganz nebenbei, wie die Floppy auf einer 
Diskette arbeitet. Sie sehen, daß ein Sektor nie auf der Diskette geändert wird und auch keine 
einzelnen Bytes geschrieben oder gelesen werden. Es wird immer ein ganzer Sektor in den 
jeweiligen Pufferspeicher (der für alle Anwendungen gesondert reserviert wird) gelesen, dann 
abgeändert und wieder auf die Diskette geschrieben. 


Dazu noch ein kleines Beispiel für das Schreiben eines neuen Sektors: 
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10 OPEN 1,8,2,"U": OPEN 2,8,15 

20 PRINT#1, "DAS IST EIN TEST!!!" 
30 PRINT#2,"U2 2 0 1 0" 

40 CLOSE1l: CLOSE2 



































Hier wird die Zeichenkette "DAS IST EIN TEST!!!" in den reservierten Puffer und anschließend 
in Sektor O0 auf Spur 1 geschrieben. Da kein Semikolon am Ende des PRINT#-Befehls steht, wird 
hinter die Zeichenkette automatisch das RETURN-Zeichen 13 bzw. $0d angehängt, so daß der 
String mit INPUT# wieder eingelesen werden kann. 


7.5 Der BLOCK-ALLOCATE-Befehl (B-A) 


Wollen Sie künftig im Direktzugriff arbeiten, so darf auch dieser Befehl nicht fehlen. Sie dürfen 
nie vergessen, daß der Direktzugriff mit einer Datei nichts zu tun hat. Das heißt, alles, was Sie 
tun, geschieht ohne Einmischung des DOS. Aus diesem Grund werden natürlich die von Ihnen im 
Direktzugriff geschriebenen Sektoren auch nicht in die BAM eingetragen und im Directory unter 
einem Dateinamen abgelegt. 


Um eine Katastrophe größeren Ausmaßes zu verhindern, existiert daher der B-A-Befehl. Mit ihm 
ist es möglich, einen Block in der BAM als belegt zu kennzeichnen, so daß zukünftige 
Schreiboperationen auf der Diskette diesen Sektor nicht überschreiben können. Die Syntax dieses 
Befehls lautet: 


B-A Drive# Spur# Sektor# 





Dazu wieder einige Beispiele: 


OPEN 1,8,15,"B-A O0 1 0" 
PRINT#2,"B-A 0";T;S 




















Mit diesem Befehl können Sie jeden x-beliebigen Block auf der Diskette als belegt markieren. 
War der Block schon belegt, so geschieht nichts in dieser Hinsicht sondern die Floppy gibt die 
Fehlermeldung NO BLOCK aus. Zur Erklärung sehen Sie sich bitte im Anhang die Liste der 
FloppyFehlermeldungen an. 


Achtung: Eine Diskette, die durch Direktzugriff geschriebene und belegte Sektoren enthält, darf 
niemals mit dem VALIDA TE-Befehl (siehe 4.3) behandelt werden. Da die belegten Blöcke nicht 
im Directory eingetragen und miteinander verkettet (siehe 6.3.1.1) sind, werden sie durch den 
VALIDATE-Befehl wieder freigegeben und können dadurch später aus Versehen überschrieben 
werden. 


71.6 Der BLOCK-FREE-Befehl (B-F) 97 





7.6 Der BLOCK-FREE-Befehl (B-F) 


Dieser Befehl ist das genaue Gegenstück zum B-A-Befehl. Er ermöglicht das Wiederfreigeben 
eines belegten Blocks, um ihn für weitere Schreibzugriffe auf der Diskette zur Verfügung zu 
stellen. Sie können natürlich auch belegte Blöcke noch im Direktzugriff lesen, abändern und 
schreiben. Das Belegen von Blöcken hat nur den Sinn, daß die Dateiverwaltung des DOS diese 
Blöcke dann nicht mehr antastet. Ein Wiederfreigeben ist nur für die spätere Anwendung von 
Dateien sinnvoll und wird folgendermaßen durchgeführt: 


B-F Drive# Spur# Sektor# 





Die Anwendung erfolgt analog zum B-A-Befehl und bedarf keiner weiteren Erläuterung. 


7.7 Der MEMORY-READ-Befehl (M-R) 


Die MEMORY-Befehle beziehen sich direkt auf den Speicher der Floppy (sowohl RAM, als 
auch ROM und VO) und stellen keinen Diskettenzugriff dar. Aus diesem Grund ist auch das 
Eröffnen einer Direktzugriffs-Datei nicht erforderlich. Sämtliche Kommunikation erfolgt jetzt 
über den Kommandokanal. 


Die Syntax des M-R-Befehl lautet: 


M-R CHRS$S (ADL) CHR$(ADH) CHR$ (Anzahl) 


Dabei haben die Parameter folgende Bedeutung: 


ADL niederwertiges Byte der Speicheradresse 
ADH höherwertiges Byte der Speicheradresse 
Anzahl die Anzahl der zu lesenden Bytes (optional) 


Die Anzahl der zu lesenden Bytes kann auch weggelassen werden. In diesem Fall wird nur ein 
Byte ausgegeben. 


Einige Beispiele: 


OPEN 1,8,15,"M-R"+CHRS$ (0)+CHRS$ (3) +CHRS$ (10) 
PRINT#3, "M-R"CHRS (10)CHRS (0) 
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Da die 1570/71 einen Adreßraum von 65536 Byte besitzt, wir jedoch in einem Byte nur die 
Nummern O0 bis 255 unterbringen können, muß die Adreßangabe auf zwei Bytes aufgeteilt 
werden; das niederwertige Byte (ADL) und das höherwertige Byte (ADH). Die beiden Werte aus 
der Adresse A errechnen sich dabei wie folgt: 


ADH = INT(A/256) 
ADL = A AND 255 


Diese Rechenmethode müßte Ihnen noch aus Kapitel 5.3.2 geläufig sein, wo wir unter BASIC 2.0 
auf die gleiche Art die gewünschte Recordnummer zerlegt haben. Mit zwei Bytes können Sie 
nämlich den Bereich adressieren, den Sie benötigen: 0 bis 65535 ($0000 bis $ffff). 


Nun wollen wir einmal den Inhalt der Speicherstelle 500 ($01f4) auslesen. Hierzu rechnen wir: 
ADH = INT(500/256) = 1 
ADL = 500 AND 255 = 244 


Danach können Sie sich die Speicherstelle mit folgenden Zeilen ansehen: 


10 OPEN 1,8,15 
20 PRINT#1, "M-R"CHRS (244)CHR (1) 
30 GET#1,A$ 
P 
c 

















40 PRINT ASC(AS$S+CHRS (0)) 
50 ‚OSE 














Wie Sie sehen, werden alle aus dem Speicher gelesenen Werte direkt über den Kommandokanal 
an den Computer weitergegeben. Der M-R-Befehl entspricht also gewissermaßen dem PEEK- 
Befehl für die Floppystation. 


7.8 Der MEMORY-WRITE-Befehl (M-W) 


Nach dem PEEK-Befehl wünschen wir uns natürlich auch den POKE-Befehl für die 
Floppystation. 


Mit diesem Befehl können auf einmal bis zu maximal 34 Bytes in den Speicher der Floppy 
geschrieben werden. Wohin Sie diese Bytes schreiben, bleibt Ihnen überlassen und führt 
garantiert früher oder später zum Absturz der Floppy. Sie sollten sich deshalb im nächsten 
Kapitel noch ein wenig intensiver mit der Bedeutung der unterschiedlichen Speicherbereiche 
beschäftigen. Jetzt kommen wir aber zur Syntax des M-W-Befehls: 
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M-W CHRS (ADL) CHR$(ADH) CHR$ (Anzahl) CHR$S (DATAl) CHRS (DATA2) 


Die drei ersten Parameter dürften Ihnen dabei schon bekannt sein; neu sind die restlichen Bytes. 
Es handelt sich hierbei um die Datenbytes, deren Anzahl vom dritten Parameter (Anzahl) 
abhängt. Hier geben Sie also nicht an, wieviele Bytes Sie lesen wollen, sondern vielmehr, 
wieviele Bytes in den Speicher der Floppy geschrieben werden sollen. Es können maximal 34 
Bytes auf einmal angegeben werden, da der Eingabepuffer der Floppy nicht mehr Zeichen 
aufnehmen kann. 


Natürlich wollen Sie auch ein Anwendungsbeispiel für diesen Befehl sehen. Wie Sie wissen, 
können Sie bei der 1570/71 die Gerätenummer durch Schalter im Bereich von 8 bis 11 einstellen. 
Das kann aber auch softwaremäßig, also mit einem Programm geschehen. Im Fall der 1570 
ersparen Sie sich so das Aufschrauben des Gehäuses. Die Nummer sei in der Variablen N zu 
übergeben und betrage zwischen 8 und 11: 


OPEN 1,8,15 
PRINT#1,"M-W" CHRS (119)CHRS (O)CHRS (2)CHRS (32+N) CHRS (64+N) 
CLOSE 1 

















Die so eingestellte Nummer bleibt bis zu einem RESET oder dem Ausschalten der Floppy 
erhalten. Wie Sie sicherlich bemerken, müssen an die Floppy zwei Nummern übergeben werden 
(einmal in Speicherstelle 119 ($77) und einmal in 120 ($78). Das liegt daran, daß die Floppy 
sowohl für das Empfangen von Daten, als auch für das Senden von Daten jeweils eine eigene 
Nummer besitzt. 


7.9 Der MEMORY-EXECUTE-Befehl (M-E) 


Dieser und die noch folgenden Befehle dieses Kapitels stellen uns auf eine neue Stufe in der 
Programmierung der Floppystation. Es geht nun darum, analog zum SYS-Befehl im Computer, 
Maschinenprogramme in der Floppy ausführen zu lassen. Alle diejenigen, die sich noch nie mit 
Maschinensprache befaßt haben, sollten sich nicht scheuen, sich möglichst bald damit zu 
beschäftigen, um in den Genuß der nun folgenden, sehr leistungsfähigen, Befehle zu kommen. 
Wie auch der Computer, besitzt die 1570/71 einen eigenen Mikroprozessor. Es handelt sich 
hierbei um den Typ 6502, dessen Assemblersprache vollkommen identisch mit der des C64 oder 
C128 ist. 


Wenn Sie die Maschinensprache noch nicht beherrschen, so müssen Sie das Buch nun nicht 
gleich zur Seite legen. Wir werden nämlich noch Themen 
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besprechen, die Ihnen zumindest schon einen kleinen Einblick in die Funktionsweise eines 
Prozessorsystems geben. Dadurch wird Ihnen der Einstieg vielleicht ein wenig erleichtert. 


Sind Sie der Maschinensprache jedoch mächtig und haben Sie auch schon Erfahrung gesammelt, 
so sollten Sie sich schon jetzt einmal auf die zwangsläufig kommende Bearbeitung des 
dokumentierten ROM-Listings einstimmen. Beim Ausführen von Maschinenprogrammen im 
Floppyspeicher - und das werden Sie am Ende dieses Kapitels können - ist es jedoch 
unumgänglich, die internen Vorgänge der 1570/71 genau zu kennen. Sie müssen wissen, wie die 
Schreib- und Leseroutinen arbeiten und wie das Betriebssystem der Floppy organisiert ist. Dann 
und nur dann werden Sie in der Lage sein, erfolgreich eigene Maschinenprogramme in der 
Floppy zu starten und eventuell eigene Diskettenformate, Kopierschutzmethoden, schnelle 
Kopierprogramme usw. zu entwickeln. 


Der M-E-Befehl ist dafür die wichtigste Voraussetzung. Er entspricht, wie schon erwähnt, dem 
SYS-Befehl im Computer und startet ein Maschinenprogramm im Floppyspeicher an der 
angegebenen Adresse. Dieses Maschinenprogramm kann auch durchaus eine ROM-Routine sein 
oder ROMRoutinen enthalten. Die einzige Bedingung ist ein Abschluß durch den Befehl RTS. 


Die Syntax des M-E-Befehls lautet: 


M-E CHRS$ (ADL) CHR$ (ADH) 





wobei ADL und ADH wieder das nieder- und höherwertige adressbyte bezeichnen. 


Als Anwendungsbeispiel mag das Blinken der LED am Laufwerk im Fehlerfall dienen. Sorgen 
Sie dafür, daß die LED nicht brennt und geben Sie danach die folgenden Zeilen ein: 








OPEN 1,8,15 
PRINT#1,"M-E" CHRS(44)CHRS$ (193) 
CLOSE 1 














Sofort beginnt die LED der Floppy munter drauflos zu blinken. Mit dem Befehl haben Sie die 
Routine im DOS aufgerufen, die für das Einschalten des Blinkens bei auftretenden Fehlern 
verantwortlich ist. 
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7.10 Der BLOCK-EXECUTE-Befehl (B-E) 


Hier haben wir noch einen BLOCK-Befehl. Obwohl diese Befehlsart eigentlich vor den 
MEMORY-Befehlen besprochen wurde, war es Absicht, diesen Befehl erst im Anschluß an den 
M-E-Befehl zu besprechen. Vielleicht fällt Ihnen schon die Ähnlichkeit der beiden Befehlsnamen 
auf? 


Der B-E-Befehl dient dazu, einen Block von der Diskette in den Pufferspeicher der Floppy zu 
lesen und danach automatisch das darin enthaltene Maschinenprogramm auszuführen. Natürlich 
muß auch für diesen Befehl eine Direktzugriffs- Datei (siehe 7.1) eröffnet werden: 


B-E Kanal# Drive# Spur# Sektor# 











Hier wird nur die Sektornummer des Blocks angegeben. Der Block wird dann automatisch 
gelesen und das Programm ab dem Byte O des Inhalts ausgeführt. 


Wenn Sie mit diesem Befehl arbeiten, müssen Sie darauf achten, daß Maschinenprogramme 
selten relokatibel (frei verschieblich) sind. In der Regel müssen sie bei der Ausführung immer im 
gleichen Adreßbereich stehen. In diesem Fall ist also die Angabe einer festen Puffernummer 
beim Eröffnen der Direktzugriffs-Datei nicht nur zweckmäßig, sondern unter Umständen sehr 
wichtig, um einen Absturz des Systems zu vermeiden. 


Es wird zwar an dieser Stelle schon von Puffern und Adreßbereichen gesprochen; wir werden 
jedoch erst im nächsten Kapitel genauer darauf eingehen. Sie erfahren dann alles Wichtige über 
die Speicheraufteilung der 1570/71. 


7.11 Die Benutzer-Befehle (USER-Befehle U3 bis U:) 


Die V-Befehle führen, wie schon die vorangegangenen Befehle, Maschinenprogramme im 
Speicher der Floppystation aus. Es handelt sich jedoch bei diesem Befehlstyp um eine 
Vereinfachung beziehungsweise Abkürzung des M-E-Befehls, da einige wichtige Startadressen 
schon voreingestellt sind und nur noch der Befehl - ohne Parameter - übergeben werden muß 
(zum Beispiel: PRINT#1,"V:"). 


Zwei U-Befehle haben Sie in den Abschnitten 7.2 und 7.4 schon kennengelernt, nämlich Ul und 
U2. Der UO-Befehl übernimmt in den Floppystationen 1570 und 1571 ganz neue Aufgaben und 
wird von Commodore im Handbuch nicht einmal erwähnt. Wir werden diesen vielleicht 
wichtigsten Systembefehl der 1570/71 später kennenlernen. 
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Wie schon gesagt, stellen die U-Befehle gewissermaßen Abkürzungen dar, da sie festeingestellte 
Ansprungadressen zugeordnet bekommen haben. Tabelle 7.1 zeigt diese Adressen: 


USER - Befehle Startadresse des Maschinenprogramms 





U3 oder UC Start bei Adresse $0500 (Benutzerpuffer) 
U4 oder UD Start bei Adresse $0503 (Benutzerpuffer) 
U5 oder UE Start bei Adresse $0506 (Benutzerpuffer) 
U6 oder UF Start bei Adresse $0509 (Benutzerpuffer) 
U7 oder UG Start bei Adresse $050c (Benutzerpuffer) 
U8 oder UH Start bei Adresse $050f (Benutzerpuffer) 

U9 oder UI $ffOl; Betriebsmodus der Floppy umschalten 
U: oder UJ $eaa0; RESET ausführen 





Tabelle 7.1 Die Benutzer- Befehlsadressen 


Wie Sie aus der Tabelle ersehen, gibt es jeweils zwei U-Befehle für den gleichen Zweck. Wir 
werden uns in Zukunft an die Zahlendarstellung wie auch schon bei Ul und U2 halten, die 
jederzeit durch UA und UB ersetzt werden kann. 


Da der Befehlssatz der Floppy die Ablage und Ausführung von Maschinenprogramme in der 
Floppy erlaubt, wäre es sehr verwunderlich, wenn es nicht auch einen Speicher bereich gäbe, in 
dem diese Programme abgelegt werden können, ohne mit dem DOS in Konflikt zu kommen. 
Dieser Speicherbereich existiert tatsächlich und befindet sich bei der Floppy an den Adressen 
$0500 bis $05ff. Um eventuell in diesem Bereich abgelegte Maschinenprogramme sehr leicht 
aufrufen zu Können, stellt das DOS die Befehle U3 bis U8 zur Verfügung. Sie stellen jeweils 
einen Einsprungpunkt dar, wobei die einzelnen Einsprungadressen jeweils drei Bytes 
auseinanderliegen. Das erlaubt das Anlegen einer Sprungtabelle. 


Haben Sie also ein Maschinenprogramm, das ab $0500 im Floppyspeicher abgelegt ist, so genügt 
zum Starten die folgende Zeile: 


OPEN 1,8,15,"U3": CLOSE 1 








Wie Sie vielleicht wissen, war das erste Einzellaufwerk mit einem seriellen Bus von Commodore 
die schon legendäre Floppystation VC1540. Diese Floppystation wurde für den VC20 Computer 
entwickelt. Kurze Zeit später kam der C64 auf den Markt. Dieser Computer besitzt jedoch intern 
eine völlig andere Struktur als der VC20 und demzufolge auch ein anderes Betriebssystem mit 
anderen Routinen für den seriellen Bus. Insgesamt ist der C64 etwas langsamer als der VC20, 
was die Entwicklung einer neuen Flop 
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pystation nötig machte. Es kam die 1541. Um jedoch die Produktion der 1540 ohne Marktverlust 
einstellen zu können, wurde die 1541 so konstruiert, daß sie sowohl an den C64 als auch an den 
VC20 angeschlossen werden kann. Sie wurde mit einem Befehl versehen, der eine Umschaltung 
zwischen VC2O- und C64-Betrieb ermöglichte. 


Dieser Befehl ist der U9- oder UI-Befehl. Da das DOS 3.0 der 1570/71 das "alte" DOS 2.6 der 
1541 zusätzlich fast unverändert enthält, ist auch dieser Befehl noch verfügbar, der den Betrieb 
an einem VC20 ermöglicht. Beim Einschalten ist die Floppystation automatisch im C64/C128- 
Modus. Erhält sie den Befehl "U9-", so wird auf VC20-Betrieb umgeschaltet. Bei "U9+" wird 
wieder der Standardbetrieb für C64 und C128 gewählt. 


Der letzte U-Befehl unserer Reihe ist der U:-Befehl. Er bewirkt einen Sprung zur RESET- 
Routine der 1570/71 und versetzt die Floppy in den Einschaltzustand, der sonst durch Aus- und 
wieder Einschalten erreicht werden kann. 


7.12 Der &-Befehl (Utility Loader) 


Dieser Befehl ist im Handbuch zur Floppystation zwar kurz erwähnt; jedoch kaum so 
beschrieben, daß Sie sich eine &-Datei selbst herstellen könnten, ohne das DOS- Listing gewälzt 
zu haben. 


Wenn man mit dem &-Befehl arbeiten will, so sind einige etwas kompliziert anmutenden Regeln 
zu beachten. Er ist jedoch für die Programmierung der Floppy in Maschinensprache so 
interessant, daß wir sofort darauf eingehen. 


Der &-Befehl gleicht in seiner Arbeitsweise stark dem BLOCK-EXECUTE-Befehl. Auch hier 
wird ein Programm von der Diskette in den Speicher der Floppy geladen und anschließend sofort 
ausgeführt. Es bestehen jedoch drei generelle Unterschiede zum B-E-Befehl: 

l. Der &-Befehl arbeitet nicht mit einer Direktzugriffs-Datei, das heißt er benötigt keinen 
reservierten Pufferbereich oder eine Kanalnummer. 

2. Es handelt sich bei einem Programm für den &-Befehl nicht nur um einen Block auf der 
Diskette, sondern um eine ganze Datei, die im weiteren Verlauf als &-Datei bezeichnet wird, 
ordnungsgemäß im Directory eingetragen ist und durchaus aus mehreren Blöcken bestehen 
kann. 
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3. Der &-Befehl ist nicht auf einen Pufferspeicher angewiesen. Eine &-Datei kann an einer 
beliebigen Stelle im Speicher der 1570/71 anfangen und an einer anderen beliebigen Stelle 
wieder aufhören. Es ist sogar möglich, eine &-Datei aus mehreren Maschinenprogrammen 
zusammenzusetzen, die an ganz verschiedenen Speicherstellen stehen. Das können die 
Zeropage (siehe Kapitel 8) oder der BAM-Puffer sein. 


Die Verwaltung einer &-Datei geschieht dabei folgendermaßen. Sie hat generell den Dateityp 
USR (siehe Kapitel 5.2) und als erstes Zeichen im Dateinamen das &-Zeichen; also 
beispielsweise &TEST. 


Soll eine solche &-Datei aufgerufen werden, so reicht es, wenn der Dateiname über den 
Kommandokanal geschickt wird: 


OPEN 1,8,15, "&TEST" 











Die Floppy sucht nun nach dem Dateinamen im Inhaltsverzeichnis und lädt das Programm, wenn 
es gefunden wird, an die Adresse(n), die in der Datei angegeben sind. Wenn wir uns jetzt den 
Aufbau einer &-Datei ansehen, so sagt das natürlich nicht, daß USR-Dateien generell so 
aussehen. Wie Sie aus 5.2 wissen, kann eine USR-Datei die verschiedensten Daten enthalten. 


Byte Bedeutung 

000 Spurnummer des Folgeblocks, wenn vorhanden 
001 Sektornummer des Folgeblocks 

002/003  Startadresse des Programms (ADL/ADH) im Speicher 
004 Anzahl der Bytes des Programms (maximal 255) 
005-... eigentliches Programm 

x letztes Programmbyte 

x+l Prüfsumme über den vorigen Programmteil 
x+2/x+3 Start adresse des nächsten Programms im Speicher 
x+4 Anzahl der Bytes des Programms (maximal 255) 
xX+-... eigentliches Programm 

y letztes Programmbyte 

y+l Prüfsumme über den vorigen Programmteil 


y+2/y+3 Start adresse des nächsten Programms im Speicher 


Tabelle 7.2 zeigt den Aufbau einer &- Datei 


Wie Sie sehen, können Sie in einer &-Datei theoretisch beliebig viele Programme oder 
Programmteile aneinanderketten, wobei jedes unabhängig vom vorhergehenden und in einem 
völlig anderen Speicherbereich stehen kann. Die einzige Einschränkung besteht in der 
Längenangabe der einzelnen Programteile, die nicht länger als 256 Bytes sein können, da der 
Wert in einem einzigen Byte untergebracht ist. 
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Das aufwendigste an der Arbeit mit &-Dateien ist deren Herstellung, da diese vom DOS nicht 
unterstützt wird. Dabei gestaltet sich die Berechnung der Prüfsumme als etwas schwierig und 
ungewohnt. 


Bei der Prüfsummenberechnung werden alle Programmbytes nacheinander aufaddiert und dabei 
der Übertrag jeder Addition ebenfalls dazugezählt. Die beiden Bytes der Startadresse müssen 
auch mit addiert werden. Wir betrachten die Prüfsummenberechnung an folgendem Beispiel: 


Sie haben das niederwertige Byte der Adresse, zum Beispiel den Wert $90. Dazu soll jetzt das 
höherwertige Byte addiert werden. Nehmen wir einmal an, daß dieses höherwertige Byte $aa 
beträgt. Wir rechnen dann $90+$aa=$3a und das Carry-Bit, da ein Übertrag aufgetreten ist. Nach 
dem Schema der Prüfsummenberechnung muß der Übertrag noch zum Ergebnis addiert werden; 
wir erhalten also $3a+$01=$3b. So verfahren Sie mit jedem weiteren Programmbyte, bis das 
letzte inklusive Übertrag addiert worden ist. Das Ergebnis, also die fertige Prüfsumme, wird 
hinter dem letzten Programm byte abgespeichert. 


Achtung! Die Prüfsumme ist in der Gesamtanzahl der Bytes eines Programmabschnitts nicht 
enthalten. 


Wollen Sie die Prüfsumme in Maschinensprache berechnen, so ist das ganz einfach: 


























lda letztes Ergebnis ;ist am Anfang 0 

ele ;Übertrag löschen 

adc neues Byte ;neuen Wert addieren; Übertrag Carry 
adc #800 ;Übertrag addieren; 0 oder 1 

sta neues Ergebnis ;neuen Wert merken 

rts ;Ende 








Diese Routine befindet sich fast identisch im ROM der 1570/71 an der Adresse $e84b. Das DOS 
verwendet sie zur Kontrolle auf korrekte Prüfsummen in einer &- Datei; sie kann natürlich auch 
zur Herstellung der Prüfsumme verwendet werden. 


Wie Sie sehen, ist das DOS sehr pedantisch, was den Aufbau einer &-Datei angeht. Haben Sie 
jedoch erst einmal gelernt, mit &-Dateien zu arbeiten. so werden Sie sehr schnell feststellen, daß 
es sich hier um eine äußerst leistungsfähige Methode zur Erweiterung des DOS-Befehlssatzes 
handelt. Sie werden in die Lage versetzt, ganze Diskettenbetriebssysteme zu schreiben, die, 
ähnlich dem CP/M Betriebssystem, eigene Systemspuren auf der Diskette aufweisen. 
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Am Schluß sei noch auf ein paar seltsame Fehlermeldungen der Floppystationen hingewiesen. 
Diese Fehlermeldungen wurden den relativen Dateien entliehen und haben folgende Bedeutung: 


RECORD NOT PRESENT erscheint, wenn Sie die Prüfsumme nicht richtig ausgerechnet haben. 


OVERFLOW IN RECORD erscheint, wenn die Anzahl der Programmbytes nicht mit der 
angegebenen übereinstimmt. 


7.13 Der BOOT-Befehl (BASIC 7.0) 


Dieser Befehl gehört eigentlich nicht in die Reihe der Direktzugriffs-Befehle, weil er erstens kein 
disketteninterner Befehl ist und zweitens eine gesamte Datei behandelt. Er paßt jedoch an diese 
Stelle, da es sich auch hier um das automatische Laden und Starten eines Maschinenprogramms 
handelt: 


Der BOOT-Befehl ist in BASIC 2.0 nicht verfügbar, das heißt er funktioniert nur auf einem 
Commodore 128 Computer. Hier lädt er entweder eine angegebene oder eine spezielle 
AUTOBOOT -Datei. Hier zunächst die Syntax des BOOT -Befehls: 





BOOT "name", Ddrive#, Ugeräte# 


Die Parameter name, drive# und geräte# erklären sich von selbst. Hier sind 
ein paar Beispiele: 


BOOT 
BOOT "TESTPROGRAMM" 
BOOT "TEST",DO,U8 








Wird ein Programmname angegeben, so lädt der Computer automatisch das entsprechende 
Programm als Maschinenprogramm in den Bereich, aus dem es abgespeichert wurde (siehe auch 
BLOAD). Danach wird das Programm an der gegebenen Adresse gestartet (mit SYS, weshalb ein 
BOOT-Befehl grundsätzlich ein sinnvolles Maschinenprogramm nachladen sollte, da der 
Rechner sonst abstürzt). 


Wir haben schon einmal festgestellt, daß der C128 beim Einschalten immer einen 
Diskettenzugriff versucht, wenn die Floppy vorher eingeschaltet war. Dieser Zugriff ist nichts 
weiter als ein BOOT-Befehl ohne Parameter, also auch ohne angegebenen Dateinamen. In 
diesem Fall passiert folgendes: 
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Die Floppy sucht auf der Diskette den Sektor O auf Spur 1 und liest ihn in ihren Pufferspeicher. 
Danach wird kontrolliert, ob dieser Sektor eine entsprechende Kennung in den Bytes O bis 2 
enthält, die ihn als AUTOBOOTSektor ausweisen. Steht in diesen drei Bytes die Kennung 
"cbm", so wird automatisch das Maschinenprogramm geladen und gestartet, das im 
AUTOBOOT-Sektor angegeben ist. Den Aufbau dieses Sektors zeigt folgende Tabelle: 


Byte Bedeutung 
000-002 CBM ($43,42,4d) Bytes für die Kennung 
003-004  Startadresse eines eventuell vorhandenen Programms 


005 MMU-Registerwert für Speicherkonfiguration 

006 Anzahl der folgenden BOOT-Sektoren 

007-... Name für Meldung: "BOOTING ..."; Ende durch $00 

XRX-... Name des zu bootenden Programms; Ende durch $00 

yyy-255 Ladeprogramm für Kassettenpuffer, falls eigene Laderoutinen 


erwünscht sind. 


Tabelle 7.3 Inhalt eines AUTOBOOT -Sektors (Sektor 1,0) 


Die Bytes für die Startadresse haben nur Gültigkeit, wenn noch einer oder mehrere weitere 
BOOT -Sektoren folgen. Die Anzahl dieser Sektoren ist dann in Byte 6 abgelegt; ansonsten steht 
dort $00. Wenn weitere Sektoren verwendet werden, so benötigt das DOS dafür keine weiteren 
Angaben. Es sind dies jeweils die folgenden Sektoren auf Spur 1 (die Sektoren 1,1 / 1,2 usw.). 


Der Name ab Byte 7 wird beim Booten des Programms auf dem Bildschirm ausgedruckt. Er wird 
durch ein $00 beendet und kann deshalb auch mehrere Zeichen haben, die vielleicht eine 
Mitteilung an den Benutzer enthalten. 


Wird die Steuerung des weiteren Ladevorgangs dem Computer überlassen, so benötigt dieser die 
Angabe eines Dateinamens hinter dem String für die Bildschirmanzeige, damit er weiß, welches 
Programm geladen werden soll. Ansonsten kann ein eigenes Programm die Steuerung 
übernehmen, das automatisch im Kassettenpuffer abgelegt wird und im AUTOBOOT-Sektor 
hinter dem, jetzt nicht angegebenen, Dateinamen steht. 


Das Booten des CP/M-Betriebssystems funktioniert zum Beispiel auf die eben beschriebene Art 
und Weise. Liegt die CP/M-Diskette schon bei einem RESET des Computers im Laufwerk, so 
erfolgt das Laden automatisch; ansonsten kann das Booten durch Tippen des Befehls BOOT 
jederzeit erfolgen. 
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8 Die Hardwareorganisation der 1570/71 


Die Begriffe "Pufferspeicher der Floppy" und "Programm im Speicher der Floppy" sind schon 
des öfteren erwähnt, aber noch nicht genauer erklärt worden. Im folgenden Kapitel werden Sie 
nun über alle hardwaremäßigen Vorrichtungen der Floppy informiert, die Sie bei der 
Programmierung beachten oder verwenden müssen. 


8.1 Die Speicherorganisation der 1570/71 


Zuerst befassen wir uns mit dem Speicherbereich der Floppy. Dies Kapitel ist natürlich vor allem 
für die Maschinensprache-Programmierer unter Ihnen wichtig, weshalb die Erläuterungen sehr 
ausführlich gehalten sind. Wenn Ihnen also manche Erklärung überflüssig oder gar ein wenig 
lächerlich vorkommt, so gehören Sie eben schon zu den erfahreneren Programmierern und sollten 
nachsichtig darüber hinwegsehen. 


Die 1570/71 Floppystationen haben die gleichen Prozessorplatinen in ihren Gehäusen, nämlich 
die der 1571. Diese Platine enthält als herausragende Merkmale folgende Bausteine: einen 
Prozessor vom Typ 6502, zwei VIA 6522, einen CIA 6526, einen MFM-Diskcontroller WD 
1770, ein statisches RAM mit 2 KByte Kapazität und ein 32 KByte ROM, sowie einen Com- 
modore-Diskcontroller in Form eines Gate-Arrays. 


Diese Bausteine wollen wir im weiteren Verlauf des Buches unter die Lupe nehmen, wobei wir 
mit dem Speicherbaustein, dem 2 KByte fassenden RAM, anfangen. 


8.1.1 Der Bereich der Zeropage 


Wie Sie vielleicht wissen, kann ein Mikroprozessor vom Typ 6502 einen Bereich von 65536 
Bytes direkt adressieren. Das heißt, er kann auf jedes dieser Bytes direkt zugreifen. Die 
Adressierung dieser Bytes erfolgt dabei durch zwei spezielle prozessorinterne Bytes, die 
zusammen als ProgrammCounter (kurz PC) bezeichnet werden. Das eine dieser Bytes ist dabei 
das niederwertige Adreßbyte, das andere das höherwertige. 


Das niederwertige Adreßbyte steuert dabei den Zugriff auf ein Byte innerhalb eines 256-Byte- 
Blocks, der vom höherwertigen Byte des PC bestimmt wird. Da jedes Byte einen Wert von O bis 
255 annehmen kann, erstreckt sich der Adreßraum von 0 bis 65535. 
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Die ersten 256 Bytes (Adresse $0000 bis $00ff) werden als Null-Seite, beziehungsweise 
Zeropage bezeichnet. Dieser Bereich dient in allen 6502-Prozessorsystemen als 
Zwischenspeicher-Bereich für wichtige Daten und Zeiger; so auch in der Floppystation. Es kann 
daher fatale Folgen haben, wenn Sie achtlos Werte an wichtige Speicherstellen dieses Bereichs 
schreiben und damit das DOS durcheinander bringen. Im Anhang finden Sie aus diesem Grund 
die Belegung aller Speicherstellen im RAM der 1570/71! 


8.1.2 Die Seite 1 


Auch dieser Speicherbereich (Adresse $0100 bis $Olff), der sich direkt an die Zeropage 
anschließt, bildet einen wichtigen Bereich für Zeiger, Zähler und Daten. Er enthält außerdem den 
Stapelspeicher (Stack) des Prozessors, auf dem Sprungadressen und Registerwerte 
zwischengespeichert werden. 


Auch in der Seite 1 kann ein Fehlgriff fatale Folgen haben. In der Regel ist eine dieser fatalen 
Folgen der "Absturz" der Floppystation. 


8.1.3 Die Seite 2 


Dieser Speicherbereich ($0200 bis $02ff) ist der erste etwas harmlosere Bereich, der von der 
Floppy für Fehlermeldungen und das Zwischenspeichern des Befehlsstrings vom Computer 
verwendet wird. Reicht einem erfahrenen Anwender der Pufferspeicher der Floppy für seine 
Zwecke nicht aus, so kann er unter Umständen einen Teil der Seite 2 für seine Zwecke mitver- 
wenden, ohne einen "Absturz" zu verursachen. Das ist natürlich nur bei der Ausführung eines 
floppyinternen Maschinenprogramms möglich. 


8.1.4 Der Bereich der Pufferspeicher der 1570/71 


Jetzt kommt endlich der Speicherbereich, der in der Hauptsache für Aufgaben des Anwenders 
reserviert ist. Er erstreckt sich von $0300 bis $07ff, wobei jedoch die unterschiedlichen Aufgaben 
der einzelnen Pufferbereiche zu berücksichtigen sind. 


Tabelle 8.1 zeigt noch einmal die Belegung des gesamten Speicherbereichs der 1570/71. 


Wie Sie sehen, hat jeder der Pufferspeicher 0 bis 4 eine bestimmte Funktion. Wenn Sie jedoch als 
Anwender ein Maschinenprogramm im Puffer ablegen, so haben Sie gewöhnlich auch die 
Kontrolle über den Diskettenbetrieb. Rufen Sie also in Ihrem Maschinenprogramm keine 
Betriebssystemroutinen des DOS auf, die entsprechende Pufferzugriffe benötigen, so ist es Ihnen 
ohne weiteres möglich, Ihren Arbeitsbereich über den Puffer 2 hinaus auszudehnen und die 
Puffer für eigene Zwecke zu benutzen. 
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Byte Bedeutung 
$0000-00ff Zeropage; Arbeitsspeicher des DOS 


$0100-0145 Stackbereich des Prozessors 

$0146-Olff Pufferbereich für zweiseitigen Diskbetrieb; Ausweichpuffer für Disketten- 
Operationen 

$0200-02ff  Pufferbereich des DOS für Fehlermeldungen, Directory und Befehlsstrings 


$0300-03ff Puffer 0: enthält immer den aktuellen Block einer Datei, das gerade bearbeitet 
wird. 

$0400-04ff Puffer 1: enthält beim Suchen einer Datei den Teil des Directory, der die gesuchte 
Datei beinhaltet. 

$0500-05ff Puffer 2: USER-Puffer. Auf diesen Bereich beziehen sich unter anderem die U- 
Befehle. Er wird vom DOS für den Anwender freigehalten. 

$0600-06ff Puffer 3: Directory-Puffer. Enthält immer den aktuellen Block des Directory für 
die weitere Bearbeitung. 

$0700-07ff Puffer 4: BAM-Puffer. Enthält immer die aktuelle BAM der eingelegten Diskette. 
Dieser Bereich überschneidet sich bei der 1570/71 mit dem Puffer 5, der eigentlich 
hardwaremäßig nicht mehr existiert. 





Tabelle 8.1 Die RAM-Belegung der 1570/71 


Durch die Tabelle wird Ihnen jetzt vielleicht auch die Bedeutung der Puffernummern beim 
Eröffnen einer Direktzugriffs-Datei klar (siehe Kapitel 7.1). Geben Sie dort zum Beispiel die 
Puffernummer 0 als gewünschten Pufferbereich an, so wird der Speicherbereich $0300 bis $O3ff 
für Ihre Zwecke reserviert. Sie können dort also zum Beispiel ein Maschinenprogramm ablegen, 
das unter dem Adreßbereich $0300 läuft. Theoretisch können Sie bis zu 1,5 KByte 
Speicherbereich in der Floppy verwenden, wenn Sie geschickt programmieren. 


8.1.5 Der ROM-Bereich der 1570/71 


Über diesen Bereich gibt es an dieser Stelle wenig zu sagen, da er später ohnehin ausführlich 
dokumentiert wird. Wichtig zu wissen ist der Adreßbereich dieses Speichers, der von $8000 bis 
$ffff reicht. 


Wenn Sie das ROM-Listing in diesem Buch durcharbeiten, werden Sie bestimmt feststellen, daß 
im ROM der 1570/71 eine ganze Menge Platz ist. Es ist zum Beispiel der Bereich von $aa3f bis 
$beff vollkommen leer (mit Sff aufgefüllt). Das sind über 5 KByte. 


In diesem Bereich lassen sich eine Menge Floppyerweiterungen und eigene Systemroutinen 
unterbringen - und zwar auf sehr einfache Weise. Die 
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ROM-Bausteine der 1570/71 sind nämlich vollkommen kompatibel zur entsprechenden EPROM- 
Version (27256). Sie müssen das jetzige Betriebssystem lediglich in ein 27256-Eprom brennen, 
wobei Sie zuvor eventuell selbstentwickelte Routinen hinzugefügt haben. Dieses Eprom können 
Sie direkt als Ersatz für das ROM in den entsprechenden Sockel setzen (ohne Adaptersockel!). 


Die Anwendungen hierfür reichen weit: vom eingebauten Treiber für ein schnelles 
Kopierprogramm oder einem Druckerspooler, bis zu völlig neuen Befehlen für die Floppystation 
(zum Beispiel RE-SCRA TCH, REPLACE ohne Fehler, Codeschloß zum Schützen von 
"geheimen" Disketten, ...). 


8.2 Die Schnittstellenbausteine der 1570/71 


Nun wollen wir uns die Verbindung des DOS mit der Außenwelt ansehen. Wie eingangs schon 
erwähnt, besitzt die 1570/71 eine ganze Reihe von Schnittstellenbausteinen, die nachfolgend 
besprochen werden. 


8.2.1 Der VIA 6522 als Disk- und Buscontroller-Interface 


Der VIA 6522 (versatile interface adaptor) ist ein schon etwas älterer Interface-Baustein der 
Firma MOS. In der 1570/71 sind jeweils zwei davon enthalten, wobei einer für die Verbindung 
zur Außenwelt, den seriellen Bus, und der andere für die Verbindung zur Diskette im 
Commodore-Format sorgt. Der VIA für den Busbetrieb beginnt bei der Adresse $1800 und der 
für den Diskcontroller ab Adresse $1c00. 


Der VIA ist in einem 40-poligen Gehäuse untergebracht, wobei die Floppystationen 1570 und 
1571 vorzugsweise mit den stromsparenden CMOSVersionen (65C22) ausgestattet wurden. Die 
Informationen aus den Datenblättern des VIA 6522 und aller im weiteren Verlauf besprochenen 
Interfacebausteine finden Sie in Tabellen zusammengestellt in Anhang B dieses Buches. 


Wir werden später noch intensiv auf die Verwendung der Schnittstellenbausteine in der 1570/71 
eingehen. Dazu benötigen wir jedoch noch' ein paar zusätzliche Informationen, die uns das 
anschließende Kapitel geben wird. 


8.2.1.1 Die Schnittstelle zum seriellen Bus (VIA 1) 


Der erste VIA 6522 hat die Grundadresse $1800. Wichtig für uns sind die beiden parallelen VO- 
Ports dieses VIA, die den Kontakt mit der Außen 
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welt sicherstellen. Der VIA 1 ist für den Betrieb des seriellen Busses zuständig. Dabei steuert er 
im 1541-Modus den vollen Busbetrieb und ist im 1570/71-Modus nur mehr für das Timing des 
Busbetriebs zuständig. Ausschlaggebend für die Bedienung des seriellen Busses ist dabei Port B 
des VIA. Dieser liegt bei Adresse $1800. Über ihn wird der Busverkehr betrieben. Port A des 
Bausteins hatte in der 1541 keine Funktion und lag brach. In der 1570/71 jedoch übernimmt auch 
dieser Port neue Aufgaben. 


Die nachfolgende Tabelle zeigt die Belegung der einzelnen Pins des Port B: 


Bit/Pin Bedeutung 

0 Leitung für DATA IN (invertierender Eingang) 

l Leitung für DATA OUT (invertierender Ausgang) 

2 Leitung für CLOCK IN (invertierender Eingang) 

3 Leitung für CLOCK OUT (invertierender Ausgang) 

4 ATN A; 1 heißt, daß jeder ATN des Computers von der 
Hardware der Floppy automatisch beantwortet wird. 


5 Lo-Bit der Hardware-Gerätenummer (DIP-Schalter 1) 
6 Hi-Bit der Hardware-Gerätenummer (DIP-Schalter 2) 
7 Leitung für ATN IN (invertierend; auch über CA 1/VIA 1) 


Tabelle 8.2 Pinbelegung des Port B des VIA I für den seriellen Bus 


Wie Sie sehen, sind den Leitungen für den seriellen Bus jeweils Inverter vorgeschaltet. Diese 
elektronischen Bauelemente sorgen dafür, daß ein logischer Eingangspegel immer genau in den 
entgegengesetzten logischen Ausgangspegel umgewandelt wird. Löschen Sie also beispielsweise 
das Bit 1 für den seriellen Bus, so geht die Leitung zum Computer mit der Bezeichnung DATA 
OUT auf den entgegengesetzten Pegel, also auf logisch 1. 


Wenn Sie sich das DOS-Listing ansehen, werden Sie feststellen, daß in der Dokumentation 
immer der Pegel angegeben ist, der von der angeschlossenen Leitung angenommen wird und 
nicht der Pegel, der im Interface-Baustein gesetzt wird. Das hat den Vorteil, daß Sie immer sofort 
feststellen können, ob ein Signal invertiert oder normal gesendet bzw. empfangen wird. Steht in 
der Dokumentation beispielsweise "DATA OUT auf Lo setzen" und die Routine setzt das 
entsprechende Bit, so können Sie sofort sagen, daß hier ein Inverter zwischengeschaltet sein muß, 
da die Leitung sonst auf Hi gehen müßte. 


Achtung! Im Gegensatz zur Floppystation sind den Busbausteinen im Computer (C64 oder 
C128) keine Inverter vorgeschaltet. Hier liegen also die tatsächlichen Pegel auch als 
entsprechende Bitzustände an. Das muß bei der Programmierung der Busbausteine unbedingt 
beachtet werden! 
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8.2.1.2 Die Schnittstelle zur Diskette (VIA 2) 


Der zweite Port des VIA 1 hat weniger mit dem seriellen Bus zu tun, als mit dem 
Diskettenbetrieb. Seine Belegung sei daher an dieser Stelle aufgezeigt: 
Pin/Bit Bedeutung 


0 Bit=0 zeigt an, daß der Kopf auf Spur 0 steht 

1 Bit=1 serieller Bus auf Ausgang; Bit=0 serieller Bus auf Eingang 
2 Diskettenseite für Tonkopf (1571) O0 oder 1 

3 n.V. 

4 n.v. 

5 Systemtaktfrequenz; Bit=1 heißt 2 MHz; sonst 1 MHz 

6 n.V. 

7 


zeigt BYTE-READY an; auch über CAl/VIA 2 


Tabelle 8.3 zeigt Port A von VIA 1 


Der Port A von VIA 1 wird in der Regel nicht über die Grundadresse 
$1801, sondern über das Portregister $180f ohne Handshake betrieben. 


Nun kommen wir zur Betrachtung des zweiten VIA 6522 in der Floppy. Er verfügt über die 
Grundadresse $1c00, wobei wiederum beide V/O-Ports verwendet werden. Port B ist der 
Steuerport, das heißt die Schnittstelle zum Diskcontroller, und Port A ist die Verbindung zur 
Schreib-/Leseelektronik. Die Pinbelegungen im einzelnen sind: 


Bit/Pin Bedeutung 
Ansteuerung für 1. Steppermotorspule 
Ansteuerung für 2. Steppermotorspule 
Steuerung für Drivemotor; Bit=1 heißt Motor an 
Steuerung für LED am Laufwerk; 1 heißt LED an 
WRITE PROTECT, Zustand der Schreibschutz-Lichtschranke; 
Bit=1 heißt Diskette ungeschützt; auch CA2/VIA 1 
5/6 Steuerung der Aufzeichnungsrate auf der Diskette: 

00 250000 Bits/s auf Spur 31-35/66-70 

01 266664 Bits/s auf Spur 25-30/60-65 

10 285712 Bits/s auf Spur 18-24/53-59 

11 307688 Bits/s auf Spur 01-17/36-52 
7 SYNC-Signal beim Lesen von Diskette 


Pu Oo 


Tabelle 8.4 zeigt die Pinbelegung von Port B des VIA 2 bei Adresse $IcOO 





Pin/Bit | Bedeutung 














0-7 Paralleler Datenbus zum Diskcontroller (GER) 





Tabelle 8.5 zeigt die Belegung von Port A des VIA 2 bei Adresse $1cOI 
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Bei der VIA 2 sind zusätzlich zu den Portregistern noch zwei Handshakeleitungen belegt worden: 
CA2 und CB2. 


CA2 schaltet dabei das SOE-Signal (serial output enable) ein, wenn er auf Hi gesetzt wird. 


CB2 schaltet die Schreib-/Lesefunktion des Tonkopfes. Wird CB2 auf Hi gesezt, so ist der 
Schreib- /Lesekopf auf Eingang geschaltet (Daten lesen), ansonsten befindet sich der Kopf im 
Schreibmodus. 


Wie die jeweilige Beschaltung der Leitungen erfolgt, ist dem ROM-Listing und den Tabellen im 
Anhang B zu entnehmen. 


Das BYTE-READY Signal, das bei Port A des VIA 1 anliegt, wurde erst bei der Entwicklung der 
1570/71 dorthin verlegt. Es existiert auch noch die Leitung zum SO-Pin des Prozessors, die das 
Overflow-Bit in dessen Statusregister setzt, wenn ein Byte gelesen oder geschrieben wurde. 
Diese Leitung wurde von der 1541 übernommen und ist der Kompatibilität wegen erhalten 
geblieben. Es gibt also zwei Möglichkeiten das BYTE-READY-Signal abzufragen: über Port A 
(PA 7) von VIA 1 und über das Overflow-Flag des Prozessors. 


8.2.2 Der CIA 6526 als schnelles Buscontroller-Interface 


Ein weiterer Baustein in unserer Reihe ist der CIA 6526. Im Gegensatz zum VIA 6522 (versatile 
interface adaptor) wird der CIA (complex interface adaptor) in der 1570/71 nur zu einem ganz 
geringen Teil eingesetzt. Lediglich das eingebaute serielle Schieberegister wird verwendet, 
obwohl es dazu eigentlich keines weiteren Bausteins bedurft hätte. Auch der VIA 6522 enthält 
nämlich ein solches Schieberegister. 


Der Rest des CIA liegt in der 1570/71 brach und kann unter Umständen für benutzereigene 
Zwecke verwendet werden (zum Beispiel zum Steuern von Hardwareerweiterungen). 


Der CIA besitzt in der 1570/71 die Grundadresse $4000. 


Eine der Besonderheiten des CIA 6526 ist seine eingebaute Echtzeituhr. die mit der Frequenz des 
Versorgungs-Stromnetzes getriggert wird. Da diese Frequenz sehr konstant ist, Kann mit deren 
Hilfe eine ziemlich genaue Uhr mit Alarmzeit programmiert werden. Auch die Belegungen des 
CIA 6526 sind im Nachschlageteil des Buches im Anhang B beschrieben. 
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8.2.3 Der Diskcontroller WD 1770 


Der WD 1770 von Western Digital ist ein kompletter Diskcontroller/Formatter und wird im 
weiteren Verlauf noch sehr ausführlich beschrieben. Er gestattet es der Floppy, Fremdformate zu 
lesen und zu schreiben und ist deshalb von besonderem Interesse für uns. 


Der WD 1770 ist im Gegensatz zu dem "Pseudo-Controller" von Commodore ein echter 
Diskcontroller, der sämtliche Signale für den Diskbetrieb bereitstellt. Diese Signale werden 
jedoch im DOS der 1570/71 nur teilweise genutzt. So wird zum Beispiel das Positionieren des 
Tonkopfes in der 1570/71 immer noch softwaremäßig gesteuert, obwohl der WD 1770 diese 
Aufgabe vollkommen übernehmen könnte. 


Im Speicherbereich der Floppy belegt der WD 1770 die Adressen $2000 bis $2003. 
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9 Das Arbeiten mit dem DOS 


Wie Sie inzwischen wissen, belegt das Betriebssystem der Floppy, also das DOS, einen 32 KByte 
großen Speicherbereich von $8000 bis $ffff. Um eigene Programme in das DOS einzubinden und 
auszuführen wollen wir nun einmal sehen, was in diesem Bereich passiert und wie das DOS die 
Disketten verwaltet. 


Den größten Teil dieses Buches nimmt das dokumentierte DOS-Listing ein. Dieses Listing 
enthält sämtliche Routinen des Floppy-Betriebssystems. Es ist unvermeidbar, daß Sie sich die 
einzelnen Routinen einmal ansehen um daraus zu lernen. 


Das Studium des DOS ist die erste und wichtigste Voraussetzung für das erfolgreiche Arbeiten 
mit der 1570/71. Deshalb wurde das Betriebssystem so ausführlich wie nur möglich dokumentiert 
und ermöglicht damit auch dem weniger versierten Maschinensprache-Programmierer den 
Einstieg in die Programmierung der Floppystation. 


Zu den Kapiteln, die sich mit der Arbeitsweise und der Programmierung des DOS beschäftigen, 
ist es leider unumgänglich, daß Sie die Maschinensprache-Programmierung beherrschen. Sind 
Sie ein reiner BASIC-Programmierer mit schon etwas größerer Programmiererfahrung, dann 
sollten Sie sich überlegen, ob Sie den Einstieg in die Maschinensprache des Prozessors 6502 
nicht einmal versuchen. Sie erhalten damit neue, ungeahnte Möglichkeiten bei bestimmten 
Problemlösungen und kommen in den Genuß der sehr hohen Verarbeitungsgeschwindigkeit eines 
Mikroprozessors. Außerdem gibt es mittlerweile auf dem Markt ein so großes Angebot an 
wirklich guter Lektüre zu diesem Thema, die den Einstieg sehr leicht macht. 


Dieses Buch wurde so aufgebaut, daß alles, was Sie zum Nachschlagen beim Programmieren 
benötigen, im Anhang untergebracht ist. Sie erhalten dort die Speicherbelegung der Floppy 
1570/71, die Belegungen aller Interface-Bausteine (VIA 6522, CIA 6526 und WD 1770) und alle 
restlichen wichtigen Tabellen und Pläne. Dieses System erlaubt es Ihnen, sich das Buch einmal 
durchzulesen, um die einzelnen Prinzipien zu verstehen und anschließend nur noch den 
Nachschlageteil zu verwenden, ohne durch viel Herumblättern aus der Arbeit gerissen zu werden. 
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9.1 Die Funktionsweise des DOS 3.0 


Das DOS 3.0 ist der direkte Nachfolger des DOS 2.6 der Floppy 1541. Dieses DOS 2.6 wiederum 
wurde aus den Floppystationen des Typs 4040 entnommen und auf ein Einzellaufwerk 
umgestellt. Beim Umschreiben des DOS für die 1541 wurden jedoch einige grundsätzliche 
Änderungen gegenüber der 4040 vorgenommen. 


Die wichtigste Änderung ergibt sich wohl aus dem unterschiedlichen Aufbau der Hardware der 
1541 zur 4040. Die 4040 besteht aus einem Computersystem mit zwei Mikroprozessoren; und 
zwar einem 6502 für die Verarbeitung der Anwenderbefehle und einem 6504, der die 
Laufwerksteuerung übernimmt, also als Diskcontroller arbeitet. Das ist bei der 1541 und auch bei 
der 1570/71 nicht mehr der Fall. Hier muß ein einziger 6502 die gesamte Arbeit übernehmen. Die 
Folge dieses "Abspeckens" ist klar: die 1541 wurde gegenüber der 4040 deutlich langsamer. 


Was bei der 4040 ein zweiter Prozessor übernommen hat, wird bei der 1541 und auch bei deren 
Nachfolgern 1570 und 1571 durch die Interrupttechnik erledigt. Die zweite grundlegende 
Änderung zur 4040 ist der serielle Bus. Die Floppystation 4040 wurde über einen IEEE-488-Bus 
mit dem Computer verbunden, der parallel mit 8 Bit arbeitet. Bei der 1541 wurde auf einen 
seriellen Bus umgestiegen, der nur mehr 1 Bit "breit" ist. Das macht sich natürlich bei der 
Geschwindigkeit bemerkbar. So ist auch durch diese Änderung die Leistungsfähigkeit der 1541 
deutlich begrenzt worden. 


Bei der 1570/71 hat man dieses Manko zumindest teilweise durch einen sehr schnellen seriellen 
Bus wieder wettgemacht. Das Prinzip dieses Busses werden wir später noch besprechen. Jetzt 
interessiert uns das Prinzip der Befehlsverarbeitung in der Floppy. 


9.1.1 Das Prinzip der Jobschleife 


Wie oben erwähnt, besitzt die 4040 zwei Prozessoren, wobei der eine für die Befehls- 
Entgegennahme, Verarbeitung und grundsätzliche Steuerung der Floppystation und der andere, 
ein 6504, für den Diskbetrieb, also das Formatieren, Schreiben und Lesen verantwortlich war. 


Ein solches System hat den Vorteil, daß mehrere Vorgänge gewissermaßen parallel verarbeitet 
werden können, was sich positiv auf die Geschwindigkeit auswirkt. Es hat aber den Nachteil, daß 
ein sehr ausgefeiltes Programm für die Synchronisation zwischen beiden Prozessoren und für den 
reibungslosen Ablauf aller Vorgänge sorgen muß: Stellen Sie sich vor, der Diskcontroller beginnt 
auf einmal, eine Diskette zu formatieren, ohne daß der Befehl dazu erteilt wurde. 
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Zu diesem Zweck der Synchronisation hat man die Zeropage ausgewählt, die ja bei beiden 
Prozessoren identisch ist. Es werden hier spezielle Speicherstellen definiert, die für die 
Kommunikation zwischen beiden Prozessoren verantwortlich sind, wobei das System dann 
folgendermaßen funktioniert: 


Sie schalten die Floppy und den Computer ein, wobei natürlich passiert nichts 
außergewöhnliches. Der 6502, wir nennen ihn einmal Hauptprozessor , führt das RESET- 
Programm durch und wartet auf einen Befehl vom Computer. Der 6504, also der Coprozessor, 
arbeitet in einem Programmteil, der sich Jobschleife nennt. Auch er hat nichts zu tun, außer die 
schon angesprochenen Speicherstellen in der Zeropage dauernd zu kontrollieren. 


Kommt jetzt ein Befehl, so wird dieser vom Hauptprozessor entgegengenommen und analysiert. 
Nehmen wir einmal an, es geht darum, einen Block im Direktzugriff von der Diskette zu laden. 


Ist die Syntax des empfangenen Befehls in Ordnung, so passiert folgendes: Der Hauptprozessor 
speichert in den schon erwähnten Zeropage-Speicherstellen, die auch als Jobspeicher bezeichnet 
werden, die vom Benutzer gewünschte Spur- und Sektornummer des Blocks ab. Bis der 
Hauptprozessor einen Code (Jobcode) in einer bestimmten Speicherstelle des Jobspeichers ablegt 
geschieht weiterhin nichts. Danach geht der Hauptprozessor wieder seiner gewohnten Arbeit 
nach (Befehle empfangen und analysieren), wobei er jedoch die Speicherstelle, in die er den 
Jobcode gespeichert hat, dauernd überwacht. 


Der Coprozessor findet nun in der Speicherstelle den Jobcode, der in unserem Fall "Block lesen" 
bedeutet. Nun wird das Laufwerk aktiviert, der Schreib-/Lesekopf positioniert, die LED am 
Laufwerk eingeschaltet, der entsprechende Sektor gesucht und in einen reservierten 
Pufferspeicher gelesen. Ist alles abgelaufen, so speichert der Coprozessor in den gleichen 
Jobspeicher, der auch den Jobcode enthielt, eine Rückmeldung und geht wieder in die 
Warteschleife zurück. 


Der Hauptprozessor wiederum findet nun bei der Kontrolle des Jobspeichers die Rückmeldung 
und "weiß" nun, daß der Sektor in den Puffer geladen wurde. Der Block wird dann abschließend 
zum Computer geschickt. 


Dies ist, wie Sie sehen, ein recht kompliziertes System. Der Name Jobschleife wird nun aber 
verständlich: der Coprozessor verharrt in einer Schleife, bis ein Job, also ein Befehlscode 
gefunden wird. Nach seiner Ausführung wird dann wieder in die Schleife zurückgekehrt. 
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Nun werden Sie sich fragen, ob man diese ganzen Vorgänge nicht auch einfacher steuern kann? 
Das könnte man, da der Hauptprozessor scheinbar während der Ausführung des Jobs vom 
Coprozessor nichts zu tun hat. Das stimmt jedoch nicht ganz. Dieses ganze System läuft nämlich 
auf einem Doppellaufwerk (4040), und es ist daher durchaus möglich, daß der Hauptprozessor 
schon wieder einen Befehl empfängt und analysiert, noch während der Coprozessor mit dem 
Lesen beschäftigt ist. Auf diese Weise kann die Floppy sehr schnell hintereinander Befehle 
empfangen und analysieren, ohne sich um die Steuerung des Laufwerks kümmern zu müssen. 


9.1.2 Die Jobschleife der 1570/71 


Die 1570/71 besitzt, wie schon erwähnt, keinen zweiten Prozessor, der den Hauptprozessor 
entlastet. Die Jobschleife funktioniert bei dieser Floppy dennoch im Prinzip ganz ähnlich. Es 
wird hier lediglich von der Interrupttechnik des 6502-Prozessors Gebrauch gemacht. Wir reden 
jetzt nicht mehr von einem Hauptprozessor und einem Co prozessor, sondern von einem 
Hauptprogramm und einem Diskcontrollerprogramm, beziehungsweise einer Jobschleife. 


Der Ablauf sieht vollkommen analog aus. Das Hauptprogramm holt und analysiert einen Befehl. 
Dann wird der Jobcode inklusive aller notwendigen Parameter (Spurnummer, Sektornummer, 
Diskettenseite,...) in den Jobspeicher geschrieben und auf die Rückmeldung gewartet. Das 
DiskcontrollerProgramm (künftig nur noch als Jobschleife bezeichnet) besteht aus einem 
Interruptprogramm, das durch einen Timer regelmäßig aufgerufen wird (etwa alle 8 ms). Es 
findet den Jobcode und führt den Job aus. Danach schreibt es eine Rückmeldung in den 
Jobspeicher, die dem Hauptprogramm signalisiert, daß der Job ausgeführt worden ist. 


Das Prinzip ist also das gleiche geblieben, es hat lediglich seinen Sinn und Zweck verloren. 
Während der Hauptprozessor in der 4040 weitergearbeitet hat, ist es dem Hauptprogramm in der 
1570/71 unmöglich, während eines aufgetretenen Interrupts weiterzulaufen. Der Interrupt hat ja 
schließlich den Zweck, das Hauptprogramm zu unterbrechen, wie der Name schon sagt. 


Sie werden im DOS 3.0 der 1570/71 einige Relikte finden, die den parallelen Betrieb von zwei 
Prozessoren unterstützen und in der 1570/71 ihren Sinn verloren haben. Diese Anpassung des 
Multiprozessor-Programms an ein Singleprozessorsystem hat neben dem Geschwindigkeitsver- 
lust auch noch einige Fehler entstehen lassen, die schon in der 1541 vorhanden waren und auch 
bei der 1570/71 noch nicht ausgemerzt wurden. 
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Der Geschwindigkeitsverlust ist natürlich auf die, für ein SingleprozessorSystem aufwendige, 
Programmierung zurückzuführen. Sämtliche Vorteile, die dieser Programmierstil bei einem 
Zweiprozessorsystem gebracht hat, sind in Nachteile für die 1570/71 umgeschlagen. Schon aus 
diesem Grund ist es empfehlenswert, die Interna der Floppy kennenzulernen, um durch eigene 
Programmierung einige Mängel zu beheben. 


9.1.3 Die Besonderheiten des DOS 3.0 gegenüber dem DOS 2.6 


Es ist Ihnen vielleicht bekannt, daß die 1570/71 das DOS 2.6 der 1541 nahezu unverändert 
enthält. Bei der DOS-Version 3.0 handelt es sich lediglich um eine Erweiterung gegenüber der 
1541, wobei auf größtmögliche Kompatibilität geachtet wurde. 


Prinzipiell sind nur zwei Änderungen zu verzeichnen. Erstens der schnellere serielle Bus in 
Verbindung mit einem C128 und zweitens die Möglichkeit, Fremdformate im MFM-Standard zu 
verarbeiten. Bei der 1571 kommt natürlich auch noch die andere Mechanik mit dem zweiseitigen 
Diskettenbetrieb hinzu. 


Das Original-DOS der 1541 steht ab Adresse $c100 bis $ffff im Speicher. Es wurden lediglich 
ein paar Sprünge zur Erweiterung eingefügt, die die neuen Möglichkeiten der 1570/71 
unterstützen. Das neue Betriebssystem steht im Bereich von $8000 bis $bfff und enthält 
sämtliche Routinen für MFM-Verarbeitung, zweiseitigen Diskettenbetrieb und schnelle Busrouti- 
nen. 


Eine weitere Besonderheit ist sicherlich die Taktgeschwindigkeit der 1570/71 gegenüber früheren 
Commodore-Floppies. Diese beiden Floppystationen arbeiten nämlich unter anderem mit 2 MHz 
Taktfrequenz im Gegensatz zur 1541 mit 1 MHz. Äußerlich wird das vor allem am sehr schnellen 
Blinken der LED bei Fehlern deutlich, wenn die Floppy am C128 angeschlossen ist. Am C64 
oder C128 im 64er-Modus simuliert die Floppy eine 1541 und schaltet auf 1 MHz-Betrieb um. 
Hier blinkt die LED mit der gleichen Geschwindigkeit, wie bie der 1541. 


Wir werden später noch neue Befehle für die 1570/71 kennenlernen, die die 1541 nicht enthält. 
Diese Befehle sind vor allem für den schnellen seriellen Bus zuständig; sie erlauben aber auch 
das Umschalten des Betriebsmodus der Floppy zwischen 1541- und 1570/71-Modus. Auch C64- 
Besitzer kommen dann in den Genuß der neuen schnellen Formatierroutine dieser Floppies. 
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9.2 Programme im Pufferspeicher der Floppy 


Wie Sie Programme in den Pufferspeicher der Floppy schreiben und dort starten können, wurde 
schon in Kapitel 7 besprochen. Jetzt interessiert uns, welche Programme man in der Floppy 
ablegen kann und wie diese aussehen müssen. 


Vorzugsweise nimmt man als Speicherbereich in der Floppy den Puffer 2 ($0500 bis $05ff), der 
als Benutzerpuffer definiert ist. Er kann durch die Benutzer-Befehle (USER, siehe 7.11) sehr 
bequem programmiert werden. 


Bevor Sie nun jedoch "drauflos programmieren" sind hier noch ein paar Tips und Warnungen. 
Wenn Sie mit Maschinenprogrammen in der Floppy arbeiten, befinden Sie sich in der Regel 
hinter den Sicherheitsbarrieren des DOS (Schreibschutzabfrage, Fehlererkennung, usw.), die die 
Disketten weitestgehend vor Pannen schützen sollen - es sei denn, diese Sicherheit wird in die 
eigenen Maschinenprogramme eingebaut. Sie können sich daher bei Fehlern ganze Disketten 
unwiderruflich überschreiben oder löschen und sollten deshalb stets mit Übungsdisketten 
arbeiten. Die Floppy ist außerdem von der Programmierung her nicht so benutzerfreundlich 
konzipiert wie der Computer und es erfordert wesentlich mehr Mühe, in der Floppy ein 
Programm zum Laufen zu bringen. Stürzt die Floppy einmal ab, und das kann bei einem 
Programmierfehler sehr schnell passieren, so hilft hier nur der Resetknopf und das Programm im 
Pufferspeicher ist verloren. 


Ein sehr wichtiger Punkt ist die Mechanik der Floppy. Im Gegensatz zum Computer werden in 
der Floppy mechanische Teile durch Motoren bewegt. Alle mechanischen Teile sind jedoch dem 
Verschleiß und einer gewissen Bruchgefahr unterworfen. Denken Sie also immer daran, daß Sie 
sorgfältig programmieren, denn die kleinste Panne ist schon ein verstellter Tonkopf. Überlasten 
Sie die Mechanik niemals durch "Wahnsinnsprogramme" und verwenden Sie bei Unkenntnis der 
technischen Details lieber die Systemroutinen zur Ansteuerung, die auf die Mechanik der Floppy 
abgestimmt sind. 


Ein weiterer Punkt betrifft die Fehlerbehandlung. Wenn Sie als Benutzer eine Diskette in das 
Laufwerk schieben und sich das Inhaltsverzeichnis ansehen, dann erledigt die Floppy alles 
vollautomatisch, inklusive Initialisieren der Diskette. Arbeiten Sie nun auf der Ebene der 
Jobschleife, so sind alle automatischen Vorrichtungen natürlich inaktiv, wenn sie nicht aus- 
drücklich angesprungen werden. Sie müssen eine Diskette vor einem Zugriff also "von Hand" 
initialisieren, bevor Sie die Jobschleife aufrufen. Denken Sie bitte immer an diese wenigen 
Ratschläge. Sie ersparen sich damit unter Umständen zerstörte Disketten und Laufwerke und 
stundenlange Fehlersuche. 


9.2 Programme im Pufferspeicher der Floppy 123 





9.2.1 Die Nutzung der Jobschleife 


Nach diesen Ratschlägen wollen wir mit der Programmierung beginnen. Das nächstliegende 
Problem bei einem Programm im Pufferspeicher der Floppy ist natürlich der Zugriff auf die 
Diskette. Werden keine illegalen Zugriffe verlangt und soll nur mit herkömmlichen Sektoren 
gearbeitet werden, so fällt Ihnen dazu der Abschnitt über die Jobschleife ein. Wie schon erwähnt, 
steuert diese Schleife den gesamten Diskzugriff und müßte demnach z.B. zum Lesen eines 
Sektors aufgerufen werden. 


Zu diesem Zweck sollten Sie einmal die RAM-Belegung der Floppy betrachten. In der Zeropage 
fallen dann nämlich sofort die Speicherstellen $0000 bis $0011 auf. Es handelt sich hierbei um 
die schon erwähnten Jobspeicher, wobei für jeden Pufferspeicher der Floppy ein Jobspeicher exi- 
stiert. 


Wichtig ist an dieser Stelle natürlich, daß Sie für einen Job immer einen anderen Puffer anwählen 
müssen, als den, in dem Ihr Programm steht. Die Jobschleife arbeitet nämlich immer im 
angewählten Pufferbereich. 


Generell ist die Bedienung der Jobschleife sehr einfach. Nachfolgend sind alle Befehle an die 
Jobschleife aufgeführt: 


$80 Lesen eines Sektors 

$88 Lesen eines Sektors auf der gleichen Spur 

$90 Schreiben eines Sektors 

$a0 Verify eines Sektors 

$b0 Suchen eines Sektors/einer Spur 

$c0 Zurückfahren des Kopfes auf Spur 0 

$dO Starten eines Programms im Floppypuffer 

He0 Einbinden eines Programms im Floppypuffer in die Jobschleife 
$fO Formatieren einer Diskette 





Wichtig bei den Diskettenzugriffen ist, daß die Diskette vorher initialisiert worden ist. Wir 
wollen einmal sehen, wie man einen Sektor (zum Beispiel Sektor 18,0) mit Hilfe der Jobschleife 
in den Pufferspeicher der Floppy liest. Unser Programm soll in Puffer 2 stehen und der Sektor 
soll in Puffer O ($0300 bis $03ff) geladen werden. 


Schreiben Sie folgendes Maschinenprogramm in den Pufferspeicher der Floppy und legen Sie es 
bei $0500 ab: 


0500 1da #18 
0502 sta $06 
0504 1da #0 

0506 sta $07 


Spurnummer 18 

Spurnummer für Job in Puffer B 
Sektornummer 0 

Sektornu__er für Job in Puffer B 




















Ne Ne Ne ne 
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0508 1da #880 Jobcode für "Sektor lesen" 
050a sta $00 an Jobschleife für Puffer 8 übergeben 
050c 1da $00 Jobspeicher lesen und 


’ 
’ 
’ 
050e bmi S050C ; warten, bis Job zu Ende ausgeführt 
’ 
’ 
’ 
’ 


















































0518 cmp #2 auf Fehler prüfen 
0512 bcs error verzweige, wenn Fehler (Rückmeldung >1) 
0514 weitere Behandlung; kein Fehler 








ELFOT 55% zur Fehlerbehandlung 
Vergessen Sie nicht, die Diskette vor dem Start zu initialisieren. Wie Sie sehen, ist der ganze 
Vorgang recht kurz und einfach zu programmieren. Hier die Erklärung der wichtigsten Schritte: 


Zuerst werden die Spur- und Sektornummer für Puffer 0 gesetzt. Dann wird der Jobcode für 
Lesen übergeben. Wie Ihnen vielleicht aufgefallen ist, bestehen alle Jobcodes aus Werten größer 
als $7F (127), also Werten, bei denen Bit 7 gesetzt ist. Diese Einteilung erlaubt eine einfache 
Abfrage auf das Ende des Jobs, da die Rückmeldungen generell kleiner als 128 sind und somit 
die Bedingung bei $050e nicht mehr erfüllen. Wichtig bei der Ausführung von Jobs ist natürlich, 
daß kein SEI-Befehl verwendet wurde, da die Jobschleife über den IRQ-Befehl aufgerufen wird. 
Der NMI hat in der 1570/71 keine Funktion. 


Die Fehlerbehandlung nach Ausführung eines Job ist ebenfalls denkbar einfach. Wird eine 
Rückmeldung größer als 1 übergeben, so ist ein Fehler aufgetreten. Die Fehlermeldungen der 
Jobschleife im einzelnen: 


$01 kein Fehler; alles ok 

$02 Blockheader nicht gefunden 

$03 SYNC nicht gefunden 

$04 Datenblock nicht gefunden 

$05 Datenprüfsumme falsch 

$06 Fehler beim Formatieren 

$07 Fehler bei Verify 

$08 Diskette schreibgeschützt 

$09 Headerprüfsumme falsch 

$0a Datenblock zu lang 

$0b falsche ID im Blockheader/ Diskette nicht initialisiert 
$0d Indexloch nicht gefunden 

$0e Syntaxfehler bei MFM 

HOF keine Diskette im Laufwerk 

$10 Fehler bei Dekodierung; illegale GCER-Bytes 
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Wie Sie sehen, existieren also alle Fehlermeldungen der Floppy, die den Diskettenbetrieb 
betreffen, bereits auf der Ebene der Jobschleife. Sie brauchen lediglich in den Klartext 
umgewandelt zu werden. Wenn Sie die Fehlertabelle im Anhang betrachten, können Sie 
erkennen, welche JobRückmeldung zu welchem Klartext gehört. 


In der Jobschleife wird auch noch auf Schreibschutz geprüft, wie Sie an der Meldung $08 sehen 
können. Gehen Sie jedoch noch weiter hinab auf die Ebene unter der Jobschleife, in der Sie ein 
Programm schreiben können, das als Teil der Jobschleife betrachtet wird, so ist Vorsicht geboten. 


Die übrigen Kommandos werden analog zum Kommando für "Block lesen" verwendet. Eine 
Ausnahme bilden nur die beiden Jobcodes $dO und $e0, die jeweils ein Programm starten. 


9.2.2 Programme in die Jobschleife einbauen 


Wichtig ist vor allem der Jobcode $e0. Er erlaubt Programme zu schreiben, die als 
Interruptprogramme direkt in der Jobschleife ausgeführt werden. Die Programme, die wir mit 
dem M-E aufrufen, müssen durch den RTS-Befehl beendet werden, da die Floppy die Kontrolle 
dann wieder an das Hauptprogramm übergibt. Mit Jobschleifen-Programmen ist das jedoch an- 
ders. Diese müssen nur irgendwie zu einem definierten Abschluß der System-Interruptroutine 
führen und können so auch Teile der übrigen Jobschleife überspringen. 


Verwenden Sie das Kommando $d0, so wird ein Maschinenprogramm am Beginn des gewählten 
Puffers gestartet und in die Jobschleife eingebaut. Es handelt sich hierbei also um ein echtes 
Interruptprogramm. 


Verwenden Sie den Jobcode $e0, so geht das DOS davon aus, daß ein Programm im Puffer steht, 
das einen Diskettenzugriff durchführt. Bei $e0 müssen nämlich zusätzlich vorher die Spur- und 
Sektornummer im Jobspeicher abgelegt worden sein. Wird dieser Jobcode dann ausgeführt, so 
fährt die Jobschleife das Laufwerk hoch und positioniert den Schreib-/Lesekopf auf der 
angegebenen Spur. Danach wird das Maschinenprogramm am Anfang des entsprechenden 
Puffers gestartet. Übergeben Sie den Jobcode für Puffer 0, so aktiviert die Jobschleife das 
Laufwerk und springt anschließend zur Adresse $0300. 


Wie Sie sehen, Kann an dieser Adresse dann ein Programm stehen, das zum Beispiel in der Lage 
ist, fehlerhafte Sektoren einzulesen, um eine zerstörte Diskette zu retten oder einen Kopierschutz 
zu entwickeln. 
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Am Ende der eigenen Routine muß dann der Akku mit dem Wert der gewünschten Rückmeldung 
geladen und zurück in die Systemjobschleife gesprungen werden. Sie können also auch beliebige 
Rückmeldungen setzen und an Ihr Hauptprogramm übergeben. 


Verwenden Sie den Jobcode $d0, um ein Programm in die Jobschleife einzubinden, so 
unterbleibt das Starten des Laufwerks. Hier ist es also zum Beispiel möglich, eine eigene 
Jobschleife mit anderen Jobcodes zu entwickeln und in die gegebene Jobschleife einzufügen. Der 
Kreativität sind mit diesem Befehlen keine Grenzen gesetzt. 


Aus dem letzten Kapitel kennen Sie die Belegungen der VIAs 6522. Sie können also diese VIAs 
direkt bedienen und entweder auf den seriellen Bus oder die Diskette zugreifen, sofern Sie im 
Commodore-Format arbeiten. 


9.2.3 Wichtige Systemroutinen für Programmierer 


An dieser Stelle werden ein paar Routinen aus dem Betriebssystem herausgestellt. Sie werden 
entweder sehr oft aufgerufen und/oder ins RAM der Floppy kopiert, um ausgeführt zu werden, 
oder sind wichtig und zum Ansehen empfohlen. 





$eaal System RESET -Routine 

$f2b0 Jobschleife für 1541-Modus 

$92ba Jobschleife für 1570/71 Modus 

$f969 Jobschleife beenden; Rückmeldung setzen (1541) 

$99b5 Jobschleife beenden; Rückmeldung setzen (1570/71) 

Hfe00 Kopf auf Lesen umschalten 

$8764 Drivemotor einschalten 

$8770 Drivemotor ausschalten 

$e60a Rückmeldung der Jobschleife im Klartext ausgeben; 
gegebenenfalls Fehlerblinken aktivieren 

$f556 auf SYNC-Signal warten (1541) 

$9754 auf SYNC-Signal warten (1571) 

$fac7 Jobroutine zum Formatieren einer 1541- Diskette 

$f300... Routinen zum Ansehen empfohlen 


Wichtig sind vor allem die vier letzten Routinen oder Adressen, da es sich hier um die 
Paraderoutinen zum Schreiben oder Lesen einer Diskette im 1541-Format handelt. Diese 
Routinen sollten Sie sich auf jeden Fall ansehen. Sie lernen dadurch, wie man einen 
Diskettenzugriff programmiert. Sie werden ohnehin bei der Analyse anderer Programme im 
Pufferspeicher feststellen, daß diese häufig nur geringfügig abgeänderte Kopien aus dem DOS 
der Floppy verwenden. 
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10 Die Aufzeichnung auf eine Diskette 


Nachdem Sie nun in der Lage sind, direkt in die Interna des DOS einzugreifen und auch Daten 
auf die Diskette zu schreiben beziehungsweise von der Diskette zu lesen, ist es nur logisch, daß 
Sie auch wissen wollen, wie das funktioniert. 


Theoretisch ist es möglich, die meisten nötigen Informationen aus dem dokumentierten DOS- 
Listing zu entnehmen (Routinen zum Bearbeiten wurden bereits empfohlen). Sie werden jedoch 
sehr schnell auf Begriffe stoßen, die Sie noch nicht kennen und die dennoch zum Teil schon in 
manchen Kapiteln erwähnt wurden. 


Nach diesem Kapitel haben Sie jedoch die größten Schwierigkeiten hinter sich und können sofort 
in die Diskettenprogrammierung einsteigen. Im Augenblick steht Ihnen jedoch noch ein wenig 
Theorie bevor. 


10.1 Die Aufzeichnung von Daten auf Magnetträger 


Wir wollen uns nun ansehen, wie zum Beispiel ein Byte auf einer Diskette aussieht. Was ist 
überhaupt eine Diskette und nach welchem Prinzip kann man darauf überhaupt Daten speichern? 


Wie Sie sicherlich wissen, besteht eine Diskette aus einer dünnen Kunststoffscheibe mit einer 
Beschichtung aus magnetischem Material. Diese Schicht läßt sich ähnlich einem Eisenstück 
magnetisieren. Der Vorteil der Diskettenbeschichtung ist jedoch, daß diese Magnetisierung 
dauerhaft erhalten bleibt und deshalb zur Datenspeicherung verwendet werden kann. 


Diese Magnetisierung erfolgt in unserem Fall durch einen Schreibkopf, der in seinem Inneren 
einen winzigen Elektromagneten enthält. Bild 10.1 zeigt das Schema eines solchen Schreib- 
/Lesekopfes. 


Wenn nun Strom durch die Wicklung dieses Schreib-/Lesekopfes fließt, so wird der Eisenkern 
magnetisiert, und zwar in der Richtung abhängig von der Polung. Diese Magnetisierung überträgt 
sich auf die empfindliche Schicht der Diskette, die vor dem Tonkopf vorbeigedreht wird und 
speichert demzufolge Daten darauf. 
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Spule 
Metallkern 
EST EEE 
Frontansicht Seitenansicht 


Bild 10.1: Darstellung eines Schreib-/Lesekopfes 


Die Datenspeicherung geht nach einem sehr einfachen Prinzip vor sich: eine Elektronik zerlegt 
jedes Byte in seine 8 Bits. Die elektrischen Signale dieser Bits erscheinen folgendermaßen am 
Tonkopf: gleichbleibende Stromrichtung entspricht einem O-Bit, wechselnde Stromrichtung 
entspricht einem 1-Bit. Die Ausgabe auf die Diskette ist also letztendlich ein unregelmäßiger 
Wechselstrom im Tonkopf. Jedesmal, wenn ein 1-Bit kommt, wird die Stromrichtung umgepolt 
und damit auch die resultierende Magnetisierung auf der Diskette. Bei einem O-Bit bleibt der 
Strom im Tonkopf wie er ist. Bild 10.2 zeigt schematisch einen solchen Schreibvorgang: 


Kopf beim Schreiben 







Trägermaterial } Magnetschicht 


Bild 10.2: Tonkopf beim Schreiben auf eine Diskette 
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Sollen die Daten wieder gelesen werden, so kehrt man den ganzen Vorgang des Schreibens 
einfach um. Dreht sich nun die Diskette am Tonkopf vorbei, so wird entsprechend der 
Magnetisierungsrichtung auf der Diskette wieder ein Strom im Tonkopf induziert. Dieser Strom 
wird verstärkt und in ein digitales Ausgangssignal zurückverwandelt. Dabei entspricht jeder auf- 
tretende Magnetisierungswechsel einer Spannungsumpolung im Tonkopf und damit einem 1-Bit; 
geschieht am Tonkopf nichts, so handelt es sich um ein O-Bit. Bild 10.3 zeigt noch einmal, wie 
das gemeint ist. 


SS NIN SIS NIN S|S 
Information R | | 
Timerzyklus | 


Gelesene Bits 4 


Shift Register ir Er ir 
Byte ready IL 


8 Bits 








1 














Bild 10.3: Das Lesen von einer Diskette 


Diese Aufzeichnungstechnik erfordert natürlich ein gewisses Timing beim Lesen der Daten, da 
ein O-Bit schließlich nichts anderes ist, als "garnichts". Bei gleichbleibender Magnetisierung wird 
nämlich kein Strom induziert. Die Floppy wartet also beim Lesen immer eine gewisse Zeit, bis 
das entsprechende Datenbit eingelesen sein muß. Danach wird festgestellt, ob während dieser 
Zeit eine Spannungsänderung aufgetreten ist oder nicht. Beim Schreiben passiert das gleiche. 
Hier wird einfach eine gewisse Zeit lang "nichts getan", wenn ein O-Bit aufgezeichnet werden 
soll. 
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10.2 Das Timingproblem beim Lesen und Schreiben 


Die Zustandsänderung in einer bestimmten Zeiteinheit entspricht also jeweils dem Wert des Bits, 
das gelesen oder geschrieben werden soll. Nun darf man aber auch nicht vergessen, daß selbst der 
beste Laufwerkmotor gewissen Drehzahlschwankungen unterliegt. Diese Drehzahlschwankungen 
können zu einer Menge Fehlinformationen führen. 


Sie sehen jedoch in der Praxis, daß eine Floppystation äußerst zuverlässig arbeitet. Sie bringt sehr 
selten Schreib- oder Lese- Fehlermeldungen - und wenn, dann aus anderen Gründen. 


Prinzipiell kann man sich natürlich eine Menge einfallen lassen, um solche 
Drehzahlschwankungen auszugleichen. In der Floppy 1570/71 sind zumindest die zwei am 
weitesten verbreiteten Methoden implementiert. Zwei Methoden deshalb, weil die 1570/71 
sowohl das GCR-Format als auch das MFM-Format verarbeiten kann. Damit haben wir auch 
schon die Namen der beiden Systeme: MFM und GCR. 


10.2.1 Das GCR-Format 


Wenden wir uns zuerst dem schon von der 1541 her bekannten Commodore-Format mit der 
GCR-Aufzeichnungsmethode zu. GCR steht dabei für "group code recording" und bezeichnet ein 
V erfahren, das die Daten verschlüsselt, bevor sie auf die Diskette kommen, und das funktioniert 
folgendermaßen. 


10.2.1.1 Das Ausgleichen von Laufwerksschwankungen unter GER 


Bei Laufwerksschwankungen kann man davon ausgehen, daß sie sich in einem Bereich ereignen, 
der zumindest mehrere Datenbits umfaßt, bevor das interne Timing nicht mehr mit der Position 
der Diskettenscheibe übereinstimmt. 


Wie wir wissen, besitzt die Schreib- /Leseelektronik der Floppy einen Timer, der immer eine 
gewisse Anzahl von Systemzyklen verstreichen läßt, bevor ein Bit als eingelesen gilt. Danach 
wird festgestellt, ob in dieser Zeit ein Magnetisierungswechsel stattgefunden hat oder nicht und 
entsprechend ein Datenbit gesetzt oder nicht gesetzt. 


Nehmen wir einmal an, die Diskette dreht sich kurzzeitig schneller. Dann kann es passieren, daß 
in einem Lesezyklus mehr als ein Bit von der Diskette am Tonkopf vorbeigedreht wurde und 
somit zum Beispiel zwei Magnetisierungswechsel stattgefunden haben. 
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Der Timingzyklus der Leseelektronik muß also der Geschwindigkeit der Diskette angepaßt 
werden. Dreht sich die Diskette schneller, so muß auch das Timing verkürzt werden, um kein Bit 
zu verschlucken oder mehrere auf einmal einzulesen. Dreht sich die Diskette wieder langsamer, 
so muß ein Lesezyklus länger dauern, um dem nächsten Bit die entsprechende "Herandrehzeit" 
zu lassen. 


Commodore geht nun folgenden Weg: Es werden einfach immer alle ankommenden 
Magnetisierungswechsel dazu verwendet, den Timer neu zu triggern, das heißt, der Timer wird 
bei jedem 1-Bit neu gesetzt und hat somit immer einen Startwert, der sehr genau der 
Diskettendrehzahl entspricht; vorausgesetzt, es kommen oft genug hintereinander 1-Bits vom 
Tonkopf. Hätten wir nämlich zum Beispiel 20 $00-Bytes hintereinander auf der Diskette, so 
könnte der Timer für die Länge von 80 Lesezyklen nicht getriggert werden. Als praktisch 
notwendig hat sich erwiesen, den Timer spätestens alle 3 Lesezyklen, also alle 3 Bits neu zu 
triggern, um auch die kleinsten Laufwerksschwankungen sicher herauszufiltern. Die Leseelektro- 
nik der Floppy muß also spätestens nach zwei ankommenden O-Bits wieder ein 1-Bit erhalten, 
um sicher funktionieren zu können. 


Damit eine solche Bitfolge, also höchstens zwei O-Bits hintereinander, gewährleistet ist, müssen 
die Daten codiert werden. Dazu kommen wir im übernächsten Abschnitt. 


10.2.1.2 Markierungen auf der Diskette 


Im Gegensatz zum MFM-Format verwendet Commodore keine hardwaremäßigen Markierungen 
(zum Beispiel das Indexloch der Diskette), um sich auf einer Spur zurechtzufinden. Will man 
jedoch einen Sektor einer Spur einlesen, so ist es unumgänglich, daß man sich auch auf der Spur 
zurechtfindet und seine Position bestimmen kann. Zusätzlich muß natürlich auch noch ein Sektor 
gefunden werden. Zuerst interessiert uns aber, wie sich die Floppy auf einer Spur orientiert. 


Sie haben vielleicht schon etwas von SYNC-Signalen gehört oder gelesen. Diese Signale 
erlauben es der Floppy, die Position des Schreib- /Lesekopfes auf einer Spur festzustellen. 


Wie Sie aus dem vorigen Abschnitt wissen, dürfen auf einer Diskette keine Datenbytes stehen, 
die mehr als zwei 0-Bits hintereinander enthalten. Es gibt jedoch noch eine weitere 
Einschränkung: Verboten sind ebenfalls Datenbytes, die mehr als acht 1-Bits hintereinander 
enthalten, also zum Be ispiel 2 Datenbytes mit jeweils dem Wert $ff hintereinander auf der Dis- 
kette. 
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Dieses Verbot hat seinen Grund in der Notwendigkeit von Markierungen auf jeder Spur einer 
Diskette. Mehr als acht 1-Bits hintereinander lösen bei der Leseelektronik nämlich ein Signal aus, 
das als SYNC-Signal bezeichnet wird. Dieses Signal entspricht keinem Byte- oder Bitwert, 
sondern wird auf einer getrennten Leitung über Bit 7 der Adresse $1c00 (VIA 2/Port B) an das 
Computersystem geschickt. Die Datenbytes hingegen kommen bei Port A des VIA 2 ($1c01) an. 


Eine Markierung auf der Diskette mit einfachen Datenbytes ist natürlich deshalb nicht möglich, 
weil es keine Bitkombination (außer eben einer speziell behandelten) gibt, die nicht auch in 
einem Datenfeld zu finden sein könnte und dann die Leseelektronik durcheinander brächte. 


Wie Sie aus den letzten beiden Abschnitten ersehen können, gibt es also im Commodore-Format 

zwei Gründe die Daten zu codieren, die auf die Diskette geschrieben werden sollen: 

l. damit niemals mehr als zwei O-Bits folgen, um Timingprobleme auszuschließen und 

2. damit niemals mehr als acht I-Bits folgen, um die Verwechslung von Daten und SYNC- 
Markierungen auszuschließen. 


10.2.1.3 Die GCR-Codierung 


Bei der nun folgenden Methode handelt es sich um die gesuchte Codierung von Datenbytes. Wir 
müssen bei der Floppystation also künftig zwischen zwei verschiedenen Schreibarten 
unterschieden: 

= das Schreiben von Datenbytes 

"= das Schreiben von SYNC-Markierungen 


Da SYNC-Signale lediglich durch mehr als acht direkt hintereinander stehende I-Bits ausgelöst 
werden, können Sie sehr einfach auf die Diskette gebracht werden, nämlich durch direktes 
Schreiben. Bei der 1570/71 verwendet man fünf $ff-Bytes. Eine SYNC- Markierung besteht also 
aus 40 1-Bits, die direkt auf die Diskette geschrieben werden. 


Beim Schreiben von Datenbytes werden diese erst einmal in die entsprechenden GCR-Werte 
umgewandelt und danach auf die Diskette geschrieben. Die Umwandlung sämtlicher Datenbytes 
geschieht dabei folgendermaßen: 
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Wie Sie wissen, besteht ein Byte aus 8 Bit, wobei man diese 8 Bits wiederum in 2 mal 4 Bits 
aufteilt; ein sogenanntes Hi-Nibble (Bits 4-7) und ein Lo-Nibble (Bits 0-3). Dazu ein Beispiel: 


Wert binär Hi-Nibble Lo- Nibble 
$45 01000101 O0100---- ----Q101 


Diese Zerlegung eines Bytes in sein Lo- und sein Hi-Nibble ist die Voraussetzung für die 
Umwandlung in das GCR-Format. Bei diesem Format wird jedes mögliche 4-Bit-Nibble eines 
Bytes in ein entsprechendes 5-BitGCR-Nibble umgewandelt. Die folgende Tabelle zeigt, welche 
Binärnibbles in welche GCR-Nibbles umgewandelt werden: 


Hexadezimal Dezimal Binär GCR - Äquivalent 
$0 (0) 0000 01010 
$1 (1) 0001 01011 
$2 (2) 0010 10010 
$3 (3) 0011 10011 
54 (4) 0100 01110 
$5 (5) 0101 01111 
$6 (6) 0110 10110 
$7 (7) o1ll 10111 
$8 (9) 1000 01001 
$9 (9) 1001 11001 
$a (10) 1010 11010 
$b (11) 1011 11011 
$c (12) 1100 01101 
$d (13) 1101 11101 
$e (14) 1110 11110 
$f (15) 1471 10101 





Tabelle 10.1: Umwandlungstabelle Binär in GER Diese Umwandlung sei an einem Beispiel 
dargestellt: 


Nehmen wir einmal an, wir hätten das Byte $45 und das Byte $e2. Diese beiden Werte werden in 
ihre Binärwerte umgewandelt und sehen dann so aus: 


$45 = %01000101 $e2 = % 11100010 


Wir zerlegen diese Werte nun in ihre Nibbles und wandeln diese in die entsprechenden GCR- 
Aquivalente um: 


Binär: 0100 0101 1110 0010 
GCR: 0111001111 11110 10010 
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Da die Schnittstelle zum Diskcontroller immer 8 Bit, also ein komplettes Byte zum Schreiben auf 
die Diskette erwartet, werden die GCR-Nibbles der Reihe nach wieder zu Bytes 
zusammengefaßt: 


0111001111 11110 10010 werden zu 
01110011 11111101 0010 werden zu 
$73 $fd $2- 


Wie Sie erkennen können, sind aus unseren ehemals zwei Bytes nun zweieinhalb GCR-Bytes 
geworden. Eine solche Kombination ist natürlich ungeeignet, da ein halbes Byte nicht auf die 
Diskette geschrieben werden Kann. In der Praxis verwendet die Floppy 1570/71 deshalb 
Routinen, die immer 4 Binärbytes gleichzeitig in 5 GCER-Bytes umwandeln, damit vollständige 
Bytes erhalten werden. An einem weiteren Beispiel sei das verdeutlicht: 


Hex: 30 12 29 5a 

Bin: 0011 0000 0001 0010 0010 1001 0101 1010 
GCR: 1001101010 01011 10010 10010 11001 01111 11010 
ergibt 1001 1010 1001 0111 0010 1001 01100101 1111 1010 
— 9a 97 29 65 fa 


Die letztendlich entstehenden 5 GCR-Bytes können nun direkt zum Diskcontroller geschickt und 
auf die Diskette geschrieben werden. 


10.2.2 Das MFM-Format 


Das MFM-Format ist eine der am meisten verbreiteten Methoden zur Datenaufzeichnung. Fast 
alle Personal Computer verwenden heute dieses Format, und die 1570/71 ist dank ihres 
eingebauten WD 1770 in der Lage, alle diese Formate einwandfrei zu lesen und sogar zu 
schreiben. 


Natürlich hat auch das MFM-Format die Probleme mit den Laufwerkschwankungen der 
Floppystation. Aber man geht hier einen anderen Weg, als beim GCR-Format, um Lesefehler 
auszuschließen. 


10.2.2.1 Das Ausgleichen von Laufwerksschwankungen unter MFM 


Das Prinzip des Einlesens von Daten entspricht genau dem des GCR-Formats. Auch bei MFM 
werden die 1-Bits durch Magnetisierungsänderungen auf der Diskette angezeigt, und auch hier 
dienen diese Magnetisierungsänderungen zum Triggern des Timers für den Lesevorgang. 
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Anders als beim GCR-Format codiert man die Datenbytes nun aber hardwaremäßig auf eine Art, 
die je nach Byte unterschiedlich ist. Es werden dabei fehlende 1- Bits eines Bytes durch 
entsprechende Taktbits ersetzt. 


Der Diskcontroller kennt also zwei verschiedene Bits auf der Diskette; nämlich die Taktbits und 
die Datenbits, wobei die Taktbits immer am Anfang eines Timingzyklus auftreten und den Timer 
triggern, während die Datenbits im Timingzyklus weiter nach hinten verschoben sind. 


Obwohl das MFM-Format das Indexloch beim Beschreiben von Disketten berücksichtigt, 
benötigt es natürlich auch Markierungen, die für das Suchen von Sektoren von entscheidender 
Bedeutung sind. Diese Markierungen, werden dadurch gekennzeichnet, daß sie aus einem 
Bytewert bestehen, bei dem zum Beispiel ein ganz bestimmtes Taktbit fehlt, obwohl es von der 
Bytestruktur her an die jeweilige Stelle gehört hätte. Durch diese Methode kann man sich das 
softwaremäßige Codieren der Datenbytes sparen, bei dem sehr viel Zeit verbraucht wird. 
Andererseits erlaubt das MFM-Format nicht so hohe Schreibdichten wie das GCR-Format. Das 
verhält sich bei der 1570/71 jedoch anders, denn hier paßt je nach Format mehr auf eine MFM- 
Diskette, als auf eine Diskette im 1541-GCR-Format. 


10.2.2.2 Die Codierung unter MFM 


Wir wollen uns nun ansehen, wie ein MFM-Controller zwischen Datenbytes und 
Markierungsbytes unterscheidet. Betrachten Sie dazu bitte Tabelle 10.2: 


HEX - Wert Verwendung oder Codierung unter MFM 
$00-$f4 Nur Datenbytesj werden normal unter MFM geschrieben 
$f5 Datenbyte: normales Schreiben unter MFM 
Markierung: ergibt $al; kein Taktbit bei Bit 4 und 5; 
außerdem Vorbesetzung für CRC-Byte 


$f6 Datenbyte: normales Schreiben unter MFM-Markierung: 
ergibt $cl; kein Taktbit bei Bit 3 und 4 

$f7 normales Schreiben unter MFM; wird im MFM-Sektor auch 
als Platzhalter für CRC-Byte verwendet (siehe 10.3.2) 

HfS-$Hff Nur Datenbytes; werden normal unter MFM geschrieben 


Tabelle 10.2: Codierung von Bytes unter MFM 


Wie Sie aus der Tabelle ersehen, werden nicht einfach sämtliche Bytes codiert, wie unter GCR, 
sondern es wird unterschieden, an welcher Stelle die Bytes gelesen oder geschrieben werden, 
beziehungsweise, welche Funktion das entsprechende Byte haben muß. 


Die räumliche Unterscheidung ist unter MFM möglich, da der Controller anhand der 
Indexlochposition "weiß", ob er sich gerade an einer Markie 
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rung oder innerhalb eines Datenblocks befindet. Bei einem Zugriff auf eine Spur wird immer auf 
das Indexloch gewartet und dann bis zum gewünschten Sektor vorgetastet. Aus diesem Grund ist 
es unmöglich, unter MFM auf das Indexloch zu verzichten, da der Controller sonst keinen 
Anhaltspunkt hat, ob er gerade ein Datenbit oder ein Taktbit einliest. Diese kann er nur durch das 
Timing beim Lesen unterscheiden, da die Taktbits immer einen kurzen Augenblick vor einem 
Datenbit kommen. 


10.3 Aufbau von Spuren und Sektoren einer Diskette 


Wie Bits prinzipiell auf eine Diskette geschrieben werden, wissen Sie jetzt. Sie wissen nun auch, 
wie Bytes auf der Diskette aussehen müssen, damit keine Pannen durch Laufwerkschwankungen 
passieren. Jetzt werden Sie erfahren, wie die nächsthöheren Strukturen auf der Diskette aussehen, 
die Sektoren. 


Wie schon erwähnt, besitzt die Floppy zwei Arten von Bytes, die Datenbytes und die 
Markierungsbytes. Das gilt sowohl für das MFM-Format, bei dem die Markierungsbytes durch 
fehlende Taktbits gekennzeichnet sind, als auch für das GCR-Format, bei dem es nur eine einzige 
Art von Markierungen, nämlich die SYNC-Markierungen, gibt. 


10.3.1 Der Aufbau eines Sektors im GCR-Format 


Zuerst betrachten wir den Aufbau eines Sektors im GCR-Format. Wie Sie wissen, enthält ein 
solcher Sektor immer 256 Datenbytes. Die Anzahl der Sektoren einer Spur schwankt von 21 
(ganz außen) bis 17 (ganz innen). 


Ein einzelner Sektor hat dabei folgenden Gesamtaufbau: 




















SYNC $08+Blockheader | SYNC_ |$07+Datenbytes+Prüfsumme 





> Leserichtung 


Bild 10.4: Darstellung eines Sektors im GCR-Format 


Wie Sie sehen, beginnt der Sektor mit einer SYNC-Markierung. Wenn die 1570/71 also anfängt, 
einen Sektor zu suchen, so wird zuerst nach einer SYNC-Markierung Ausschau gehalten. Wird 
diese Markierung gefunden und überlesen, so stellt sich natürlich die Frage, ob es sich auch um 
den richtigen, den gesuchten Sektor handelt. Zu diesem Zweck geht dem eigentlichen Datenblock 
noch ein sogenannter Sektorkopf oder Blockheader voraus. In diesem Reader befinden sich alle 
Informationen über den folgenden Datenblock. Bild 10.5 zeigt einen solchen Blockheader: 
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SYNC | $08 | Prüfsumme | Sektor | Spur | ID2 | ID1 | $Of | $Of | Lücke 1 
> Leserichtung 



































Bild 10.5: Aufbau eines Blockheaders 


Da jedoch auch dem Datenblock eine SYNC-Markierung vorausgeht, wie in Bild 10.4 gezeigt, 
und der Kopf beim Zugriff auf eine neue Spur an einer ganz beliebigen Stelle stehen kann, muß 
er wissen, ob es sich bei der gefundenen SYNC-Markierung um die eines Datenblocks oder eines 
Blockheaders handelt. 


Zu diesem Zweck steht direkt hinter der SYNC-Markierung ein Kennzeichen. Dieses 
Kennzeichen beträgt $08 bei einem Blockheader und $07 bei einem Datenblock. 


Achtung: Alle dargestellten Bytes liegen natürlich im GCR-Format vor und müssen deshalb 
zuerst decodiert werden, wenn man sie von der Diskette liest. 


Findet der Diskcontroller (in unserem Fall die Jobschleife) also ein $07 nach der SYNC- 
Markierung, so wird sofort auf die nächste Markierung gewartet, da es sich bei der gefundenen, 
um die eines Datenblocks handelt. 


Nehmen wir jedoch einmal an, es handelt sich um das Kennzeichen $08, so werden anschließend 
die folgenden fünf Bytes von der Diskette gelesen und decodiert. Danach erfolgt die Kontrolle 
auf die richtige Prüfsumme, um Lesefehler auszuschließen. Stimmt die Prüfsumme nicht, so 
erfolgt die Ausgabe eines "22, READ ERROR". 


Stimmt die Summe jedoch mit der eingelesenen überein, so wird auf die richtige ID geprüft. Tritt 
hier ein Fehler auf, so ist ein "29, DISK ID MISMATCH" die Folge. 


Sind diese ganzen Hürden erfolgreich überwunden, so wird jetzt endlich nachgesehen, ob auch 
der richtige Blockheader eingelesen wurde. Das wird anhand der Spur- und Sektornummer aus 
dem Header geprüft. Stimmt diese Angabe nicht, so wird der nächste Blockheader gesucht, bis 
der richtige gefunden wird. 


Nach dem Blockheader stehen jeweils noch zwei $0f-Bytes und eine folgende, 8 Byte große 
Lücke auf der Diskette. Diese 10 Bytes enthalten keinen Inhalt, sondern dienen lediglich dem 
Zweck, dem Diskcontroller bei Schreibvorgängen Zeit zum Umschalten zu lassen. Beim 
Schreiben eines Sektors wird nämlich nur nach dem betreffenden Blockheader gesucht und 
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dann auf "Schreiben" umgeschaltet. Die nachfolgende SYNC-Markierung mit den Datenbytes 
wird vollständig neu geschrieben. Die 8 Lückenbytes liegen natürlich auch codiert vor, das heißt, 
auf der Diskette ist diese Lücke in Wirklichkeit 10 GCR-Bytes groß und besteht aus einer Folge 
von 10 $55-Bytes, die das Äquivalent zum binären $00-Byte bilden. 


Nun aber zum Datenblock. Sein Aufbau ist noch einmal in Bild 10.6 genauer dargestellt: 








SYNC | $07 | 256 Datenbytes im GCR-Format | Prüfsumme | Lücke 2 
> Leserichtung 




















Bild 10.6: Aufbau eines Datenblocks 


Nach dem Kennzeichen von $07 folgen also jetzt die eigentlichen Datenbytes. Diese 256 
Datenbytes werden bei der GCR-Codierung zu 320 GCRBytes. Mit der Prüfsumme und dem 
Datenblockkennzeichen werden insgesamt 326 Bytes auf die Diskette hinter die SYNC- 
Markierung geschrieben. Der Blockheader besteht übrigens inklusive Lücke aus 20 GCR-Bytes. 


Nach dem Datenblock und der Prüfsumme, die bei Nichtübereinstimmung einen "23, READ 
ERROR" auslöst, kommt noch einmal eine Lücke. Diese Lücke hat je nach Spur eine variable 
Größe und dient als Sicherheitsabstand zur nachfolgenden SYNC-Markierung des nächsten 
Sektors. Außerdem sorgt diese Lücke für eine gleichmäßige Verteilung aller Sektoren auf einer 
Spur, die dem Diskcontroller Zeit gibt, nach einem Schreibvorgang vor Beginn des nächsten 
Sektorheaders wieder auf Lesen umzuschalten. 


Sie sehen also, wie sämtliche Sektoren einer Diskette im GCR-Format aussehen. Diese Form der 
Formatierung erlaubt es Commodore zum Beispiel, auf das Indexloch als Markierung zu 
verzichten, da die SYNC-Markierungen auf der Diskette sehr zuverlässig arbeiten. 


10.3.2 Der Aufbau eines Sektors im MFM-Format 


Das MFM-Format geht hier einen anderen Weg. Es ist auf das Vorhandensein der 
Indexlochkennung angewiesen und hat deshalb den folgenden Aufbau eines Sektors und einer 
Spur. "Einer Spur" deshalb, weil im MFMFormat, im Gegensatz zum GCR-Format ein Sektor 
keine unabhängige Einheit darstellt. 


Im GCR-Format ist es theoretisch möglich, eine gesamte Spur zu löschen und darauf nur einen 
einzigen Sektor unterzubringen. Dieser Sektor kann 
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anhand seiner SYNC-Markierung sicher eingelesen und beschrieben werden. 


Im MFM-Format sieht die ganze Sache anders aus. Hier ist eine Spur nach einem ganz 
bestimmten Prinzip aufgebaut, das das Vorhandensein des Indexlochs der Diskette und eines 
Sektors als Einheit erfordert. Es kann hier also kein einzelner Sektor nach Belieben irgendwo 
untergebracht werden, um beispielsweise einen Kopierschutz zu konstruieren. 


Das funktioniert nicht, da das MFM-Format von einem WD 1770 Diskcontroller verwaltet wird. 
Dieser Diskcontroller ist im Gegensatz zum Commodore "Diskcontroller" ein vollwertiger 
Baustein, der fast alle Lesevorgänge hardwaremäßig und automatisch abwickelt, ohne daß dabei 
viel Software notwendig ist. Das Lesen eines Sektors ist hier also eine controllerinterne 
Angelegenheit. Wenn nur eine winzige Abweichung in wichtigen Parametern vom 
Standardformat festgestellt wird, so bricht der WD 1770 den Vorgang automatisch mit einer 
Fehlermeldung ab. Das Suchen eines Sektors und die Kontrolle auf Lesefehler erfolgen beim 
WD 1770 nämlich vollautomatisch, ohne zusätzlichen Programmaufwand und ohne Eingriffs- 
möglichkeit des Benutzers. 


Nun aber zurück zum Thema. Der wichtigste Unterschied eines solchen MFM-Sektors zum 
Commodore-Format ist die Tatsache, daß unter MFM eine Sektorgröße gewählt werden kann. 
Der Benutzer kann beim Formatieren einer Diskette zwischen Sektoren mit 128, 256, 512 und 
1024 Byte auswählen. Die meisten MFM-Formate (IBM PC, Kaypro, Commodore PC 10, 
Vortex, usw.) arbeiten mit 512-Byte Sektoren. Sie lehnen sich dabei an die Spezifikationen des 
CP/M 2.2 und des MS- DOS an. 


Uns steht es frei, welches Format wir wählen. Der Gesamtaufbau aller Sektoren ist identisch und 
unterscheidet sich nur in der Größenbezeichnung des Sektors und seiner daraus resultierenden 
Anzahl von Datenbytes. 




















Lücke 1+H+2 |SYNC| ID-Feld | Lücke 3 | SYNC |Datenfeld| Lücke 4 





Spurbeginn Bereich eines Sektors 














> Leserichtung 


Bild 10.7: Aufbau eines Sektors unter MFM mit Index-Adreßmarke 


Wie Sie aus Bild 10.7 ersehen können, existieren auch im MFM-Format sogenannte SYNC- 
Markierungen. Sie entsprechen jedoch in keinster Weise denen des GCER-Formats und haben 
auch eine etwas andere Wirkung auf 
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den Controller. In der Funktion sind jedoch beide Typen gleich. Sie sollen den Diskcontroller 
synchronisieren und ihn für den Anfang von Bytewerten auf der Diskette bereitmachen. 


Wenn wir nun im folgenden den Aufbau eines Sektors unter die Lupe nehmen, so sollten Sie sich 
noch einmal die Tabelle 10.2 ins Gedächtnis zurückrufen. Alle Bytes in den nachfolgenden 
Bildern, die den Markierungsbytes entsprechen, sind mit einen T gekennzeichnet. Treffen Sie 
also auf ein $f5T, so wissen Sie, daß an dieser Stelle der Wert $al mit dem fehlenden Taktbit 
zwischen Bit 4 und 5 auf die Diskette geschrieben wird. 


Zuerst interessiert der Bereich, der mit den eigentlichen Sektoren wenig zu tun hat. Er ist in Bild 
10.7 als "Lücke 1+H+2" bezeichnet und trägt den Namen "index address mark". Es handelt sich 
bei der Index-Adreßmarke um eine Art "Spurheader", wobei beim Formatieren einer Spur einmal 
auf das Indexloch gewartet wird. Nach dem Indexloch wird dann sofort diese Index-Adreßmarke 
geschrieben, deren Aufbau in Bild 10.8 zu sehen ist: 





80*$4e 12*$00 | 3*$f6T $fe | 50*$4e | 60*$Ae 
Lücke 1 SYNC Index-Adreßmarks Lücke 2 
> Leserichtung 


























Bild 10.8: Aufbau der Index-Adreßmarke 


Wie Sie sehen, steht nach dem Indexloch erst einmal eine Lücke als Verzögerungszone, die dem 
Controller Zeit läßt, seine Parameter für das Lesen oder Schreiben bereitzustellen. Danach 
kommt eine SYNC-Markierung, die aus zwölf $00-Bytes besteht. Es folgt der Code 3 mal $f6, 
der dem Schreiben von drei $c2-Bytes mit fehlendem Taktbit zwischen Bit 4 und Bit 5 des Codes 
entspricht. Danach kommt eine ID. Diese ID hat für die Index-Adreßmarke den Wert $fc. Es gibt 
noch zwei andere Typen von ID-Bytes, die dann jeweils den Sektorkopf und den Datenblock 
ankündigen. Nach der ID folgt eine Lücke, die aus 110 $4e-Bytes besteht. Diese Lücke ist in der 
Darstellung in zwei Blöcke aufgetrennt, da die 1570/71 in der Lage ist, eine Spur auch mit 
fehlender Index-Adreßmarke zu formatieren. Bei fehlender Index-Adreßmarke wird nach dem 
Erkennen des Indexlochs direkt mit den 60 $4e-Bytes begonnen. Der Rest einer Spur ist der 
gleiche. 


Wir wollen jetzt den Bereich eines Sektors betrachten, der dem Blockheader unter GER 
entspricht. Sehen Sie sich dazu einmal Bild 10.9 an. 
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12*$00 | 3*$f5T | $fe | Spur | Seite | Sektor | Größe | CRC | 22*$4e 
SYNC ID-Feld des Sektors Lücke 3 
> Leserichtung 



































Bild 10.9: Aufbau des MFM-ID-Feldes eines Sektors 


Wie Sie sehen, besteht eine SYNC-Markierung unter MFM generell aus 12 Bytes mit dem Wert 
$00 wie auch schon bei der Index-Adreßmarke. Diese Zone läßt den Controller quasi zur Ruhe 
kommen und signalisiert ihm, daß die Bits, die er als erstes nach der SYNC-Markierung wieder 
einliest, Taktbits sind. 


Nach der SYNC-Markierung kommt eine Markierung, die aus drei $al-Taktbytes besteht. Nach 
dieser Markierung, die dem Controller den Beginn des ID-Feldes mitteilt, folgt die ID des 
Blockheaders. Diese ID besteht aus einem $fe-Byte und identifiziert das ID-Feld des Sektors. 


Anschließend folgen Spurnummer, Seitenangabe der Diskette, Sektornummer und Größe des 
Sektors. Die Spur- und Sektornummer bedürfen dabei keiner weiteren Erläuterung. Die 
Seitenangabe enthält einen Wert zwischen 0 und 1 und gibt die Diskettenseite an, auf der 
geschrieben oder gelesen wird. Die Sektorgrößenangabe enthält einen Wert zwischen O und 3, 
wobei 


für einen 128- Byte-Sektor, 
für einen 256- Byte-Sektor, 
für einen 512- Byte-Sektor, 
für einen 1024- Byte-Sektor steht. 


wo 


Der Sektorgröße folgt ein sogenanntes CRC-Byte. Dieses Byte ist eine Art Prüfsumme über das 
ID-Feld und entspricht in seiner Funktion der Prüfsumme des Blockheaders im GCR-Format. 
Stimmt dieses Byte beim Lesen nicht mit dem errechneten Wert überein, so gibt der 
Diskcontroller den Fehlercode für DATA CRC ERROR aus. Beim Schreiben wird vom Com- 
puter für das CRC-Byte übrigens der Wert $f7 eingesetzt. Dieses Byte teilt dem Diskcontroller 
mit, daß es sich hierbei um einen Platzhalter für das CRC-Byte handelt, das vom Controller 
"eigenhändig" eingesetzt wird. 


Nach dem CRC-Byte folgt eine Lücke aus $4e-Bytes, die das ID-Feld vom nachfolgenden 
Datenfeld trennt. 
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Das Datenfeld, das nun die eigentlichen Datenbytes enthält entspricht dem Datenblock im GCR- 
Format und wird ebenfalls durch eine SYNC-Markierung aus 12 $OO-Bytes eingeleitet. Bild 
10.10 zeigt den genauen Aufbau: 





12*$00 | 3*$f5T | $fb | Datenbytes | CRC | x*$4e 
SYNC Datenfeld des Sektors Lücke 4 
> Leserichtung 























Bild 10.10: Au/bau des Daten/eides im MFM-Format 


Nach der SYNC-Markierung folgen wiederum die drei Markierungs-Taktbytes, die die folgende 
ID ankündigen. Diese ID besteht aus dem Wert $fb, der dem Controller mitteilt, daß er sich vor 
einem Datenblock beziehungsweise einem Datenfeld befindet. 


Das Datenfeld selbst besteht nun aus der gegebenen Anzahl von Bytes, also 128, 256, 512 oder 
1024 Datenbytes. Diese Datenbytes werden wiederum durch ein CRC-Byte abgeschlossen, wie 
das schon im ID-Feld der Fall war. Das CRC-Byte wird dabei vom Prozessor wieder mit $f7 
angegeben und vom Controller automatisch durch den errechneten Wert ersetzt. 


Die Lücke 4 am Ende eines Sektors ist von den übrigen Parametern der Formatierung abhängig. 
Ihre Größe ist deshalb unterschiedlich, wie der Parameter x andeuten soll. Sie hängt sowohl von 
der Anzahl der Sektoren als auch von deren Größe ab. 


Nach der Lücke 4 beginnt, falls die Spur noch nicht vollständig ist, ein neuer Sektor, der durch 
die SYNC-Markierung seines ID-Feldes angekündigt wird. 


Ist hingegen schon der letzte Sektor der Spur erreicht, also der Sektor mit der höchsten Nummer, 
so dauert dessen Lücke 4 bis zum Erkennen des Indexlochs, womit die Spur wieder von vorne 
beginnt. 
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11 Die Programmierung der 1570/71-Diskcontroller 


Sie wissen nun, wie eine Diskette aufgebaut ist, wie Daten darauf geschrieben und wieder 
heruntergelesen werden und wie Sie Maschinenprogramme in der Floppy zum Laufen 
bekommen. Was nun noch fehlt, sind Bedienungsanleitungen zur Programmierung der beiden 
Diskcontroller der 1570/71. Diese Anleitungen sollen in diesem Kapitel gegeben werden. Dabei 
fangen wir mit dem GCR-Format an. 


11.1 Der Commodore-Diskcontroller 


Wie Sie schon erfahren haben, handelt es sich bei diesem Baustein eigentlich gar nicht um einen 
Controller im üblichen Sinn. Wir haben es hier vielmehr nur mit einer Schreib- und Leselogik zu 
tun, die den Diskettenbetrieb steuert. Wollen wir Daten auf die Diskette bringen, so muß das 
softwaremäßig geschehen, was sowohl Vor- als auch Nachteile hat. Zu den Nachteilen zählt 
sicher der große Aufwand und die geringere Geschwindigkeit gegenüber anderen Systemen. Der 
große Vorteil ist allerdings, daßman beim Schreiben auf Disketten nicht an gegebene 
Formatanweisungen gebunden ist. Sie können sich also Ihre eigenen Diskettenformate zusam- 
menstellen und auch wirksame Kopierschutzmethoden entwickeln. 


An dieser Stelle sollen nun ein paar Standardroutinen vorgestellt werden, mit denen das 
Schreiben und Lesen von Daten erfolgen kann. Es sei dabei auch wieder auf das DOS- Listing 
verwiesen, dessen Studium sich gerade für diesen Zweck lohnt. Die Belegung der einzelnen 
Portregister der Schnittstellenbausteine können Sie in Kapitel 8 und Anhang B noch einmal 
nachlesen. 


11.1.1 Das Umschalten von Lesen auf Schreiben und umgekehrt 


Dieser Vorgang ist der wohl wichtigste, bevor ein Diskettenzugriff erfolgen kann. Sie sollten sich 
an dieser Stelle einprägen, daß der Hauptmodus der Floppy immer das Lesen ist. Wenn also 
Daten geschrieben werden sollen, so wird auf Schreiben umgeschaltet, dann werden die Daten 
geschrieben und danach muß sofort wieder auf Lesen umgeschaltet werden. Halten Sie sich nicht 
an dieses Schema, so kann es passieren, daß die Floppy im Schreibmodus bleibt und Ihnen 
solange weitere Daten oder ganze Spuren überschreibt, bis die Umschaltung erfolgt. Seien Sie 
also mit dem Schreiben 
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immer sehr vorsichtig und vergewissern Sie sich, daß nach dem Schreiben wieder auf Lesen 
umgeschaltet wird. 


Nun kommen wir aber zu den einzelnen Routinen, zuerst zum Umschalten von Lesen auf 
Schreiben: 






























































lda #$£f£f ; alle Bits setzen und damit 
sta $1c03 ; Port A (Tonkopf) auf Ausgang schalten 
lda $1c0c ; Elektronik durch 
and #S1£ ; schalten des CB2 auf 
ora #$c0 ; Hi-Pegel 
sta $Sl1c0c ; auf Schreibbetrieb schalten 
; Schreiben von Daten sofort (!!!) beginnen 


Nach der Ausführung dieser Befehle befindet sich die Floppy im Schreibbetrieb. Alle Daten, die 
jetzt an Port A des Diskcontrollers VIA 2 anliegen, werden direkt auf die Diskette geschrieben. 


Da sich die Diskette mit ziemlich hoher Geschwindigkeit dreht, erfolgen auch Schreib- und 
Lesevorgänge entsprechend rasch. Sie haben mit einer Übertragungsrate von 31250 bis 38461 
Byte pro Sekunde zu rechnen. Beachten Sie also immer, daß Ihnen bei einer System taktfrequenz 
von 1 MHz maximal zwischen 26 und 32 Prozessor- Taktzyklen für die Datenverarbeitung zur 
Verfügung stehen, bevor das nächste Byte auf die Diskette geschrieben oder von der Diskette 
gelesen worden ist! 


Sie müssen sich unter anderem auch damit abfinden, daß während einer Umschaltung zwischen 
Lesen und Schreiben ein paar Bits auf der Diskette einen undefinierten Zustand erhalten, denn 
schließlich dreht sich die Diskette während des Umschaltvorgangs weiter. 


Wenn Sie sich für die Ansteuerung der Interface-Bausteine, die jetzt besprochen werden, genauer 
interessieren, so schlagen Sie bitte im Anhang B nach. Dort sind von allen Bausteinen die 
wichtigsten Belegungen aus den Datenblättern zusammengefaßt. 


Nun aber zum Umschalten auf das Lesen, das jedesmal direkt nach dem Schreiben des letzten 
Bytes erfolgen sollte: 












































lda $1c0c ; Elektronik durch Umschalten des CB2 
ora #$e0 ; auf Lo-Pegel auf Lesebetrieb 

sta $Sl1c0c ; umschalten 

lda #500 ; alle Bits löschen und den Tonkopf 
sta $S1c03 ; auf Eingang schalten 


























; weitere Bearbeitung... 
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Diese Routine finden Sie im DOS übrigens in identischer Form bei Adresse $fe00. Eine Routine 
zum Umschalten auf Schreiben existiert aus Geschwindigkeitsgründen nicht extra, sondern 
beinhaltet in der Regel gleich die nötigen Schreibvorgänge. (Siehe zum Beispiel ab Adresse 
$feOe, wo eine Spur mit $55-Bytes vollgeschrieben, also gelöscht wird) 


11.1.2 Das Schreiben eines Bytes 


Nachdem Sie auf Schreiben umgeschaltet haben, wollen Sie direkt im Anschluß daran ein Byte 
auf die Diskette schreiben. Das kann folgendermaßen aussehen: 












































lda #$Byte ; GCR-Byte holen 
sta $S1c01 ; und zum Schreibkopf 
clv ; Flag für BYTE READY löschen 
loop bvc loop ; auf BYTE READY warten 
4 


weiter... 


Es gibt jedoch in der 1570/71 noch eine zweite Möglichkeit: 
























































lda #$Byte ; GCR-Byte holen 
sta $l1c0l ; und zum Schreibkopf 
loop bit 3180f ; Flag für BYTE READY abfragen 
bmi loop ; auf BYTE READY warten 
a ; weiter... 


Diese zweite Möglichkeit wurde im Gegensatz zur 1541 bei der 1570/71 ergänzt. Wenn ein 
Schreib- oder Lesevorgang stattfindet, so muß der Prozessor natürlich warten, bis dieser Vorgang 
beendet ist, bevor er zum Beispiel ein zweites Byte schreibt oder liest. Zu diesem Zweck dient 
die BYTE-READY-Leitung des Diskcontrollers. Sie signalisiert das Ende eines Schreib- oder 
Lesevorgangs. Diese Leitung ist zum einen über den SO-Pin mit dem Prozessor verbunden. Das 
Overflow-Flag in dessen Statusregister wird demnach gesetzt, wenn die Leitung auf Hi geht. 
Andererseits wurde auch eine Verbindung zu CAl des VIA 1 gelegt, um den Zustand der Leitung 
im Port A anzuzeigen. 


Wichtig ist bei der Overflow-Abfrage ein Löschen des Flags nach dem Schreib- oder 
Lesevorgang. Bei der Portabfrage muß das Löschen nur vor dem ersten Zugriff erfolgen, um 
einen definierten Zustand zu erreichen. ansonsten erfolgt das Zurücksetzen des Flags automatisch 
durch den Diskcontroller. 


Das Starten des Schreibvorgangs erfolgt jeweils automatisch mit dem Schreiben des Bytes in Port 
A des Diskcontrollers. 
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11.1.3 Das Lesen eines Bytes 


Das Lesen eines Bytes geschieht analog zum Schreiben, wobei es wiederum 
zwei verschiedene Möglichkeiten gibt: 





clv ; Flag für BYTE READY löschen 
loop bvc loop ; auf BYTE READY warten 
1da $1c01 ; Byte von Controller holen 
; zur weiteren Bearbeitung... 












































oder: 


loop bit $180£f ; Flag für BYTE READY holen 
bmi loop ; auf BYTE READY warten 

l1da $1c01 ; Byte von Controller holen 
; zur weiteren Bearbeitung... 
























































Wenn Sie also Bytes schreiben und lesen, so denken Sie bitte an die knappe Zeit von 26 bis 32 
Taktzyklen. Eine größere Bearbeitung eines Bytes ist daher nicht sofort möglich, sondern Sie 
müssen zuerst alle gewünschten Bytes einlesen, in einen Puffer schreiben und anschließend 
bearbeiten. 


11.1.4 Das Schreiben einer SYNC-Markierung 


Der folgende Vorgang gehört natürlich mit zu den wichtigsten beim Diskettenbetrieb. Ohne 
vorangehende SYNC-Markierung fällt es in der Regel schwer, geschriebene Daten auf einer Spur 
wiederzufinden. Wenn Sie eine SYNC-Markierung schreiben wollen, dann schalten Sie vorher 
auf Schreiben um und führen direkt danach folgende Befehle aus: 


















































ldx #805 ; 5 Bytes für eine SYNC-Markierung 
start 1da #S££ ; Byte %11111111 für SYNC-Markierung 
sta $Sl1c01 ; Byte zum Diskcontroller 
clv ; Flag für BYTE READY löschen 
loop bvc loop ; Schreib organg abwarten 
dex ; nächstes Byte 











bne start ; und weitermachen, bis SYNC fertig 
; weiter... 


Das Idx #$05 sollten Sie sogar noch möglichst vor dem Umschalten auf Schreiben ausführen. 
Nach dem Umschalten auf Schreiben (und auch auf Lesen) ist es unbedingt notwendig, so schnell 
wie möglich das Byte auf die Diskette zu schreiben, um "undefinierte" Zonen, die das Timing des 
Diskcontrollers durcheinander bringen können, so klein wie möglich zu halten (vielleicht 1 bis 3 
Bits maximal). 


Natürlich können Sie auch diesmal wieder die zweite Methode zum Schreiben der SYNC- 
Markierung verwenden: 
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dx #505 ; 5 Bytes für eine SYNC-Markierung 
start Ida #S£f ; Byte %$11111111 für SYNC 

sta $1c0 ; zum Diskcontroller schicken 
loop bit $180f ; BYTE READY abfragen 

bmi loop ; auf BYTE READY warten 

dex ; nächstes Byte 

bne start ; und weitermachen 

; weiter... 


11.1.5 Das Suchen einer SYNC-Markierung 


Hier ist das Gegenstück zum Schreiben der SYNC-Markierung, das Suchen. Von Lesen zu 
sprechen ist in diesem Fall nicht angebracht, da eine SYNC-Markierung vom Diskcontroller 
nicht mehr so gelesen werden kann, wie das bei einem GCR - Byte der Fall ist. 


Eine auftretende SYNC-Markierung löst beim Diskcontroller das hardwaremäßig festgelegte 
SYNC-Signal aus. Während dieses Signal auftritt, wird der Schreib-/Leseport des Diskcontrollers 
gesperrt, das heißt, nicht mehr mit Daten versorgt - und auch kein BYTE READY mehr ausgelöst 
-, bis die SYNC-Zone auf der Diskette vorbei ist. Aus diesem Grund enthält der VIA 2 in seinem 
Port zum Schreib-/Lesekopf nach dem Auftreten des SYNC-Signals einen undefinierten Wert. 
Dieser entspricht der Bitfolge, die bis zur Feststellung des SYNC-Bereichs durch den Controller 
eingelesen wurde. 


Zu diesem Sperren während eines SYNC-Signals eine kurze Bemerkung: Vielleicht haben Sie 
schon einmal etwas von "Killertracks" gehört? Das sind Spuren, bei denen sich die Floppy 
scheinbar "aufhängt", wenn Sie versucht, etwas davon einzulesen. Diese Spuren sind nichts 
weiter als eine SYNC-Markierung, die über die gesamte Spur geschrieben wurde. Versucht der 
Controller nun einen Lesezugriff, so stellt er fest, daß hier gerade eine SYNC-Markierung 
vorhanden ist. Er sperrt also das Lesen von Daten und wartet, bis diese Markierung vorüber ist. 
Bei einer durchgehenden Spur gibt es aber kein Ende, und so dauert dieses Warten ewig! Die 
Software zum Lesen hängt dabei natürlich in der Leseschleife zum Abwarten des BYTE- 
READY-Signals und da dieses Signal nie kommt, kommt auch das Programm nicht weiter: die 
Floppy scheint "abgestürzt" zu sein. Bei einem solchen Problem hilft in der Regel das Öffnen des 
Laufwerkschachtes. Der Schreib-/Lesekopf empfängt dann keine Daten mehr und die Floppy 
meldet sich mit einer Fehlermeldung zurück. 


Nun aber zu einer Routine, die das Abwarten einer SYNC-Markierung vornimmt. In ihrer 
einfachsten Form siht sie folgendermaßen aus: 
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loop bit $1c00 
bmi loop 
lda $1c01 





4 
4 
4 


4 


SYNC 
Port 
weiter... 














Lo-aktiv) 


Port A lesen und 
( 
B für Daten wieder 





Bit. 7 
abwarten 


(SYNC) testen 








freinachen 


Diese einfache Form verwendet man jedoch im DOS nicht. Es kann ja passieren, daß eine 
unformatierte Diskette im Laufwerk liegt, die keine SYNC-Markierungen enthält. Die Floppy 
würde sich dann "aufhängen", da kein SYNC-Signal erscheint. In der Praxis setzt man daher 
einen Zähler oder einen Timer ein. In der 1570/71 sind beide Versionen vorhanden. Im DOS der 
1541 verwendet man den Timer 1 von VIA 1 als Zähler, und im ergänzten DOS der 1570/71 
verwendet man das X- und das Y- Register. Nachfolgend sind beide Versionen abgedruckt, zuerst 


die Version der 1570/71: 


ldx #S0£ 





zähler Hi 


setzen 











ldy #500 

loop bit $1c00 
bpl end 
dey 
bne loop 
dex 
bne loop 
jmp error 

end 1da $1c0l 








zähler Lo 


setzen; 3848 Versuche 





SYNC aufgetreten? 


wenn ja 





verzweige, 
sonst zZähl 
und weiter 


er Lo vermindern 


sucnen 


zaähler Hi vermindern 





























jetzt die Version im 1541-Modus: 











lda #$d0 
sta $1805 
lda #803 
loop bit $1805 
bpl error 
bit $1c00 
bmi loop 
lida $1c0l 





error jmp error 


4 









































und weitersuchen 

"21, READ ERROR"; SYNC not found 
Port wieder freimachen 

weiter; alles ok... 

Tinerwert für ca. 53 ns 

Timer Hi setzen und starten 
Vergleichswert für Ende 

Timer abgelaufen? 

ja; Fehler 

SYNC gefunden? 

weitermachen, wenn nein 

Port wieder freinachen 

weiter; alles ok 

zur Fehlerbehandlung: "21, READ ERROR" 














Die erste Version können Sie theoretisch immer verwenden. Bei der zweiten müssen Sie 
vorsichtig sein, wenn Sie im 1570/71-Modus arbeiten, da die Systemtaktfrequenz hier 2 MHz 
beträgt und der Timer dementsprechend zu schnell herunterzählt. Es ist übrigens nicht mehr 
möglich, den Timer 1 des VIA 1 mit einem entsprechend doppelt so hohen Wert zu laden, da der 
Maximalwert, der als Timerwert Hi abgespeichert werden kann, $ff beträgt. 
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Mit dieser Bemerkung haben Sie jetzt praktisch alles, was Sie für die Programmierung des GCR- 
Controllers benötigen. Der Rest ist praktische Erfahrung und Studium des DOS-Listings. In 
kürzester Zeit werden Sie dann in der Lage sein, schnelle Kopierprogramme, Kopierschutzmetho- 
den, Befehlserweiterungen oder Spezialformate zu entwickeln - und das alles auf einer Floppy. 


11.2 Der WD 1770 Diskcontroller von Western Digital 


Ohne Sie gleich in Panik versetzen zu wollen, muß gesagt werden, daß die Programmierung 
dieses Diskcontrollers nicht ganz so einfach ist wie die des Commodore-Diskcontrollers. Das hat 
folgenden Grund: Der WD 1770 stellt eine Gesamteinheit dar, die in der Lage ist, eine gesamte 
Diskettensteuerung vollkommen selbständig durchzuführen. Zum Betrieb dieses Controllers ist 
aus diesem Grund nur wenig Software, dafür aber fundiertes Wissen über seine Funktionsweise 
Voraussetzung. 


Im Prinzip werden Kommandos an den WD 1770 wie vom Hauptprogramm an die Jobschleife 
der 1570/71 übergeben, wobei jedoch ein paar Dinge zu berücksichtigen sind, die wir jetzt gleich 
besprechen werden. 


11.2.1 Die Kommandos des WD 1770 


Im Anhang B finden Sie die wichtigen Daten über den WD 1770 in einer Tabellensammlung 
zusammengefaßt, die Ihnen später das nötige Nachschlagen erleichtern soll. In diesem Kapitel 
werden ein paar dieser Daten jedoch noch einmal aufgeführt. 


Zuerst befassen wir uns mit den Registern des WD 1770. Er besitzt im großen und ganzen nur 
vier, die nachfolgend in einer kleinen Tabelle dargestellt sind: 


Register Adresse Schreibfunktion Lesefunktion 

0 $0 $2000 Kommandoregister Statusregister 
1$I $2001 Spurregister Spurregister 
292 $2002 Sektorregister Sektorregister 

3 $3 $2003 Daten zum Kopf Daten vom Kopf 


Uns interessiert das Register 0 zuerst. Wie Sie feststellen können, liegt dieses Register im 
Adreßbereich der Floppy bei Adresse $2000 (Grundadresse des WD 1770) und hat beim 
Schreiben eine andere Funktion als beim Lesen. Wir beschäftigen uns zuerst mit der 
Schreibfunktion. 
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Das Register O0 empfängt die Befehle an den WD 1770, wobei der Controller vier verschiedene 
Befehlstypen unterscheidet. Diese Befehlstypen und ihre Steuercodes sind in der nachfolgenden 
Tabelle aufgeführt: 
































Typ | Name des Kommandos en 
765432109 
1 Restore 0000h Vr10 
1 Seek 0001 h Vr 10 
l Step 001 uh Vr m 
1 Step-in 010 uh Vr rm 
1 Step-out & 4.7 ©. 4 VO 
2 Read Sector 100mh E00 
2 Write Sector 10 1mh EP 
3 Read Address 1 100hE0O 
3 Read Track 1110hE 00 
3 Write Track 111 1hE PO 
4 Force Interrupt b: 1.94.23 12.112.%0 





Dabei haben die Bitkennzeichnungen folgende Bedeutungen: 


Zeichen Bedeutung des entsprechenden Bits 
h Motor On Flag: 
0: Motor bekommt keine Hochlaufzeit 
l: Motor bekommt 6 Umdrehungen Zeit zum Anlaufen 
V  |[Verify Flag: 
0: kein Verify durchführen 
l:  Verify auf gegebener Spur durchführen 
rl,r0 Stepping rate: 











Gibt die Zeit an, in der zwei Impulse für den Steppermotor 
aufeinanderfolgen; Steppertaktrate: 

00: alle 6 ms 

01: alle 12 ms 

10: alle 20 ms 

11: alle 30 ms 

Bits haben in der 1570/71 keine Bedeutung, da der Stepper- 
motor softwaremäßig gesteuert wird! 





u [Update flag: 

0: keine Änderung des Spurregisters 

l:  Spurregister wird bei Stepperbewegung automatisch auf 
den richtigen Stand gebracht 
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Zeichen Bedeutung des entsprechenden Bits 
m _ |Multiple Sector Flag: 
0:  nurein Sektor soll behandelt werden 
l: mehrere Sektoren sollen behandelt werden 
a0 Data Address Mark: 
0: Data Address Mark für gültigen Sektor setzen 
l: Data Address Mark für gelöschten Sektor setzen 
E _BOms Settling Delay: 
0: keine Verzögerung 
l: wartet nach Kopfpositionierung 30 ms ab 














P Write Precompensation: 
0: keine Write Precompensation 
l: Write Precompensation an 





13-10 |Interrupt Condition: 

Bits setzen die Interruptbedingung bei einem Force Interrupt 
Kommando (Typ 4-) fest: 

10: 1= keine Bedeutung 

ıl: 1= keine Bedeutung 

12: 1= Interrupt bei Erkennung des Indexlochs 

13: 1= sofortiger Interrupt 

alle 0: kein Interrupt 








Tabelle 11.1: Der Befehlssatz des WD 1770 


11.2.1.1 Die Kommandos vom Typ 1 


Wir wollen nun alle Kommandos des WD 1770 ein wenig genauer unter die Lupe nehmen und 
fangen dabei mit den Kommandos des Typs 1 an. 


Das Restore- Kommando: 


Dies Kommando fährt den Schreib- jLesekopf auf Spur 0 zurück, bis die Lichtschranke für den 
Anschlag unterbrochen wird. Ist dann das Verify Flag gesetzt, so wird zusätzlich geprüft, ob 
Spur 0 ordnungsgemäß formatiert ist. Bei der 1570/71 hat dieses Kommando keine Bedeutung, 
da der WD 1770 keine Möglichkeit der Steppermotorsteuerung hat. Die Leitungen für die 
Steppermotorsteuerung wurden von Commodore erstaunlicherweise nicht verwendet und liegen 
deshalb brach. Erstaunlicherweise deshalb, weil der WD 1770 eine vollständige Logik für die 
Steppersteuerung enthält und alles vollautomatisch übernommen hätte. Commodore hat es 
indessen vorgezogen, diese Steuerung sehr umständlich vom Betriebssystem vornehmen zu 
lassen. 
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Merken Sie sich also bei der Programmierung des WD 1770, daß sich der Schreib- /Lesekopf der 
Floppy schon in der richtigen Position befinden muß, bevor der Controller aufgerufen wird, da 
dieser keinen Einfluß auf die Kopfbewegungen nehmen kann. 


Das Seek- Kommando: 


Dies Kommando erwartet im Spurregister die gewünschte Spurnummer und positioniert den 
Schreib-/Lesekopf dann entsprechend. Ist das Verify Flag gesetzt, so wird die Spur zusätzlich auf 
korrekte Formatierung untersucht. 


Das Step-Kommando: 


Dies Kommando bewegt den Kopf um eine Spur in die Richtung, in die auch die letzte 
Bewegung erfolgt ist. rO und rl geben dabei die Steppergeschwindigkeit an. Das Verify Flag 
sorgt gegebenenfalls für eine Prüfung der gewünschten Spur. 


Das Step-in-Kommando: 


Dies Kommando positioniert den Kopf auf die nächsthöhere Spurnummer. Wenn das Update 
Flag gesetzt ist, wird die Spurnummer im Spurregister entsprechend erhöht. 


Das Step-out-Kommando: 


Dies Kommando wirkt wie ein Step-in, nur wird der Kopf um eine Spur nach außen (Richtung 
Spur 0) bewegt. 


Wie Sie sehen, haben alle Kommandos vom Typ 1 etwas mit der Steppersteuerung zu tun: 
Spurnummer ins Spurregister, Seek-Kommando an den Diskcontroller, und schon würde der WD 
1770 den Kopf auf die richtige Spur positionieren, wenn die Leitungen dafür angeschlossen 
WÄTEN ... 


Vielleicht ist der eine oder der andere Bastler unter Ihnen, der sich gerne einmal etwas näher mit 
diesem Problem auseinandersetzt? Für einen Hardware-Spezialisten dürfte es kein Problem sein, 
die 1570/71 in dieser Richtung ein wenig aufzurüsten, und dem WD 1770 die Steppersteuerung 
zu ermöglichen. 


11.2.1.2 Die Kommandos vom Typ 2 


Die Kommandos vom Typ 2 dienen dem Lesen und Schreiben von Sektoren und werden vom 
DOS 3.0 der 1570/71 am häufigsten eingesetzt. 
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Die Kommandos des Typs 2 erfordern jeweils die gewünschte Spur- und Sektornummer im Spur- 
und Sektorregister des WD 1770. Sobald der WD 1770 ein Kommando vom Typ 2 empfängt, 
wird das Busy-Flag gesetzt (dazu später mehr). Ist das E-Bit im Kommandobyte gesetzt, so 
wartet der Controller 30 ms, bevor er sich an die Ausführung des Kommandos macht. 


Startet das Kommando, so sucht sich der Controller zuerst einmal den Reader des gewünschten 
Sektors. Es wird auf die richtige Spur- und Sektornummer im Vorspann des Sektors und auf die 
Prüfsumme, das CRC-Byte, geachtet. Sind diese Bedingungen nicht erfüllt, so meldet der Con- 
troller einen "Sector not found"-Status und bricht das Kommando ab. Andernfalls kommt eines 
der folgenden Kommandos zur Ausführung. 


Das Read - Sector- Kommando: 


Nachdem das korrekte CRC-Byte gelesen wurde, erwartet der Controller nun innerhalb von 43 
Bytes den Beginn des folgenden Datenblocks (Data Address Mark). Kommt der nicht, so wird 
das Kommando mit dem Status "Sector not found" abgebrochen. Andernfalls werden die 
Datenbytes eingelesen und im Datenregister ($2003) bereitgestellt. Danach wird im Statusregister 
das DRQ- Bit gesetzt, das das bereitstehende Byte signalisiert. Der Computer hat nun bis zum 
Eintreffen des nächsten Bytes Zeit, das jetzige Datenbyte auszulesen und abzuspeichern; 
ansonsten schreibt der WD 1770 das folgende Byte ins Datenregister und setzt im Statusregister 
das Lost Data Flag, das ein verlorengegangenes Byte anzeigt. Auf diese Weise wird der gesamte 
Sektor eingelesen und dem Prozessor übergeben. Danach kontrolliert der Diskcontroller noch das 
abschließende CRC-Byte für den Datenblock und setzt gegebenenfalls einen "CRC Error"-Status, 
wenn ein Fehler aufgetreten ist. Anschließend wird noch der Typ der gelesenen Data Address 
Mark ins Statusregister geschrieben, der anzeigt, ob der gelesene Sektor gültig oder gelöscht war. 


Das Write-Sector- Kommando: 


Nach dem Lesen des CRC-Bytes, wartet der Controller noch 22 Bytes ab, bevor er auf Schreiben 
umschaltet. Ist das Datenregister ($2003) bis dahin vom Computer nicht mit dem ersten Byte 
zum Schreiben gefüllt worden, so wird der Lost Data Status angezeigt und das Kommando 
abgebrochen. Ansonsten werden die 12 Bytes der SYNC-Markierung geschrieben. Anschließend 
folgt das Schreiben der Data Address Mark, die den Datenblockbeginn ankündigt. Soll der 
Datenblock als gelöscht oder ungültig deklariert werden, so muß im Kommandobyte das a0-Bit 
(Bit 0) gesetzt sein. Sonst wird in die Data Address Mark der Status eines gültigen Sektors ein- 
getragen. Der WD 1770 schreibt nun den Datenblock auf die Diskette und 
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erwartet dazu vom Prozessor die Bereitstellung der Daten im Datenregister. Erfolgt das nicht, so 
wird das Kommando nicht abgebrochen, sondern der Controller schreibt den Rest des 
Datenblocks mit $00 voll und bildet das korrekte CRC-Byte, das ebenfalls auf die Diskette 
geschrieben wird. 24 Mikrosekunden danach wird der Befehl für beendet erklärt. 


11.2.1.3 Die Kommandos vom Typ 3 


Diese Kommandos befassen sich mit einer ganzen Spur einer Diskette und behandeln auch das 
Formatieren. Bei allen Kommandos vom Typ 3 wird das Busy-Flag direkt nach dem Empfang 
des Kommandos gesetzt und das Kommando ausgeführt. 


Das Read-Address-Kommando: 


Wenn der Controller dieses Kommando erhält, wird sofort das nächste verfügbare ID-Feld einer 
Spur eingelesen, wobei dem Prozessor die folgenden sechs Bytes übergeben werden: 


Byte 1 Spurnummer 

Byte 2 Seitennummer der Diskette 
Byte 3 Sektornummer 

Byte 4 Sektorgröße 

Byte 5 l. CRC- Byte 


Byte 6 2. CRC-Byte. 


Obwohl der Prozessor diese Werte erhält, werden sie vom Controller geprüft und gegebenenfalls 
der "CRC Error"-Status gesetzt. 


Das Read-Track-Kommando: 


Mit diesem Kommando werden sämtliche Bytes einer gesamten Spur von der Diskette gelesen 
und ohne Fehlerprüfung direkt in das Datenregister ($2003) geschrieben. Der Prozessor kann sie 
dort abholen und zum Beispiel eine Diagnose der Spur erstellen. Da sämtliche Bytes gelesen 
werden, kann es passieren, daß einige Fehlbytes an den Stellen eingelesen werden, die der 
Controller jedes mal zum Umschalten zwischen Schreiben und Lesen verwendet. Dabei handelt 
es sich jedoch immer um eine der 4 Lückentypen, so daß der Fehler nicht ins Gewicht fällt. Nach 
einer Diskettenumdrehung ist das Kommando beendet. 


Das Write-Track-Kommando: 


Dieses Kommandobyte dient zum Formatieren einer Spur auf der Diskette. Die Ausführung 
dieses Kommandos beginnt mit dem Erkennen des Index 
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lochs, das den Anfang einer Spur kennzeichnet, und ist mit dem erneuten Auftreten des 
Indexloch-Impulses beendet, da dann eine volle Diskettenumdrehung stattgefunden hat. Die 
Bytefolge, die dabei auf die Diskette geschrieben wird, können Sie sowohl dem DOS-Listing (ab 
Adresse $8a86), als auch dem Aufbau einer Spur beziehunsweise eines Sektors in Kapitel 10 
entnehmen. 


11.2.1.4 Die Kommandos vom Typ 4 


Diese Kommandos bestehen eigentlich aus einem einzigen Kommando mit unterschiedlichen 
Möglichkeiten. Es handelt sich hier darum, den WD 1770 durch einen Interrupt zum Abbrechen 
eines laufenden Kommandos zu bewegen. Die Voraussetzung ist dabei, daß das Abbruch- 
kommando mindestens 16 Mikrosekunden im Kommandoregister anliegen muß, sonst wird die 
Interruptanforderung ignoriert. Die Bits 0 bis 3 bestimmen dabei im Kommandobyte die 
Interruptbedingung (siehe Tabelle 11.1): 


Bit O0 sofortiger Interrupt 

Bit 1 Interrupt nach dem nächsten Erkennen des Indexlochs 
Bit 2 keine Bedeutung 

Bit 3 keine Bedeutung 


Die Bits müssen für die entsprechende Bedingung gesetzt werden. Das Kommando wird beim 
Überschreiben des Kommandobytes im Kommandoregister ignoriert, wenn die 16 
Mikrosekunden noch nicht abgelaufen sind. 


11.2.2 Die Rückmeldungen des WD 1770 


Bisher haben wir uns mit den Befehlen an den WD 1770 beschäftigt. Es muß aber auch möglich 
sein, die Rückmeldungen dieses Controllers empfangen zu können, damit das DOS weiß, wann 
Fehler aufgetreten sind oder das Kommando ordnungsgemäß ausgeführt wurde. 


Zu diesem Zweck gibt es im WD 1770 das Statusregister, das genau die gleiche Adresse wie das 
Kommandoregister ($2000) besitzt, und sich bei Lesevorgängen an dieser Adresse einblendet. 
Die Belegungen dieses Registers sind folgende (siehe auch Anhang B): 
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Bit Bedeutung 





0  |Busy Flag: 
0: Controller bereit für Befehlsempfang 
l: Kommandos der Typen 2 und 3 werden ausgeführt 





1 Data Request/Index Flag: 

0: zeigt an, das das Datenregister aktuell ist 

l: zeigt an, wenn ein Byte gelesen oder geschrieben wurde 

Bei Typ 1: zeigt Zustand der Indexlochlichtschranke an 
l= nicht unterbrochen 





2 Lost Data/TrackO Flag: 
0: ok 
l: Daten beim Lesen oder Schreiben verlorengegangen 
Bei Typ 1: zeigt Spur 0 Postion des Kopfes an 
1= Kopf nicht auf Spur O 





3 |CRC Error Flag: 
0: ok 
l: CRC Error aufgetreten 





4 Record Not Found Flag: 
0: ok 
l: Record not found Meldung yon Controller 





5 Record Type/Spin Up Flag: 

0: Data Address Mark für normalen Sektor setzen 

l: Data Address Mark für ungültigen Sektor setzen 

Bei Typ 1: Zeigt an, daß Motor 6 Umdrehungen beendet hat 
1= Hochlaufphase beendet 





6 Write Protect Flag: 
0: Ok 
l: Diskette schreibgeschützt (nur bei Schreiboperationen) 





7  |Motor On Flag: 
0: Motor ausgeschaltet 
l: Motor eingeschaltet 








Tabelle 11.2: Die Belegung des Statusregisters des WD 1770 
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12 Floppy 1570/71 Spezial 


Im nun folgende Kapitel geht es um die Eigenschaften der 1570/71, die im Handbuch nicht 
erwähnt werden, obwohl es die herausragenden Merkmale dieser neuen Floppies schlechthin 
sind. Gemeint ist die Arbeit mit der 1570/71 im schnellen Busmodus, der als Burst-Modus 
bezeichnet wird. 


Wie die 1541, so besitzt auch die 1570/71 einen seriellen Bus. Dieser Bus kann jedoch auf das 
Vielfache seiner ursprünglichen Geschwindigkeit (der Geschwindigkeit im 1541-Modus) 
gebracht werden, wenn man die Regeln dafür kennt. 


Für diesen sehr schnellen Busbetrieb gibt es in der 1570/71 einen kompletten zusätzlichen 
Befehlssatz, der wie schon gesagt, im Handbuch mit keinem Wort erwähnt wird. Dieser 
Befehlssatz ist unter dem Namen UO-Befehle zusammengefaßt und soll nun unter die Lupe 
genommen werden. 


12.1 Die USER-0-Befehle (UO) 


Wenn Sie sich noch an Kapitel 7.11 erinnern, so werden Sie wissen, daß die Benutzer-Befehle 
(USER-Befehle) dort schon einmal erklärt wurden. Es handelte sich dabei um die Befehle Ul bis 
U:, die dort ausführlich erläutert wurden. Ein einziger Benutzer-Befehl wurde jedoch 
weggelassen: der UO-Befehl. Diesem Befehl sind nämlich völlig neue und vielseitige Funktionen 
zugewiesen worden, weshalb wir ihn jetzt betrachten wollen. 


Sie finden übrigens in diesem Buch einen hervorragenden Diskmonitor zum Abtippen. Dieser 
BURSTMON 3.0 arbeitet fast ausschließlich mit den UO-Befehlen und erreicht in der 
Verarbeitung Geschwindigkeiten, die Sie bei einem vergleichbaren Programm kaum finden 
werden (siehe Kapitel 13). 


Es sei an dieser Stelle vor der Besprechung der einzelnen Burst-Kommandos noch erwähnt, daß 
Sie für den Betrieb der meisten dieser Befehle. spezielle Empfangs- und Senderoutinen im 
Computer benötigen. Diese Routinen arbeiten außerordentlich schnell und sind deshalb natürlich 
in Maschinensprache geschrieben. Im Anschluß an die Befehle werden diese Routinen ebenfalls 
aufgeführt. 
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12.1.1 Das BURST-READ-Kommando 


Wenn Sie dieses Kommando an die Floppy senden, so werden eine oder mehrerer Sektoren sehr 
schnell von der Diskette gelesen, wobei diese über den schnellen Busbetrieb sofort zum 
Computer übertragen werden können. Mit den herkömmlichen Floppyroutinen und den 
nachträglich vorgestellten Busroutinen für den Computer können Lesegeschwindigkeiten unter 
einer Sekunde für eine komplette Spur erreicht werden, wobei im GCR-Format 21 Sektoren zum 
Computer übertragen werden. 


Die nachfolgende Tabelle zeigt die Belegung und Bedeutung der einzelnen Bits. Der Befehl wird 
ganz normal in einem Befehlsstring über den Kommandokanal an die Floppy gesendet. 
Byte Bedeutung 
00 entspricht dem Zeichen U mit dem Wert $55 
01 entspricht dem Zeichen 0 mit dem Wert $30 
02  DBefehlsbyte, die Bits haben folgende Bedeutung: 

Bit 0:Drivenummer (immer 0) 

Bit l:immer O0 

Bit 2:immer O0 

Bit 3:immer O0 

Bit 4:Wahl der Diskettenseite unter MFM (0 oder 1) 

Bit 5:nur Pufferübertragung; bei 1 wird dem Computer nur der Pufferinhalt, in dem die 

gelesenen Sektoren normalerweise stehen, übertragen 

Bit 6:bei 1 werden eventuelle Lesefehler ignoriert 

Bit 7:bei 1 wird ein Sektor nur in den Puffer gelesen und nicht zum Computer übertragen 
03 Gewünschte Spurnummer zum Lesen 
04 Gewünschte Sektornummer zum Lesen 
05 Anzahl der Sektoren, die gelesen werden sollen 
06 Spurnummer, auf die der Kopf danach positioniert werden soll. 

Diese Angabe ist optional 

Busverkehr: Senden des Kommandos über den Befehlskanal an die Floppy. Die Floppy sendet 
darauf jeweils ein Statusbyte und nachfolgend den Sektorinhalt zum Computer. 


Tabelle 12.1: Die Struktur des BURST -READ-Kommandos 


Wie Sie sehen, geht dem eigentlichen Kommandobyte immer die Zeichenfolge UO voran, und das 
wird auch bei allen nun folgenden Befehlen der Fall sein. Wo die einzelnen Befehle im DOS 
stehen, können Sie ab Adresse $8030 nachlesen. Die erste Routine des DOS 3.0 ist nämlich die 
Zusatzbehandlung für die erweiterten Funktionen des UO-Befehls. 


Die Funktionen der einzelnen Bits erklären sich eigentlich von selbst, bis auf Bit 5, 6 und 7. 
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Wenn im Kommandobyte das Bit 5 gesetzt ist, so wird kein Sektor von der Diskette eingelesen, 
sondern es wird lediglich der Pufferinhalt zum Computer übertragen, in dem die Sektoren 
üblicherweise stehen. Im Burst-Modus verwendet die Floppy für Schreib- und Leseoperationen 
immer den Adreßbereich ab $0300. Das Ende des Bereiches hängt von der Größe des zu 
behandelnden Sektors ab. Bei GCR-Sektoren ist das Ende immer $03ff; bei MFM-Sektoren der 
Länge 1024 Bytes liegt das Ende bei $06ff. 


Das gesetzte Bit 6 ermöglicht das Ignorieren von eventuell auftretenden Lesefehlern. Sie werden 
hier also in die Lage versetzt, auch defekte Sektoren ordnungsgemäß einzulesen, wenn das DOS 
noch in der Lage ist, diese von der Diskette zu laden. 


Das gesetzte Bit 7 erlaubt das Lesen eines Sektors, ohne daß dieser zum Computer übertragen 
wird. Zusammen mit der Funktion von Bit 5 können Sie einen Sektor erst einmal von der Dis- 
kette lesen und ihn zu einem späteren Zeitpunkt in den Computer übernehmen. 


Im Normalbetrieb sind die Bits 5, 6 und 7 auf 0. Es wird dann ein Sektor von der Diskette 
gelesen und direkt danach zum Computer übertragen. 


Die folgenden Parameterbytes sind eindeutig, bis auf die Bytes 5 und 6. 


Durch Byte 5 kann die Anzahl der Sektoren angegeben werden, die im Burst-Modus direkt 
hintereinander gelesen werden sollen. Zu beachten ist dabei, daß die Sektornummer der 
folgenden Sektoren vom gesetzten Sektorabstand (sector interleave) abhängig ist. Das Setzen 
dieses Abstands ist auch ein BURST-Kommando. Steht der Interleave- Wert also auf 1, so wird 
immer der physikalisch nächste Sektor von der Diskette gelesen (z.B. nach Sektor 0 kommt 1, 2, 
3, usw.). Ist der Interleave-Wert auf 5 und Sie lesen als ersten Sektor zum Beispiel Sektor 18, 0, 
so wird als nächster Sektor 18, 5 und danach gegebenenfalls Sektor 18, 10 und so weiter gelesen. 


Byte 6 gibt die Spurnummer an, auf die der Kopf nach der Ausführung des BURST-READ 
positioniert werden soll. Das erlaubt sehr schnelle Lesevorgänge auf unterschiedlichsten Spuren. 


Wenn die Diskette gewechselt wurde, so ist vor dem Lesevorgang ein INQUIRE-DISK- 
Kommando durchzuführen. Das entspricht dem Initialisieren von GCR-Disketten und ist sowohl 
auf das GCR-Format als auch auf das MFM-Format anwendbar. Wird dieses Kommando nicht 
gegeben, so meldet der Controller den Fehlerstatus "disk id mismatch or disk change". Das 
INQUIRE-DISK-Kommando werden wir in diesem Kapitel noch behandeln. 
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Noch eine Bemerkung zum Busverkehr: Wurde das BURST-READ-Kommando an die Floppy 
gesendet, so muß sich der Computer für den Empfang von Burst-Daten bereitmachen. Das sind 
Daten, die über den schnellen seriellen Bus gesendet werden. Die Floppy sendet bei BURST- 
READ in jedem Fall ein Statusbyte, dem dann auf Wunsch der Sektor folgt. Werden mehrere 
Sektoren gelesen, so sendet die Floppy immer nach Lesen eines Sektors das entsprechende 
Statusbyte und danach die Sektordaten. 


12.1.2 Das BURST-WRITE-Kommando 


Hier handelt es sich um das Gegenstück zum BURST-READ-Kommando. Die Syntax dieses 
Befehls ist der des Lesekommandos sehr ähnlich und lautet folgendermaßen: 
Byte Bedeutung 
00 entspricht dem Zeichen U mit dem Wert $55 
01 entspricht dem Zeichen 0 mit dem Wert $30 
02  Befehlsbyte, die Bits haben folgende Bedeutung: 

Bit 0:Drivenummer (immer 0) 

Bit l:immer 1 

Bit 2:immer O0 

Bit 3:immer 0 

Bit 4:Seitenwahl bei MFM-Format (Seite O0 oder 1) 

Bit 5:1 bedeutet, Computer schreibt nur Daten in den Puffer ab $0300; 

kein Diskettenzugriff 
Bit 6:1 bedeutet, Schreib- und Lesefehler ignorieren 
Bit 7:1 bedeutet, daß nur der Sektor geschrieben wird. 
Die Floppy erwartet die Daten schon im Puffer. 

03 Gewünschte Spurnummer für Schreiben 
04 Gewünschte Sektornummer für Schreiben 
05 Anzahl der Sektoren zum Schreiben 
07 Nächste Spur für Kopfpositionierung nach Ende des Schreibens. 
Busverkehr: Der Computer muß nach dem Senden des Kommandos den Busverkehr auf Burst- 
Betrieb umstellen und gegebenenfalls die Daten für den Sektor an die Floppy schicken. Nach 
dem Schreiben eines jeden Sektors gibt die Floppy ein Statusbyte aus. 


Tabelle 12.2: Die Struktur des BURST - WRITE- Kommandos 


Die Bedienung des BURST-WRITE-Kommandos erfolgt analog zu der des BURST-READ- 
Kommandos. Auch die einzelnen Kommandobits haben die gleiche Bedeutung. Lediglich Bit 5 
und Bit 7 beziehen sich jetzt auf das Schreiben von Daten und nicht auf das Lesen. Das heißt, ist 
Bit 5 gesetzt, so wird der schon vorhandene Pufferinhalt auf die Diskette geschrieben, ohne daß 
zuvor Daten vom Computer geholt werden. Ist Bit 7 gesetzt, so holt sich die Floppy lediglich 
einen vollständigen Pufferinhalt vom Computer, wobei dieser nicht auf die Diskette geschrieben 
wird. 
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Mit den Flags für das "nur in den Puffer schreiben" oder "nur den Puffer auslesen", ist es für Sie 
also auch ganz bequem möglich - vor allem mit hoher Geschwindigkeit -, Maschinenprogramme 
in den Puffer der Floppy zu schreiben oder Daten wieder herauszulesen. 


12.1.3 Das INQUIRE-DISK-Kommando 


Dieses Kommando oder das QUERY-DISK-Kommando (siehe 12.1.7), muß nach jedem 
Diskettenwechsel und nach dem Formatieren gegeben werden, um die Diskette zu initialisieren 
(log in the diskette), wenn anschließend ein Burst-Kommando an die Floppystation geschickt 
wird, das einen Diskettenzugriff vornimmt. Wird dieses Initialisieren unterlassen, so erfolgt die 
Statusmeldung "disk id mismatch or disk changed" vom Controller. 


An dieser Stelle sei darauf hingewiesen, daß diese Initialisierung nichts mit dem 
Floppykommando I zu tun hat. Das I-Kommando dient der Initialisierung einer GCR- 
formatierten Diskette, wobei deren BAM gelesen wird. Das INQUIRE-DISK-Kommando 
hingegen fährt den Kopf auf Spur 0 (beziehungsweise 1) und liest dann die wichtigen 
Diskettenparameter aus dem nächstbesten Blockheader. Hierbei muß natürlich zwischen GCR- 
und MFM-Format unterschieden werden. Im GCR-Format wird der Jobcode zum Suchen eines 
Sektors ausgeführt und dabei die ID geladen; wohingegen im MFM-Format die Sektorparameter 
gesetzt werden, als da sind: Anzahl der Sektoren pro Spur, Größe der Sektoren, Nummer des 
kleinsten und größten Sektors einer Spur. 


Byte Bedeutung 

00 entspricht dem Zeichen U mit dem Wert $55 

01 entspricht dem Zeichen 0 mit dem Wert $30 

02 Kommandobyte, wobei die Bits folgendermaßen zu setzen sind: 


Bit 0: Drivenummer (immer 0) 

Bit 1: immer O0 

Bit 2: immer 1 

Bit 3: immer 0 

Bit 4: Seitennummer bei MFM-Diskette 

Bit 5: egal 

Bit 6: egal 

Bit 7: egal 
Busverkehr: Computer muß nach dem Senden des Kommandos auf den Burst- 
Modus umschalten. 
Die Floppy gibt nach der Ausführung des Befehls ein Statusbyte aus. 


Tabelle 12.3: Die Struktur des INQUIRE-DISK-Kommandos 
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Wie fast alle Burst-Befehle, so gibt auch das INQUIRE-DISK-Kommando nach seiner 
Ausführung ein Statusbyte an den Computer aus. Dieses Statusbyte ist für die UO-Befehle 
typisch. 


12.1.4 Das FORMAT-Kommando 


Mit diesem Burst-Kommando ist es möglich Disketten sowohl im GCR, als auch im MFM- 
Format zu formatieren. Es handelt sich hierbei jedoch um ein reines Formatieren, das heißt, es 
wird weder im GER noch im MFM-Format ein Directory auf die Diskette gebracht. Hier ist 


zuerst das Formatieren im MFM-Format. Die Kommandofolge sieht folgendermaßen aus: 
Byte Bedeutung 


00 entspricht dem Zeichen U mit dem Wert $55 
01 entspricht dem Zeichen 0 mit dem Wert $30 
02 Kommandobyte, wobei die Bits folgende Bedeutung haben: 
Bit 0: Drivenummer (immer 0) 
Bit 1: immer 1 
Bit 2: immer 1 
Bit 3: immer 0 
Bit 4: Seitenummer der Diskette 0 oder 1 
Bit 5: Flag für Formatieren; 1=beidseitig; O=einseitig 
Bit 6: Flag für Index Address Mark; 


1= schreiben; 
0= nicht schreiben 

Bit 7: immer 0 bei MFM 

03 Steuerbyte für Formatierung: 

Bits O bis 5 enthalten den logischen Startsektor 

Bit 6: Anzeige der Sektortabelle: 
1= Sektortabelle wird vom Computer übergeben 
0= Sektortabelle wird von der Floppy selbst erstellt. 


Bit 7: Flag für Formatierung; bei MFM-Format immer 1 
04 Sektorabstand für Hardware (sector interleave) 

(Angabe nicht notwendig); bei fehlender Angabe 0 
05 Größe der Sektoren (0-3): (Angabe nicht notwendig) 


0 - 128 Bytes pro Sektor 

1 - 256 Bytes pro Sektor (bei fehlender Angabe) 
2-512 Bytes pro Sektor 

3 - 1024 Bytes pro Sektor 


06 Letzte Spurnummer beim Formatieren; Angabe nicht notwendig; sie wird dann 39 gesetzt 


07 Anzahl der Sektoren pro Spur (Angabe nicht notwendig). Wird der 
Parameter angegeben, so richtet sich die Maximalzahl der Sektoren nach 
Byte 05 und zwar: 
26 bei Größe 0 
16 bei Größe 1 
9 bei Größe 2 
5 bei Größe 3 
08 Nummer der Spur für Start der Formatierung 
(Angabe nicht notwendig; Floppy setzt dann 0) 
09 Physikalischer Beginn der ersten Spur: 
(Angabe nicht notwendig; Floppy setzt dann 0) 
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10 Füllbyte; Wert, mit dem die Sektoren beim Formatieren gefüllt werden sollen; 
(Angabe nicht notwendig; die Floppy setzt dann $e5 als Defaultwert) 


11-... Bytes der Sektortabelle, falls in Byte 03 des Befehls das Bit 6 gesetzt war. 


Busverkehr: Nach dem Senden des Befehls und der Daten vom Computer über den Kommandokanal kein 
Busverkehr mehr. Die Floppy sendet beim Formatieren kein Statusbyte! 


Tabelle 12.4: Die Struktur des FORMAT-Kommandos im MFM-Modus 
Die vielen Parameter des FORMAT-Kommandos bedürfen ein paar Erläuterungen. 


Zuerst einmal zur Sektortabelle. Der Benutzer kann entweder eine eigene Sektorreihenfolge auf 
jeder Spur der Diskette bestimmen, oder er kann die Reihenfolge von der Floppy setzen lassen. 
Diese nimmt dann die Standardwerte, mit dem Beginn bei niederen Sektornummern und dem 
Ende bei den höchsten Sektornummern. 


Die physikalische Sektorreihenfolge hängt von der Angabe des Interleave-Wertes in Byte 04 ab. 
Steht dieser Wert auf Null, so schreibt die Floppy nach dem Sektor O0 den Sektor 1 und so weiter. 
Ansonsten erfolgt die Steigerung schrittweise nach Angabe des Interleave-Wertes. Bei der 
Angabe einer Sektortabelle können Sie vollkommen eigene Reihenfolgen setzen. Die Floppy 
schreibt die Sektoren dann in der Reihenfolge auf die Diskette, in der sie durch die Tabelle 
bestimmt sind. 


Alle Angaben beim Formatieren ab dem Byte 03 sind optional, das heißt, sie müssen nicht 
angegeben werden. Die Floppy setzt dann jeweils den Standardwert. Will man jedoch einen 
Parameter angeben, der beispielsweise in Byte 08 zu finden ist, so müssen alle anderen Parameter 
bis dahin ebenfalls angegeben werden. 


Erklärung der einzelnen Parameter: 


Der logische Startsektor beim Formatieren ist die Sektornummer, die auf einer Spur jeweils den 
Sektor mit der kleinsten Nummer bildet. Das ist in der Regel Sektor 0. 


Die Floppy kennt insgesamt drei verschiedene Interleave-Werte. Erstens den Wert, den Sie bei 
der Formatierung unter MFM angeben können. Dieser Wert ist ein sogenannter Hardware- 
Interleave-Wert, und er bestimmt die physikalische Reihenfolge der Sektoren auf jeder Spur. Der 
zweite Interleave-Wert kann durch den Burst-Befehl SECTOR INTERLEAVE angegeben 
werden. Hier handelt es sich um einen Software-Interleave-Faktor. der beim BURST-READ und 
beim BURST-WRITE-Kommando zu berücksichtigen ist, wenn mehrere Sektoren hintereinander 
gelesen oder ge- 
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schrieben werden. Der dritte Interleave-Wert ist nur bei GCR-Disketten von Bedeutung. Er wird 
mit dem U0>S-Befehl gesetzt und beschreibt die Reihenfolge, die beim Schreiben von Dateien 
vom DOS für die Sektoren gewählt wird (siehe auch 6.3.1.2) 


Der Wert der Sektorgröße spricht für sich. Hier wird die Datenmenge angegeben, die in einem 
MFM-Sektor untergebracht werden kann. 


Die Nummer der letzten Spur beim Formatieren beschreibt die Spur, die als letztes formatiert 
werden soll. So können auf einer Diskette zum Beispiel nur die Spuren 0 bis 10 formatiert 
werden. 


Die Anzahl der Sektoren einer Spur hängt von der Größe eines Sektors auf der Diskette ab (siehe 
Tabelle 12.4). Sie kann maximal den in der Tabelle dargestellten Wert erreichen oder aber auch 
darunter liegen. Sie müssen eine Spur also nicht vollständig mit Sektoren füllen und können 
theoretisch auf jeder Spur nur einen einzigen Sektor unterbringen. 


Die Nummer des logischen Starttracks entspricht der des Startsektors. Hier wird entschieden, mit 
welcher Spurnummer die Formatierung beginnen soll. Das ist unabhängig von der physikalischen 
Position der entsprechenden Spur. 


Das Byte 09 hingegen beschreibt die physikalische Spur, mit dem die Formatierung beginnen 
soll. Sie können also theoretisch mit Spur 2 beginnen (Byte 08) und diese auf Position von Spur 0 
auf der Diskette (Byte 09) legen. 


Das Füllbyte bedarf eigentlich keiner weiteren Erläuterung. Es beschreibt den Leerinhalt der 
Sektoren, also das Datenbyte, das ein Sektor enthält, wenn er noch nie beschrieben worden ist. 


Die Sektortabelle muß alle Sektoren einer Diskette enthalten und wird vom DOS auf Korrektheit 
überprüft. Sie enthält lediglich die Sektornummern sämtlicher Sektoren der Diskette; also bei 
1024-Byte Sektoren zum Beispiel 0,1,2,3,4,0,1,2,3,4,... Die Reihenfolge der Sektoren einer Spur 
kann dabei vollkommen unterschiedlich sein und erlaubt das Erstellen eigener, individueller 
Formate. 


Wichtig beim Formatieren ist die Tatsache, daß kein Statusbyte von der Floppy gesendet wird, 
wie es bei den meisten anderen Burst-Kommandos der Fall ist. Der Computer würde sich also 
"aufhängen", wenn er ein solches erwarten würde. 
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Nun aber zum Formatieren einer GCR-Diskette. Hier sind weit weniger Parameter zu beachten 
und deshalb auch nicht so viele Variationen möglich, wie im MFM-Format: 


Byte Bedeutung 
00 entspricht dem Zeichen U mit dem Wert $55 
01 entspricht dem Zeichen 0 mit dem Wert $30 
02 Kommandobyte, wobei die Bits folgende Bedeutung haben: 
Bit 0: Drivenummer (immer 0) 
Bit 1: immer 1 
Bit 2: immer 1 
Bit 3: immer 0 
Bit 4: egal 
Bit 5: egal 
Bit 6: egal 
Bit 7: Flag für Formatierung: Hier kann gewählt werden ob eine Spur vor 
dem Formatieren ausgemessen wird oder nicht. Das Ausmessen sorgt 
für eine gleichmäßige Verteilung aller Sektoren und entsprechend 
gleichgroßen Lücken zwischen den einzelnen Sektoren. 
1 bedeutet Spur ausmessen 
0 bedeutet Spur nicht ausmessen 
03 Steuerbyte für Formatierung: bei GCR immer 0 
04 erstes Zeichen der ID 
05 zweites Zeichen der ID 


Busverkehr: Auch hier gilt wieder, daß die Floppy kein Burst-Statusbyte ausgibt, nachdem die Diskette formatiert 
wurde. 


Tabelle 12.5: Struktur des FORMAT-Kommandos unter GCR-Format 


Die Parameter beim GCR-Format sprechen eigentlich für sich. Wichtig ist an dieser Stelle nur noch, und 
das betrifft alle Formate, daß die Diskette durch das Formatieren nicht automatisch initialisiert wird. Bei 
Zugriffen muß also auch nach der Formatierung zuerst ein INQUIRE-DISK-Kommando folgen, bevor ein 
Schreib- oder Lesezugriff stattfinden kann. 


12.1.5 Das SECTOR-INTERLEAVE-Kommando 


Dieses Kommando behandelt den Sektorabstand beim Burst-Modus der 1570/71. Es wird dadurch 
festgelegt, in welchem Abstand Sektoren einer Spur geschrieben oder gelesen werden. 


Das SECTOR-INTERLEAVE-Kommando hat dabei zwei Betriebsarten. Einmal das Lesen des augen- 
blicklich eingestellten Interleave Wertes und zum anderen das Setzen eines neuen Wertes durch den 
Benutzer. 
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Byte 
00 


01 
02 


03 


Bedeutung 


entspricht dem Zeichen U mit dem Wert $55 


entspricht dem Zeichen 0 mit dem Wert $30 
Kommandobytej wobei die Bits folgende Bedeutung haben: 


Bit 0: 
Bit 1: 
Bit 2: 
Bit 3: 
Bit 4: 
Bit 5: 
Bit 6: 
Bit 7: 


Drivenummer (immer 0) 

immer 0 

immer 0 

immer 1 

immer 0 

egal 

egal 

Flag für Schreiben oder Lesen des Interleave: 
0= Interleave wir neu gesetzt 


1= Interleave wird von der Floppy ausgegeben 


Interleave-Wert (nur, wenn 02/Bit 7 gleich 0) 

Busverkehr: Wird Interleave neu gesetzt, so muß der Computer das Byte hinter den Kommandobytes an die Floppy 
senden. Die Floppy gibt daraufhin kein Byte aus. Wird der Interleave-Wert vom Computer gelesen, so sendet die 
Floppy nach Erhalt des Kommandos ein Byte mit dem Interleave-Wert. 


Tabelle 12.6: Struktur des SECTOR-INTERLEAVE-Kommandos 


12.1.6 Das QUERY-DISK-FORMAT-Kommando 


Dieser UO-Befehl ist vor allem für Diagnoseprogramme interessant. Er erlaubt das Analysieren 
eines Diskettenformates auf einer bestimmten Spur, wobei die Spur vom Benutzer beliebig 
gewählt werden kann. Dieses Kommando beinhaltet das INQVIRE-DISK-Kommando und kann 
deshalb gleichzeitig zum Initialisieren einer Diskette verwendet werden. 


Byte 
00 


01 
02 


03 


Bedeutung 


entspricht dem Zeichen U mit dem Wert $55 


entspricht dem Zeichen 0 mit dem Wert $30 
Kommandobytej die Bits haben folgenden Bedeutung: 


Bit 0: 
Bit 1: 
Bit 2: 
Bit 3: 
Bit 4: 
Bit 5: 
Bit 6: 
Bit 7: 


Drivenummer (immer 0) 

immer 1 

immer 0 

immer 1 

Diskettenseite im MFM-Format 
egal 

egal 


Flag für folgende Spurnummer: bei 1 folgt noch Byte 03 mit Spurnummer 


Spurnummer (angeben, wenn 02/Bit 7 gleich 1 ist) 


Busverkehr: Nach Beenden des Kommandos gibt die Floppy ein Burst-Statusbyte aus. Wurde ein MFM-Format 
festgestellt, so folgen zusätzlich zum Statusbyte folgende Informationen: 
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2. Byte: Anzahl der Sektoren der entsprechenden Spur 

3. Byte: Spurnummer, die im Sektorheader gefunden wurde 

4. Byte: minimale Sektornummer der analysierten Spur 

5. Byte: maximale Sektornummer der analysierten Spur 

6. Byte: Hardware-Interleave, der beim Formatieren der Diskette festgelegt worden ist. 


Tabelle 12.7: Die Struktur des QUERY-DISK-FORMAT-Kommandos 


Wie Sie aus der Tabelle ersehen können, werden im Falle eines identifizierten MFM-Formats 
eine ganze Menge an Informationen an den Computer ausgegeben, die eine genaue Analyse eines 
gefundenen Diskettenformats möglich machen. Bei GCR-formatierten Disketten erfolgt außer 
dem Statusbyte keine Rückmeldung, da das GCR-Format immer gleich ist. 


12.1.7 Das INQUIRE-STATUS-Kommando 


Mit diesem Kommando ist es möglich, die Ausgabe des Burst-Statusbytes der Floppy zu 
erzwingen oder aber dieses Statusbyte nach eigenem Belieben neu zu setzen. 


Byte Bedeutung 
00 entspricht dem Zeichen U mit dem Wert $55 
01 entspricht dem Zeichen 0 mit dem Wert $30 
02 Kommandobyte; wobei die Bits folgende Bedeutung haben: 
Bit 0: Drivenummer (immer 0) 
Bit 1: immer 0 
Bit 2: immer 1 
Bit 3: immer 1 
Bit 4: immer 0 
Bit5: egal 
Bit 7,6: 00 - Burst-Statusbyte schreiben (Byte 03) 
01 - Burst-Status schreiben und Diskettenwechsel-Flag löschen 
10 - Burst-Statusbyte lesen 
11 - Burst-Status lesen und Diskettenwechsel darin anzeigen 
03 Neues Statusbyte, wenn 02/Bit 7 gleich O war 


Busverkehr: Die Floppy erwartet vom Computer entweder ein Statusbyte, oder Sie gibt den aktuellen Status nach 
Erhalt des Kommandos aus. 


Tabelle 12.8: Die Struktur des INQUIRE-STATUS- Kommandos 


Zum Kommandobyte dieses Befehls eine Erläuterung. Die Bits 6 und 7 bestimmen den Modus 
des Befehls. Ist Bit 7 gleich 0, so erwartet die Floppy vom Computer ein neues Statusbyte; 
ansonsten gibt sie den aktuellen Status aus. Der Benutzer kann dabei mit Bit 6 wählen, inwiefern 
er einen möglicherweise soeben stattgefundenen Diskettenwechsel berücksichtigen will. 


Die Floppy stellt einen Diskettenwechsel durch die Änderung des Zustands an der Schreibschutz- 
Lichtschranke fest. Ist eine solche Anderung erfolgt, 
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so wird intern das Flag für Diskettenwechsel gesetzt. Wenn nun beim INQUIRE-STATUS- 
Kommando das Bit 6 gesetzt ist, so wird beim Lesen des Statusbytes angezeigt, ob ein 
Diskettenwechsel stattgefunden hat (der Status lautet dann: disk id mismatch or disk change), 
oder es wird beim Schreiben des Status das Flag für den Diskettenwechsel gelöscht. Die Floppy 
"vergißt" dann einen eben erfolgten Diskettenwechsel, der noch nicht durch INQUIRE-DISK 
aufgehoben worden war. 


12.1.8 Das FASTLOAD-Kommando 


Dieses Kommando wird vom C128 wohl am meisten benötigt, wenn Sie mit dem Computer 
arbeiten. Bei jedem Laden eines Programms wird dieser Befehl nämlich vom Computer in der 
Floppy gestartet, wodurch ein sehr schnelles Laden von Programmen gegenüber der 1541 mit 
einem C64 oder der 1570/71 mit einem C64 erfolgt. 


Byte Bedeutung 

00 entspricht dem Zeichen U mit dem Wert $55 

01 entspricht dem Zeichen 0 mit dem Wert $30 

02 Kommandobytej wobei die Bits folgende Bedeutung haben: 


Bit0O: immer 1 

Bitl: immer 1 

Bit2: immer 1 

Bit3: immer 1 

Bit4: immer 1 

Bit5: egal 

Bit6: egal 

Bit7: Flag für Programmdatei; ist dieses Bit gesetzt, so muß die angegebene Datei keine 


Programmdatei sein; es kann auch eine sequentielle Datei sein. Ist das Bit=0, so 
wird nur nach einer Programmdatei mit dem gegebenen Namen gesucht! 


03-... Name der gesuchten Datei 


Busverkehr: Nach Erhalt des Befehls gibt die Floppy jeden Sektor der Datei mit dem Burst-Statusbyte davor aus. 


Tabelle 12.9: Die Struktur des FASTLOAD-Kommandos 


Das FASTLOAD-Kommando kann natürlich, wie alle anderen Burst-Kommandos auch, nur mit 
den entsprechenden Burst-Routinen im Computer funktionieren. Diese Burst-Routinen für den 
Computer werden wir gleich behandeln, nachdem wir zuvor die restlichen UO-Befehle etwas ge- 
nauer betrachtet haben. 


12.1.9 Die UTILITY-Kommandos 


Die nun folgenden U0O-Kommandos benötigen keine Burst-Routinen für die Datenübertragung, 
da es sich hierbei um Kommandos für die Einstel- 
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lung der verschiedenen Arbeitsmodi der 1570/71 handelt. Diese Einstellung kann sowohl von 
einem C64 als auch von einem C128 aus in gleicher Weise erfolgen. Wie schon vorher, so werden 
auch hier die Befehle über den Kommandokanal an die Floppy geschickt. 


12.1.9.1 Das Setzen des GCR-Interleave-Faktors (U0>S) 


Dieser Befehl verändert die voreingestellten Interleave-Werte für die Dateibearbeitung im GCR- 
Format. Der Wert steht normalerweise auf 6 und kann vom Benutzer beliebig geändert werden. 
Dabei wird einfach der Befehl U0>S mit dem folgenden Interleave-Wert an die Floppy geschickt. 
Dazu zwei Beispiele: 


OPEN 1,8,15, "UO>S"+CHRS$S (6) 
PRINT#15, "U0O>S";CHRS$S (10) 














12.1.9.2 Das Setzen der Versuche bei Lesefehlern (U0>R) 


Wenn bei einem Lesevorgang Fehler auftreten, so versucht das DOS in der Regel mehrere Male, 
den Lesevorgang doch durchzuführen. Die Anzahl der Versuche beträgt dabei im Normalfall 5. 
Wünscht der Benutzer jedoch eine Änderung dieses Wertes, so kann das durch den Befehl UO>R 
geschehen. Hier wird diese Anzahl auf einen, vom Benutzer wählbaren, Wert neu gesetzt. Dazu 
zwei Beispiele: 


OPEN 1,8,15, "UO>R"+CHR$S (5) 
PRINT#15, "U0O>R";CHRS (9) 














12.1.9.3 Der ROM-Test der 1570/71 (U0>T) 


Mit dem folgenden Befehl werden Sie in die Lage versetzt, jederzeit auf eine korrekte ROM- 
Prüfsumme zu testen, wie Sie in $8000/8001 abgespeichert ist. Bei der Ausführung dieses 
Befehls ist darauf zu achten, dass er durch die langwierige Berechnung der Prüfsumme geraume 
Zeit benötigt (ca. 10 Sekunden). Die Floppy ist daher während dieser Zeit nicht ansprechbar und 
scheint "abgestürzt". Bei Programmen, die diesen Befehl verwenden, kann es deshalb nie 
schaden, ein "Einen Augenblick Geduld. bitte!" einzufügen, um den Anwender nicht im unklaren 
über die Vorgänge zu lassen. Der Befehl lautet U0> T und wird ohne Parameter direkt über den 
Kommandokanal zur Floppy geschickt. 


170 12 Floppy 1570/71 Spezial 





12.1.9.4 Umschalten der Betriebsart (U0>M) 


Dieser Befehl dient dazu, die 1570/71 entweder in den 1541-Modus oder in den schnelleren 
1570/71-Modus zu schalten. Im 1541-Modus läuft die Floppy nur mehr mit einer Taktfrequenz 
von 1 MHz (sonst 2 MHz) und simuliert eine 1541 sehr originalgetreu (sogar das Formatieren 
dauert wieder 90 Sekunden). Die USER-O-Befehle (außer das Umschalten des Betriebsmodus 
und die Kopfanwahl, siehe 12.1.9.5) funktionieren dann nicht mehr und der schnelle Busbetrieb 
ist ebenfalls nicht mehr möglich. Dieser Modus ist beim Einschalten voreingestellt und muß erst 
durch den C128 auf die 1570/71-Betriebsart umgeschaltet werden. 


Die Syntax des Befehls lautet U0>MO für das Umschalten auf 1541-Betrieb und UO>MI für 
1570/71-Betrieb. Der 1570/71-Betriebsmodus kann übrigens auch beim Betrieb der Floppy an 
einem C64 verwendet werden. Man kommt dann in den Genuß des schnelleren Formatierens und 
bei der 1571 zusätzlich in den Genuß der doppelten Diskettenkapazität. 


12.1.9.5 Das Anwählen eines Schreib-/Lesekopfes (U0>H) 


Dieser Befehl ist nur auf der 1571 verfügbar und erlaubt dort das Umschalten zwischen beiden 
Diskettenseiten, wenn sich die Floppy im 1541-Modus befindet. Die Syntax lautet dann U0>HO 
für den Kopf auf der Diskettenseite O und UO>Hl für den Kopf auf der Diskettenseite 1. 


Achtung! Eine Diskette, die auf einer 1541 durch Umdrehen auf beiden Seiten beschrieben 
wurde, kann auf diese Art natürlich nicht vollständig gelesen werden, da die zweite Seite durch 
das Umdrehen der Diskette in verkehrter Richtung beschrieben wurde und deshalb vom Kopf 1 
der 1571 nicht mehr gelesen werden kann. Das Umschalten nützt also nur dann etwas, wenn die 
Diskette generell auf der 1571 im 1541-Modus beidseitig beschrieben wurde. 


12.1.9.6 Das Einstellen der Gerätenummer (U0>geräte#) 


In Kapitel 1.3.7 haben Sie schon erfahren, wie Sie die Gerätenummer Ihrer Floppystation 
hardwaremäßig ändern können; nämlich durch Umlegen der entsprechenden DIP-Schalter auf der 
Platine. Soll das Umschalten jedoch nur kurzfristig erfolgen, um beispielsweise zwei Laufwerke 
zum Kopieren zusammenzuschließen, so kann des Ändern der Gerätenummer auch per Software 
mit dem Befehl UO>geräte# erfolgen. Dieser Befehl wird behandelt wie alle vorangegangenen 
UTILITY-Kommandos auch, wobei für geräte# eine Gerätenummer von 4 bis 30 eingestellt 
werden kann. Wie Sie sehen, können Sie auf diese Art sogar Gerätenummern einstellen, die über 
die DIP-Schalter nicht möglich sind. 
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12.2 Das Burst-Statusbyte der 1570/71 


Bei fast allen Burst-Kommandos der 1570/71 wird nach Beendigung des Kommandos von der 
Floppy ein Statusbyte an den Computer übergeben. Dieses Statusbyte ersetzt bei den USER-O- 
Befehlen die Klartext-Fehlermeldung, wie Sie über den Kommandokanal kommt und wird in der 
Regel vor der Übertragung eines jeden Sektors oder nach dem Schreiben eines Sektors an den 
Computer gesendet. 


Arbeiten Sie also im Burst-Modus, das heißt mit schnellen Busroutinen und den U0-Kommandos, 
so sollten Sie das Statusbyte der Floppy berücksichtigen. Die Klartext-Fehlermeldung ist in der 
Regel zweitrangig und gibt nicht den Status wieder, der während einen Burst-Kommandos 
auftritt, sondern den Status, der dem Kommandokanal bei Ende des Kommandos zur Verfügung 
gestellt wird. 


Die folgende Tabelle zeigt die Bedeutung der einzelnen Bits im Statusbyte des Diskcontrollers: 


Bit Bedeutung 

3 Controller-Status der Floppystation nach einem Diskettenzugriff. Der Status hat dabei drei ver- 
schiedene Meldungsarten, je nach Befehl und Diskettenformat. Statusbelegung bei einer Diskette 
im GCR-Format: 
Bits 3,2,1,0: 
0000: ok 
0001: ok 
0010: sector not found 
0011: no sync 
0100: data block not found 
0101: data block checksum error 
0110: format error 
O111: verify error 
1000: write protect error 
1001: header block checksum error 
1010: data extends into next block 
1011: disk id mismatch/disk change 
1100: n.v. 
1101: n.v. 
1110: syntax error 
1111: no drive present 
Statusbelegung bei einer Diskette im MFM-Format: 
Bits 3,2,1,0: 
0000: ok 
0001: ok 
0010: sector not found 
0011: no address mark 


0100: n.v. 
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0101: data crc error 
0110: format error 
O111: verify error 
1000: write protect error 
1001: header block checksum error 
1010: n.v. 
1011: disk change 
1100: n.v. 
1101: n.v. 
1110: syntax error 
1111: no drive present 
Statusbelegung bei FASTLOAD-Kommando (gesamtes Byte): 
Bits 7,6,5,4,3,2,1,0: 
00000000 ok 
00000001 ok 
00000010 file not found 
00011111 EOI 
4-5 Sektorgröße: 
Bits 5,4: 
00: 128 Bytes Sektoren 
01: 256 Bytes Sektoren 
10: 612 Bytes Sektoren 
11: 1024 Bytes Sektoren 
6 Drivenummer; bei der 1570/71 immer O 
7 Format-Modus: 0=GCR; 1=MFM 
Dieses Bit bestimmt die Funktionen der restlichen Bits des Statusbytes, wobei 


im GCR-Modus die Sektorgröße immer auf 256-Byte-Sektoren stehen muß! 


Tabelle 12.10: Das Burst-Statusbyte und dessen Belegung 


Wie Sie sehen, erhalten Sie mit dem Status byte des Controllers immer einen recht umfassenden 
Bericht über den Modus, in dem sich die Floppy gerade befindet. 
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12.3 Die Burst-Routinen für den Computer 


Im folgenden Abschnitt wollen wir wieder einmal praktisch arbeiten. In diesem Kapitel sind 
Burst-Routinen für den Computer abgedruckt, die originalgetreu im Diskmonitor des nächsten 
Kapitels vorhanden sind. Sie stellen Standardlösungen für Burst-Datenübertragungs-Routinen dar 
und sind deshalb vollständig dokumentiert worden. 


Zuerst wollen wir das betreffende Burst-Kommando an die Floppy überhaupt erst einmal 
übertragen. Diese Übertragung erfolgt in Maschinensprache, da der Computer direkt im Anschluß 
daran in den Burst-Modus umschalten muß, um keines der sofort folgenden Bytes der 
Floppystation zu verpassen. Die folgende Routine ist, wie alle anderen, aus dem BURSTMON 
entnommen: 


Der Kommandokanal muß mit OPEN 1,8,15 schon geöffnet worden sein. Das Y-Register enthält 
die Länge des Befehlsstrings: 






















































































bvc error Ende, wenn Floppy nicht im Fast-Modus 


lda $0alc ; Flags für Diskbetrieb laden 
and #Sb£f ; Flag für schnellen Busbetrieb löschen 
sta S0Oalc ; und wieder abspeichern 
l1dx #501 ; Dateinummer (in diesem Fall 1) 
jsr Sff£c9 ; Ausgabegerät setzen 
ldx #500 ; Index-Startwert laden; der Monitor legt den 
loop lda $1430,x ; Befehlsstring ab $1430 ab 
jsr Sffd2 ; Zeichen an die Floppy ausgeben 
inx ; Zeiger erhöhen 
dey ; Anzahl der Bytes minus 1 
bne loop ; weiter, wenn noch Zeichen auszugeben sind 
jsr $ffcc ; Ausgabe zur Floppy zurücksetzen 
bit $0alc ; Flag für schnellen Busmodus testen 
’ 
’ 


Jetzt ist der Befehlsstring also zur Floppy geschickt worden und diese beginnt nach dem 
Kommando für "Ausgabe zurücksetzen" sofort mit der Ausführung des Befehls. Die nun 
folgende Routine dient dem Einlesen entweder nur eines Statusbytes oder eines gesamten 
Sektors, wobei die Größe des Sektors in 256-Byte-Blöcken in $bO und die Größe eines Blocks 
($80 oder $00) in $bl abgelegt sein muß. Diese Angaben sind notwendig. da ein gelesener Sektor 
je nach Format eine unterschiedliche Anzahl von Bytes aufweisen kann. Die Adresse, ab der ein 
eventuell eingelesener Sektor abgelegt wird, muß in den Speicherstellen $fb und $fc (L/H) 
stehen. Wichtig ist ferner, daß beim C128 der VO-Bereich zwischen $d000 und $dfff 
eingeschaltet ist (etwa durch Beschreiben des Konfigurations-Registers $ff0O mit 0). 
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sei ; Interrupts unterbinden 

bit $Sdc0d ; Kontrollregister löschen 

1dx Sbo ; Anzahl der Blöcke holen 

lda SddA00 ; Register für seriellen Bus lesen 

eor #$10 ; CLOCK-Leitung invertieren 

sta Sdd00 ; und setzen 

lda #808 ; Flag für Schieberegister eingelesen 
11 bit $Sdc0d ; testen; Byte erhalten? 

beq 11 ; warten, bis Byte eingelesen 

lda SddA00 ; Register für seriellen Bus lesen 

eor #S10 ; CLOCK-Leitung invertieren 

sta Sdd00 ; und wieder setzen 

lda Sdc0Oc ; Byte aus Schieberegister holen 

sta $fa ; und als Statusbyte merken 

and #S0£f ; Statusbits isolieren 

cmp #502 ; Fehlermeldung? 

bes error ; verzweige, wenn ja 

ldy #500 ; Index setzen 
loop lda #808 ; Flag für Schieberegister eingelesen 
12 bit $Sdc0d ; testen; Byte erhalten? 

beq 12 ; warten, bis Byte eingelesen 

Ida SddA00 ; Register für seriellen Bus lesen 

eor #$10 ; CLOCK-Leitung invertieren 

sta Sdd00 ; und setzen 

lda Sdce0c ; Byte aus Schieberegister holen 

sta (Sfb),y ; und in Puffer schreiben 

iny ; nächstes Byte 

cpy S$bl ; schon ein Block gelesen? 

bne loop ; weitermachen, wenn nein 

inc S$S£c ; Pufferadresse Hi erhöhen 

dex ; Anzahl der zu lesenden Blöcke vermindern 

bne loop ; und weiterlesen, bis alles übertragen 

one ; Flag für Fehler löschen 

.byte $24 ; nächsten Befehl überspringen 
error sec ; Flag für Fehler setzen 

eli ; Interrupts wieder zulassen 

rts ; Ende 





Tabelle 12.11: Routine für das BURST-READ-Kommando 


Wie Sie aus dieser Routine sehen können, ist die Übertragung im schnellen Busmodus von der 
Floppy zum Computer sehr einfach und aus diesem Grund auch sehr schnell. Der Benutzer muß 
nur noch warten, bis die Übertragung beendet ist. 


Das Holen eines einzelnen Statusbytes ist in dieser Routine natürlich schon enthalten. In diesem 
Fall muß einfach der Rest für das Lesen des Sektors übersprungen werden oder entfallen. 


Wie das Lesen eines Sektors, so ist auch das Schreiben eines Sektors sehr einfach. Die folgende 
Routine ist dafür zuständig, wobei ein zusätzliches Flag, nämlich $fd, benötigt wird. Hier wird 
der jeweils gültige Zustand der 
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CLOCK-Leitung für die nächste Übertragung abgelegt. Die restlichen Parameter entsprechen 
denen von BURST -READ: 





































































































sei ; Interrupts unterbinden 
lda #840 ; Flag für CLOCK-Leitung 
sta $fd ; setzen 
ldx $bO ; Anzahl der zu schreibenden Blöcke 
ldy #500 ; Index setzen 
lda $d505 ; MMU Modus-Konfigurationsregister lesen 
ora #808 ; seriellen Bus auf Ausgabe schalten 
sta $d505 ; und neuen Modus setzen 
lda #$7£ ; serielles Schieberegister 
sta $dc0d ; auf Ausgabe schalten und Flags löschen 
lda #500 ; Wert für Timer Hi 
sta $dc05 ; setzen 
lda #503 ; Wert für Timer Lo; Übertragunsgsrate 6 us 
sta $dc04 ; setzen; schnellst mögliche Übertragungsrate 
Ida $dc0e ; Kontrollregister für Timer lesen 
and #880 ; Schieberegister auf Ausgang und 
ora #$55 ; Timer auf "free running mode" 
sta $dc0e ; setzen 
bit SdAc0d ; Flags für Schieberegister löschen 
loop Ida $dd00 ; seriellen Bus lesen 
cmp $dd00 ; konstanter Wert? 
bne loop ; nein, konstanten Wert abwarten 
eor S$fd ; C1lOCK-Bit invertieren 
and #540 ; und prüfen 
beq loop ; warten, bis Floppy Daten anfordert 
Ida $fd ; CLOCK-Bit 
eor #$40 ; invertieren für nächsten Zustand 
sta $fd ; und als Flag wieder setzen 
lda ($S£b),y ; Byte aus Puffer holen 
sta $dc0c ; und ins Schieberegister schreiben 
lda #808 ; Bit für Schieberegister 
12 bit $dc0d ; testen; Byte schon ausgegeben? 
beq 12 ; warten, bis Byte ausgegeben 
iny ; Index auf nächstes Zeichen 
cpy Sb1 ; schon ein Block ausgegeben? 
bne loop ; weitermachen, wenn nein 
inc $fc ; Pufferadresse Hi erhöhen 
dex ; Anzahl der auszugebenden Blöcke vermindern 
bne loop ; weitermachen, bis alles ausgegeben 
lda #508 ; Flag für Timer nach Herunterzählen anhalten 
sta $dc0e ; setzen 
lda $d505 ; Modus-Konfigurationsregister der MMU 
and #$£7 ; seriellen Bus auf Eingang 
sta $d505 ; neuen Modus setzen 
bit $SdAc0d ; Flag für Schieberegister löschen 
Ida $dd00 ; seriellen Bus lesen 
eor #$10 ; CLOCK-Leitung umschalten 
sta $dd00 ; und wieder setzen 
lda #808 ; Flag für Schieberegister 
13 bit $SdAc0d ; testen; Byte eingelesen? 
beq 13 ; warten, bis Byte eingelesen 
Ida $dc0c ; Byte aus Schieberegister holen 
sta $fa ; als Statusbyte merken 
Ida $dd00 ; seriellen Bus lesen 
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and #$e£f ; CLOCK-Leitung löschen 
sta $dd00 ; und setzen 
lda $fa ; Statusbyte zurückholen 
and #S0f ; Statusbits isolieren 
cmp #502 ; Fehler aufgetreten? 
eli ; Interrupts wieder zulassen 
bcs error ; verzweige zur Fehlerroutine bei Fehler 
rts ; sonst Ende; alles ok 
’ 





SELEOL 


Tabelle 12.12: Routine für das BURST-WRITE-Kommando 


Fehlerbehandlung... 


Wie Sie aus dem Programm sehen können, werden die Bits mit einer Geschwindigkeit von I Bit 
pro 6 Mikrosekunden übertragen. Das entspricht einer Übertragungsrate von weit über 20 000 
Bytes pro Sekunde bei einer Taktfrequenz von I MHz. Schalten Sie jetzt auch noch den C]28 in 
die 2MHz-Betriebsart (Befehl: FAST), so ergeben sich für eine serielle Schnittstelle wahrhaft 
enorme Übertragungsraten, die sogar das Senden einer gesamten Spur der Diskette in einer 
Diskettenumdrehung zulassen. 


Die oben angegebenen Routinen dürften wohl für alle Anwendungszwecke ausreichend sein. Es 
steht Ihnen nun nichts mehr im Weg, Teile dieser Routinen in eigenen Programmen zu 
verwenden und dadurch in den Genuß der schnellen Übertragung zu kommen. Wie wäre es denn 
zum Beispiel mit Programmen wie schnelles Abspeichern auf Diskette, schnelles Kopieren von 
Disketten, Spuranalyse einer eingelegten Diskette, ... 
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12.4 Burst-Routinen auch für den C64 


Die C 64-Besitzer unter Ihnen werden vielleicht teilweise mit neidischen Gedanken an die 
glücklichen C128-Anwender gedacht haben, die in den Genuß der schnellen Busroutinen 
kommen. 


Doch halt, die schnellen Busroutinen werden durch einen Interface-Baustein vom Typ CIA 6526 
ermöglicht, und dieser befindet sich in zweifacher Ausführung auch im C64. Wie Sie die Floppy 
jederzeit, auch bei einem angeschlossenen C64 in den 1570/71-Betriebsmodus versetzen können, 
das haben Sie bereits in Kapitel 12.1.9.4 erfahren. Nun werden Sie erfahren, welche 
Möglichkeiten noch im C64 mit der 1570/71 stecken. 


Der einzige Unterschied im seriellen Bus des C128 zum C64 ist die Verkabelung von zwei 
Leitungen. Beim C128 ist die SRQ-Leitung zusätzlich mit dem CNT-Pin des CIA 1 im Computer 
und die DATA-Leitung zusätzlich mit dem SP-Pin des CIA 1 verbunden. Das CNT-Pin 
entspricht dabei einer Taktleitung, die die Geschwindigkeit der Übertragung des Schieberegisters 
regelt (siehe auch Anhang B: CIA 6526). Das SP-Pin entspricht dem Ausgang des seriellen 
Schieberegisters. 


Wenn Sie sich die Belegung des USER-Ports des C64 einmal genauer betrachten, so werden Sie 
sicherlich bei den Pins 4 bis 7 stutzig werden. Diese Pins tragen die Namen CNTI, SPl, CNT2 
und SP2. Es handelt sich hierbei um die schon beschriebenen Pins der beiden CIA 6526 und zwar 
jeweils die Takt- und die Übertragungsleitung für das serielle Schieberegister. In unserem Fall 
brauchen Sie also nur die beiden Pins mit den entsprechenden Leitungen des seriellen Busses zu 
verbinden. Wollen Sie den gleichen CIA 6526 wie im C128 verwenden, auf dem auch die oben 
beschriebenen Burst-Routinen laufen, so müssen Sie den Pin 4 (CNT 1) vom USER-Port mit der 
SRQ-(Service Request)-Leitung des seriellen Bus und Pin5 (SP 1) mit dessen DATA-Leitung 
verbinden. Sie erhalten so einen originalen C128-Bus. 


Die oben beschriebenen Burst-Routinen laufen dann fast ohne Änderung auch auf dem C64. 
Lediglich die Behandlung des MMU-Modusregisters und die Flagabfrage, ob sich die 
angeschlossene Floppy im FAST-Modus befindet, sind zu entfernen, da der C64 keine 
Betriebssystemroutinen zur Feststellung des Floppymodus besitzt. 
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13 Der BURSTMON 3.1 


Dieses Kapitel ist kein "Lehrkapitel" wie die vorangegangenen. Es stellt vielmehr eine 
Bedienungsanleitung dar. Unter Listing 13.1 finden Sie nämlich einen teils in BASIC und teils in 
Maschinensprache geschriebenen Diskmonitor für den Commodore 128, der Ihnen ein äußerst leistungsfä- 
higes Werkzeug in die Hand gibt. Durch die optimale Mischung aus BASIC und Maschinensprache ist 
dieser Monitor überraschend schnell in der Bearbeitung sämtlicher Funktionen und erlaubt eine 
komfortable Bedienung aller Diskettenfunktionen der 1570/71. 


Wie Sie aus dem Namen des Monitors schon ersehen können, handelt es sich hierbei um ein Programm, 
das ausschließlich mit den USER-O-Befehlen arbeitet. Das hat den Vorteil, daß es keine Rolle spielt, 
welches Format die eingelegte Diskette hat. Der Monitor bearbeitet MFM-Disketten genausogut wie 
GCR-Disketten. 


Da der Monitor über eine sehr komfortable Bildschirmmaske verfügt, wurde er für einen 80-Zeichen- 
Bildschirm des C128 konzipiert. Er erlaubt so, dank der Fenstertechnik des Commodore 128, eine 
vielseitige Parameteranzeige, so daß der Benutzer immer alles im Blickfeld hat. 


Wenn Sie den Monitor abgetippt und auf eine Diskette gespeichert haben, dann starten Sie bitte mit RUN. 


Es wird nun die Bildschirmmaske des Monitors aufgebaut, die während der gesamten Bearbeitung immer 
erhalten bleibt. dabei können Sie drei verschiedene Fenster erkennen: 














oben Fenster mit der Anzeige des Controller- Burst-Status 
mitte \Arbeitsfenster (jetzt leer) 
unten IKommandofenster für die Befehlseingabe. 











Im oberen Fenster können Sie schon einmal die Maske des Controller-Status erkennen. Es erfolgt hier 
immer eine Klartext-Auswertung des Statusbytes im Burst-Modus der Floppystation. Außerdem werden 
noch mehrere zusätzliche Parameter angezeigt. Dabei bedeuten: 























Track Spurnummer, die gerade bearbeitet wird 

Sector Sektornummer, die gerade bearbeitet wird 
Format Diskettenformat der letzten bearbeiteten Diskette 
Sector width Größe der Sektoren auf der aktuellen Spur 
Capacity mögliche Anzahl der Sektoren der aktuellen Spur 
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Generell gilt für BURSTMON 3.1: Wenn irgend wo ein Fehler aufgetreten ist, so wechselt die 
Schriftfarbe der Fehlermeldung auf Rot. Bei einer Bemerkung, die die Eingabe einer Anweisung oder 
eines Kommandos erwartet, ist die Schriftfarbe Gelb. Ansonsten ist die Schriftfarbe Cyan eingestellt. 


Nun gleich zur Anzeige des unteren Fensters auf dem Bildschirm. Hier wird entweder ein Kommando 
eingegeben, auf einen Tastendruck gewartet oder die Statusmeldung der Floppy (nicht der Burst-Status) 
ausgegeben. Es erfolgen auch sämtliche Parametereingaben über dieses Fenster. 


Im Augenblick wartet der Monitor auf die Eingabe eines Kommandos. Bis auf das Kommando "x" für 
"exit", das Verlassen des Monitors, sind alle Kommandos oder Kommandokomplexe auf Funktionstasten 
gelegt. Sie Können aber auch direkt eingegeben werden, wobei der Anfangsbuchstabe genügt. 


Die Kommandos in der Reihenfolge der Funktionstasten: 





fl BURST - READ; Lesen eines Sektors von der Diskette 

f2 BURST - WRITE; Schreiben eines Sektors auf eine Diskette 

f3 DIRECTORY; Anzeige des Directory für das angewählte Laufwerk 
f4 DISK-ST A TUS anzeigen 

f5 INQUIRE DISK; Initialisieren einer Diskette 

f6 QUERY DISK; Analysieren des Diskformats auf einer Spur 

f7 USER -0- Befehlskomplex 

f8 EDIT; Aufrufen des Editors 



































BURST-READ und BURST-WRITE bedürfen keiner weiteren Erläuterung. Diese Kommandos erwarten 
noch die Angabe von Spur- und Sektornummer sowie Diskettenseite und lesen, beziehungsweise 
schreiben danach den gewünschten Sektor. Nach dem Lesen eines Sektors wird automatisch der EDIT - 
Modus aufgerufen! 


Alle Kommandos, die entweder den Burst-Status im oberen oder den Diskstatus im unteren Fenster 
anzeigen, erwarten vom Benutzer einen Tastendruck als Bestätigung, daß nun fortgefahren werden kann. 


Der DIRECTOR Y - Befehl spricht ebenfalls für sich. Hier wird das Directory von der Floppystation 
angezeigt, deren Gerätenummer gerade angewählt ist (zur Anwahl der Gerätenummer gleich mehr). 


DISK -STATUS zeigt den aktuellen Floppystatus, nicht den Burst-Status im unteren Fenster an. Diese 
Funktion wird auch durch Eintippen des @-Zeichens aufgerufen, wobei dieses Zeichen auch noch weitere 
Funktionen hat. 
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Das INQUIRE-DISK-Kommando initialisiert eine Diskette im Sinne von Kapitel 12.1.3. Dieses 
Kommando muß nach jedem Diskettenwechsel gegeben werden. Es wurde bewußt darauf verzichtet, dem 
Monitor irgendwelche automatischen Einrichtungen mitzugeben, da diese die Wirkung der einzelnen 
Befehle unter Umständen verschleiern. Bleibt das nötige INQUIRE-DISK-Kommando aus, so kann es 
passieren, das sich die Floppy oder der Computer bei einem Wechsel des Diskettenformates "aufhängen". 
Hier hilft dann nur noch die RUNjSTOP-RESTORE-Funktion beziehungsweise bei der Floppy das Aus- 
und wieder Einschalten. 


Das QUERY-DISK-FORMAT-Kommando kann als Ersatz für INQUIREDISK verwendet werden. Hier 
wird eine gewünschte Spur einer fremden Diskette analysiert. Handelt es sich dabei um eine MFM- 
Diskette, so werden im Arbeitsfenster des BURSTMON 3.1 zusätzliche Informationen über das 
Diskettenformat angezeigt. 


Im USER-O-Komplex wird ein Menü aufg_iufen, das es dem Benutzer gestattet, unter sämtlichen UO- 
Befehlen der Floppy auszuwählen und diese zu bearbeiten. Das erlaubt vor allem dem Einsteiger in 
Sachen Burst ein b_quemes Ausprobieren aller Funktionen, wobei die Parameter der einzelnen Befehle 
jeweils nach Wahl des entsprechenden Kommandos anzugeben sind. Wird mit der Taste 9 der UTILITY - 
Befehl aufgerufen, so erscheint ein weiteres Menü, das es dem Benutzer wiederum gestattet, unter den 
verschiedenen UTILITY - Befehlen auszuwählen. 


Über den Sinn und Zweck der einzelnen USER-O-Befehle werden Sie in Kapitel 12 ausführlich 
unterrichtet. 


Der EDIT -Befehl. Hier wird im Arbeitsfenster auf einen Blockcursor umgeschaltet, wobei nun ein jeweils 
gewünschter Sektor editiert werden kann. Das Arbeitsfenster zeigt dabei jeweils 256 Bytes an und wird 
bei größeren Sektoren und entsprechender Cursorbewegung nach oben oder unten gerollt. Sie können so 
jedes Byte eines Sektors gezielt anwählen, indem Sie den Cursor darauf setzen. Eine einfache Änderung 
des Wertes wird sofort in den Speicher übertragen. Das Drücken der RETURN-Taste ist nicht notwendig. 
Der Monitor verhindert das Abändern fester Werte oder das Eingeben unerlaubter Zeichen, so daß 
Bedienungsfehler weitgehend ausgeschlossen werden. 


Wenn Sie den Cursor mit den Steuertasten nach unten bewegen, so erfolgt bei größeren Sektoren das 
schon erwähnte Aufrollen des Bildschirms bis zum Ende des jeweils eingelesenen Sektors. Danach rollt 
der Cursor über den unteren Bildschirmrand hinaus und erscheint im oberen Bildrand erneut. Lassen Sie 
den Cursor nach oben wandern, so wird der gesamte Bild 
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schirm beim Erreichen des oberen Bildschirmrandes nach unten gerollt, bis wieder der Anfang des Sektors 
erreicht worden ist. 


Wie groß der editierbare Ausschnitt ist, wird jeweils durch die Größe der Sektoren auf der eingelegten und 
initialisierten Diskette bestimmt. 


Mit Drücken der Taste "+-" gelangen Sie wieder in den Kommandomodus zurück, wo Sie den 
abgeänderten Sektor dann zum Beispiel auf eine Diskette zurückschreiben können. Es ist auch möglich, 
einen GCR-Sektor von 265-Bytes Größe auf eine MFM-Diskette zu schreiben. Ist der zu schreibende 
Sektor kleiner als der, in den er geschrieben wird, so wird der Editierausschnitt auf die Größe des Sektors 
der eingelegten Diskette eingestellt und der Inhalt dann dementsprechend geschrieben. 


So viel zu den grundsätzlichen Befehlen des BURSTMON 3.1. Zusätzlich existieren noch drei 
verschiedene Möglichkeiten im Zusammenhang mit dem @-Zeichen. 


Die Eingabe von @ ohne einen Zusatz zeigt, wie schon erwähnt, den aktuellen Diskstatus an. 


Bei Eingabe von @ und der Nummer 8 oder 9 dahinter, kann der Monitor auf die entsprechende 
Geräteadresse umgestellt werden. Alle weiteren Kommandos beziehen sich dann auf die neu angewählte 
Gerätenummer. Bei @9 wird also zum Beispiel auf eine Floppy mit der Geräteadresse 9 umgeschaltet. 


Mit Hilfe des @-Zeichens kann schließlich auch noch ein System befehl an die Floppy gesendet werden. 
Hier wird der Befehl einfach hinter das @Zeichen geschrieben. So zum Beispiel "@n:neue diskette,nd", 
wobei die Diskette im aktuellen Laufwerk neu formatiert wird. 


Wichtig für das Arbeiten mit BURSTMON 3.1 ist: Wenn Sie einen Systembefehl an die Floppy schicken 
oder sich das Directory ansehen, so ist die Diskstatusmeldung im unteren Bildschirmfenster von 
Bedeutung. Arbeiten Sie hingegen im Burst-Modus, so müssen Sie den Controllerstatus im oberen Fenster 
beachten. 


Bei Fehleingaben ertönt ein Klingelzeichen und die Eingabe wird erneut gefordert. Wollen Sie ein 
Laufwerk ansprechen, das nicht vorhanden ist, so kehrt der BURSTMON 3.1 mit einem Klingelzeichen in 
den KommandoStatus zurück. 
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Listing 13.1: Der Diskmonitor BURSTMON 3.1 


00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
0 
1 
2 


Be) 
4 


5 
6 
7 
8 
9 
20 
21 





22 


23 


24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37. 
38 
39 
40 
41 
42 
43 
44 
45 
46 





rem burstmon 3.1 (c) 1986 by karsten schramm 

fast :poke2603,64:printchr$(27)"u":bank 15:poke251,0:poke252,11:gosub371 
celr:print"{clr}{home} {home} {cyn}";chr$ (14); :poke54784,26:poke54785,2 
t$="00":5$="00":poke dec("1700"),0 

£$="GCR":w$="0256":k$="21" 

cs$="ok":dd$=ds$:dd=ds 

bs$="":u=8:d$="0":n$="0":gosub107:90t0109 

restore 109:for x=1to8:readx$:key x,Xx$+chr$ (13) :next:return 
forx=1to8:key x,"":next:return 

data "read", "write","$","@","inquire disk","query disk","user 0","edit" 
cs=0:gosub308:trap365:g0t0125:trap365 

rem unterroutinen 

window 2,2,77,3,1:i£fcs$="ok"then printchr$ (14);"{gry3}{home} Track:"t$" Sector:"s$" 


width: "w$" Bytes Kapacity: "k$:else print"{lred}"; 


print " Controller Status: ";cs$;" on Side ";d$;" Unit#";u"{cyn}":return 
window 2,2,77,3,1:printchr$(14);"{gry3}{home} Track:"t$" Sector:"s$" Format: "£f$" 


Bytes Kapacity: "k$ 


print "{gry3} Controller Status: ";cs$;" on Side ";d$;" Unit#";u"{cyn}":return 
window 2,5,77,20,0:return 

window 2,5,77,20,1l:return 

rem menue einblenden 

gosubl16:printchr$(14);"{clr}{blk}*** BURSTMON v1.0 Table Of Commands ***" 
window 2,23,77,23,1:printchr$ (14) ; :input"{yel}Command: ";c$:print"{cyn}":return 


Ss 


Format: "f$" Sector 


ector width: "w$" 


window 2,23,77,23,1:printchr$ (14) ;:input"{yel}Track 1{left}{left}{left}";t$:print"{cyn}":t$=1left$("00",2- 


len(t$))+t$:return 


window 2,23,77,23,1:printchr$ (14) ; :input"{yel}Sector 0O{left}{left}{left}";s$:print"{cyn}":s$=left$("00",2- 


len(s$))+s$:return 


window 2,23,77,23,1:printchr$ (14) ;:input"{yel}Side Of{left}{left}{left}";d$:print"{cyn}":d$=1left$("0",1- 


len(d$))+d$:return 





window 2,23,77,23,1:printchr$ (14); :return 
rem hauptprogramm 


printchr$(14);" {wht}****  BURSTMON v3.1 (c) 1986 by Karsten Schramm ****{cyn}" 

print chr$(27)"m";chr$(142); 

print" U----------------------------------------------- I" 
fora=1to2:print" | |":nexta 
print" 4-2 4" 
fora=1tol6:print" | |":nexta 
print" J------------------------------------ K" 

print" U----------------------------------------------- I" 

print" | j" 

print" J------------------------------- K" 

gosubl14 

rem befehlseingabe 

c$="":gosub1l20 

x=1l:restore 234 


read a$:ifleft$(c$,1)=1left$(a$,1) then 143 
x=x+l:ifa$<>"*" thenl40 

printchr$(7):goto 137 

on x gosub 147,155,163,171,189,202,205,222,228 


goto 137 
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47 rem @ 
48 gosub 124 


54 print#1Ichr$ (7) :return 
55 rem read 


59 gosubl12 


61 gosub308:gosubl12 


63 rem write 


67 gosubl12 


69 gosub308:gosubl12 


71 m=14:rem edit 


75 getkeya$:ifa$="N]"then188 
77 ifa$=chr$(13)ora$=chr$ (14 
78 if peek (211)=2anda$=chr$ ( 
80 if peek (235) <=5anda$="{up 
81 printa$; :gotol75 
7:b=p+z*16+int (s/3) :bn=s/1.5 
83 if(bn-int (bn))=0 then ne= 
84 if(bn-int (bn))>.6then ne= 
87 gotol75 


89 rem query disk 


94 if £$="MFM" then begin 








85 we=val(a$) :ifa$>"@"thenwe= 
86 by=((peek (b)Jand (ne*15))or (nn*we)) :pokeb, by:printa$; :bend:goto175 


49 if c$="@" then begin:ifdd>1 then print"{lred}";:else print"{yel}"; 

50 printchr$(14);"Disk Status: ";dd$;"{cyn}":getkeya$:return:bend 

51 if c$="@8" then u=8:poke284,u:printchr$ (14) ;"{yel}Unit#";u;"{cyn}":sleepl:return 
52 if c$="@9" then u=9:poke284,u:printchr$ (14) ;"{yel}Unit#";u;"{cyn}":sleepl:return 
53 bs$=mid$(c$,2):open 1,u,15:print#1,bs$:closel:c$="@":g0t0147 


56 t$="":gosubl2l:ifval(t$)<0O or val(t$)>70 then 156 
57 s$="":gosubl22:ifval(s$)<0 or val(s$)>255 then 157 
58 d$="":gosubl23:ifval(d$)<0O or val(d$)>1 then 158:d=val(d$) 


60 open 1,u,15:bs$="u0"+chr$(0or (16*d))+chr$(val(t$))+chr$(val(s$))+chr$ (1) :gosub361:sys 
dec("1460"),0,1,6:dd=ds:dd$=ds$:closel 


62 c$="@":gosub 147:ifcs$="ok"then gotol7l:else return 


64 t$="":gosubl2l:ifval(t$)<O or val(t$)>70 then 164 
65 s$="":gosubl22:ifval(s$)<0O or val(s$)>255 then 165 
66 d$="":gosubl23:ifval(d$)<0O or val(d$)>1 then 166:d=val(d$) 


68 open 1,u,15:bs$="u0"+chr$(2or (16*d) )+chr$(val(t$))+chr$(val(s$))+chr$(1) :gosub361:sys 
dec("1460"),0,2,6:dd=ds:dd$=ds$:closel 





70 c$="@":gosub 147:ifcs$="ok"then gotol7l:else return 

72 gosubl08:poke 252,11:gosubl24:print"edit":gosubl17:printchr$ (m); 
73 £forx=0tol5:poke251,x*16:sys dec("14a8"):print:next x 

74 p=2816:printchr$ (27)"s";"{home}"; 


76 if a$="{up}"ora$="{down}"ora$="{rght}"ora$="{left}"thengotol79:else ifa$=" "then a$="{rght}":g0t0179 


)orpos (0)>53thenprint:gotol75 
60)then m=xor (m, 128) :gotol72:else:goto 182 


79 ifpeek (235) >=20anda$="{down}"andp<2816+wthenp=p+16:poke252,int ( (p+240)/256) :poke251, (p+240)- 
peek (252) #256 :printchr$ (27) "v{up}":sysdec ("14a8") :print"{up}":gotol75 


"andp>2816 then p=p-16:printchr$ (27)"w"; :poke252,int (p/256) :poke 251,p- 


peek (252) *256:print"{home}"; :sysdec ("14a8") :print"{home}"; :gotol75 


82 if((a$>"/"anda$<":")or (a$>"@"andaS<"g"))andpos (0) >6andpos (0) <54thenbegin:z=peek (235) -5:s=pos (0) - 


ınn=16:g0t0185 
6:nn=l:else print" ";:g0t0175 
asc(a$)-55 


88 gosub1l07:printchr$(27)"u"chr$(27);chr$(14);:return 


90 t$="":gosubl2l:ifval(t$)<O orval(t$)>70 then 190 

91 d$="":gosubl23:ifd$<>"O"andd$<>"1" then191 

92 d=val(d$):open 1,u,15:bs$="u0"+chr$(138or (d*16))+chr$(val(t$)) :gosub361 
93 sys dec("1460"),7,3,4:dd=ds:dd$=ds$:closel:gosub 308:gosub1l17 


95 print"Analyzing the disk brought the following parameters:":print:print 
96 print"Logical Track:";peek (dec("1704")):print 

97 print"Number of Sectors:"; 
98 print"Minimum Sector:";peek (dec ("1703")) :print 
99 print"Maximum Sector:";peek (dec("1702")) :print 


peek (dec ("1705")) :print 


200 print"MFM-Sector interleave:";peek (dec ("1701")) :print:bend 


201 gosubll2:return 
202 rem exit 


203 poke 54784,26:poke 54785,0:print"{home} {home} {cyn} {clr}";chr$(27)"1";chr$(27)"s";chr$(142) 


204 end 
205 rem user 
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206 gosubl24:print"user 0" 

207 gosubl1l7:print"The Following BURST-Commands Are Available:":print 
208 print"1 - BURST-READ (only 1 sector)" 

209 print"2 - BURST-WRITE (only 1 sector)" 





210 print"3 - INQOUIRE DISK" 

211 print"4 - FORMAT MEM" 

212 print"5 - FORMAT GCR (no directory)" 

213 print"6 - SECTOR{$a0 }INTERLEAVE" 

214 print"7 - QUERY{$a0}DISK{$a0} FORMAT" 

215 print"8 - INOUIRE STATUS" 

216 print"9 - UTILITY{$a0 }MODE" 

217 print"x - EXIT" 

218 print:print:print"Please select (1-9,x): "; 

219 getkey a$:ifa$<"1l"or (a$>"9"anda$<>"x") then 219 
220 gosubl17:on val(a$)+1 goto 221,155,163,222,235,249,255,189,267,280 


221 gosubl1l7:return 

222 rem inquire disk 

223 d$="0":5$="00":t$="00":cs$="ok":£f$="GCR" :w$="0256":k$="21" 

224 open 1,u,15:bs$="u0"+chr$ (4) :gosub361 

225 sys dec("1460"),1,3,3:dd=ds:dd$=ds$:closel 

226 gosub308:gosubl1l2 

227 return 

228 rem $ 

229 gosubl24:print"directory on unit#";u 

230 gosubl17:printchr$(27)+"1":slow:if u=9 then directory on u9:g0t0232 

231 directory on u8 

232 print:print"{yel}Press any key!{cyn}":dd=ds:dd$=ds$:printchr$ (27)+"m": fast 
233 getkeya$:gosubl17:c$="@":g0t0147 

234 data "@","read", "write", "edit","query disk","x","user","inquire disk","S","*" 
235 rem format mfm 





236 gosubl24:a$="":input"Index address mark written (y/n) vy{left}{left}{left}";a$:ifa$="y"then 
by=(byor64) :else ifa$<>"n"then236 

237 gosubl24:a$="":input"Format double sided (y/n) ytleft}{left}{left}";a$:ifa$="y"thenby=(byor32) :goto 
239:else ifa$<>"n"then237 

238 gosubl24:a$="":input"which side do you wish to format (0/1) O{left}{left}{left}";a$:ifa$="1"then 
by=(byorl16) :else ifa$<>"0"then238 

239 bs$="u0"+chr$(by) :a$="":gosubl24:input"Logical starting sector (0-63) 
O{left}{left}{left}";a$:a=val(a$) :ifa<0ora>63then239:else bs$=bs$+chr$(aor128) 

240 gosubl24:a$="":input"Sector interleave (0-255) Of{left}{left}{left}";a$:a=val(a$) :ifa<0ora>255then240:else 
bs$=bs$+chr$ (a) 

241 gosubl24:a$="":input"Sector size (0,1,2,3=128,256,512,1024) 

l{left}{left}{left}";a$:a=val(a$) :ifa<0ora>3then241l:elsebs$=bs$+chr$ (a) 

242 gosubl24:a$="":input"Last track number (0-39) 39{left}{left}{left}{left}";a$:a=val(a$) :ifa<lora>39 
then242:else bs$=bs$+chr$ (a) 

243 gosubl24:a$="":input"Number of sectors (depends on sector size)";a$:a=val(a$) :ifa<0ora>26 then243:else 
bs$=bs$+chr$ (a) 

244 gosubl24:a$="":input"Logical starting track Of{left}{left}{left}";a$:a=val(a$) :ifa<0ora>39then244:else 
bs$=bs$+chr$ (a) 

245 gosubl24:a$="":input"Starting track offset Of{left}{left}{left}";a$:a=val(a$) :ifa<lora>39then245:else 
bs$=bs$+chr$ (a) 

246 gosubl24:a$="":input"Fill byte 229{left}{left}{left}{left}{left}";a$:a=val(a$) :ifa<lora>255then246:else 
bs$=bs$+chr$ (a) 

247 open 1,8,15,bs$:dd=ds:dd$=ds$:closel 





248 c$="@":goto 147 

249 rem format gcr 

250 by=6:a$="":gosubl24:input"Partial format (y/n) ytleft}{left}{left}";a$:ifa$="y"then by=(byor128) :else 
ifa$<>"n"then250 

251 bs$="u0"+chr$(by)+chr$(0) 

252 gosubl24:a$="":input"Character for ID 1 x{left}{left}{left}";a$:a$=left$(a$,1) :bs$=bs$+a$ 
253 gosubl24:a$="":input"Character for ID 2 x{left}{left}{left}";a$:a$=left$(a$,1) :bs$=bs$+a$ 
254 goto 247 

255 rem sector interleave 

256 by=8:a$="" 

257 gosubl24:input"Want to read or write interleave (r/w) r{left}{left}{left}";a$ 


186 13 Der BURSTMON 3.1 





258 if a$<>"w"anda$<>"r"thenprint"{$07}":90t0257 

259 if a$="r" then begin:by=(byor128) :a$="" 

260 gosubl24:print"Sector interleave is now: "; 

261 bs$="u0"+chr$(by) :gosub361l:open 

1,u,15:sysdec ("1460"),1,3,3:dd=ds:dd$=ds$:closel:printpeek (dec ("00£fa")) :getkeya$:goto266:bend 
262 as="" 

263 gosubl24:input"Please enter new sector interleave (dec 0-255/hex $00-$£ff) S5{left}{left}{left}";a$:if 
len(a$)>3 orlen(a$)<1 then 263 

264 if left$(a$,1)="$"thena$=chr$(dec(mid$(a$,2,2))):else a$=chr$(val(a$)) 

265 bs$="u0"+chr$(by)+a$:gosub361l:open 1,u,15:sysdec("1460"),0,3,4:dd=ds:dd$=ds$:closel:90t0266 
266 return 

267 rem inquire status 

268 by=12 :a$="" 

269 gosubl24:input"Want to read or write status (r/w) r{left}{left}{left}";a$ 

270 i£ a$<>"w"anda$<>"r"thenprint"{$07}":90t0269 

271 if a$="r" then begin:by=(byor128) :a$="" 

272 gosubl24:input"Want to test disk change (y/n) 
y{left}{left}{left}";a$:ifa$<>"y"anda$<>"n"thenprint"{$07}":90t0272 

273 ifa$="y"thenby=(byor64) 

274 bs$="u0"4+chr$ (by) :gosub361:open 

1,u,15:sysdec ("1460"),1,3,3:dd=ds:dd$=ds$:closel:gosub308:gosubl12:90t0279:bend 

275 as="" 

276 gosubl24:input"Please enter new BURST-Statusbyte (dec 0-255/hex $00-$ff) Of{left}{left}{left}";a$:if 
len(a$)>3 orlen(a$)<1 then 276 

277 if left$(a$,1)="$" thena$=chr$(dec(mid$(a$,2,2))):else a$=chr$(val(a$)) 

278 bs$="u0"+chr$(by)+ta$:gosub36l:open 1,u,15:sysdec ("1460"),0,3,4:dd=ds:dd$=ds$:closel:90t0279 
279 return 

280 rem utility mode 

281 gosubl24:print"utility mode" 

282 gosubl1l7:print"Please select one of the following commands:":print 

283 print"1l - Set sector interleave for GCR written disk" 

284 print"2 - Set the number of retries in case of failed job" 

285 print"3 - Analysis of ROM signature" 

286 print"4 - Mode select (1541 or 1570/71)" 

287 print"5 - Head select (1541 mode only)" 

288 print"6 - Set device number" 

289 print"x - Exit option" 

290 getkey a$:ifa$<"1" or (a$>"6" and a$<>"x") then 290 

291 on val(a$)+1 goto 307,292,294,296,298,300,302 

292 gosubl24:input"GCR sector interleave 6{left}{left}{left}";a$:a=val(a$) :ifa<lora>255then 292 
293 bs$="u0>s"+chr$ (a) :g0t0305 

294 gosubl24:input"Number of retries 5{left}{left}{left}";a$:a=val(a$) :ifa<lora>255then294 

295 bs$="u0>r"+chr$ (a) :g0t0305 

296 gosubl24:print"Please wait a moment ..." 

297 bs$="u0>t":goto 305 

298 gosubl24:input"1570/71 mode or 1541 mode (1/0) l{left}{left}{left}";a$:ifa$<>"0"anda$<>"1"then298 
299 bs$="u0>m"+a$:goto305 

300 gosubl24:input"Head 0 or 1 (1/0) Ofleft}{left}{left}";a$:ifa$<>"0O"anda$<>"1"then300 

301 bs$="u0>h"+a$:goto305 

302 gosubl24:input"Device number (8-30) 8{left}{left}{left}";a$:ifval(a$)<8orval(a$)>30then302 
303 bs$="u0>"+chr$(z) 

304 openl,u,15,bs$:closel:return 

305 openl,u,15,bs$:dd=ds:dd$=ds$:closel 

306 gosub117:c$="@":g0tol47 

307 return 

308 rem burst-meldungen auswerten 

309 data "ok" 

310 data "ok" 

311 data "sector not found" 

312 data"no sync" 

313 data"data block not found" 
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314 data"data block checksum error" 


315 data"format error" 

316 data"verify error" 

317 data"write protect error" 

318 data"header block checksum error" 
319 data"data extends into next block" 
320 data"disk id mismatch/disk change" 
321 data"no defined error message" 

322 data"no defined error message" 

323 data"syntax error" 

324 data"no drive present" 

325 : 


326 data "ok" 
327 data "ok" 
328 data "sector not found" 





329 data"no address mark" 

330 data"no defined error message" 
331 data"data crc error" 

332 data"format error" 

333 data"verify error" 

334 data"write protect error" 


335 data"header block checksum error" 

336 data"no defined error message" 

337 data"disk change" 

338 data"no defined error message" 

339 data"no defined error message" 

340 data"syntax error" 

341 data"no drive present" 

342 ifpeek (dec("1700"))=128then 

begin:gosubl17:print" {down} {down} {down} {down} {down}{down}{down}{down}{lred}CAUTION!!! The 
not in the 1570/71 mode!" 

343 print:print:print"{$07}{yel}Press any key to continue{cyn}":getkeya$ 

344 absichtlicher fehler in dieser zeile 

345 bend 

346 cs=peek (dec("00£fa")) 

347 if cs>127 then £f$="MFM":restore326:else f$="GCR":restore309 

348 n$=str$(sgn(csand64)) 

349 if £$="MFM" then begin 

350 if(csand48)=0 then w=0:w$="0128":pokel76,1:pokel77,128:k$="26" 

351 if(csand48)=16 then w=0:w$="0256":pokel76,1:pokel177,0:k$="16" 

352 if(csand48)=32 then w=256:w$="0512":pokel76,2:poke177,0:k$="09" 

353 if(csand48)=48 then w=768 :w$="1024":poke176,4:poke177,0:kK$="05" 

354 bend:else begin:w=0:w$="0256":poke176,1:poke177,0:t=val(t$) :ift>35 thent=t-35 

355 if t<36 then k$="17" 

356 if t<31l then k$="18" 

357 i£ t<25 then k$="19" 

358 if t<18 then k$="21":bend 

359 forx=0to(csandl5) :readcs$:nextx 

360 return 
361 rem befehlsstring in speicher schreiben 

362 forx=1tolen(bs$) 

363 poke 5167+x,asc(mid$(bs$,x,1)) :nextx:poke251,0:poke252,11 
364 return 
365 rem fehler 

366 ifer=l4andel=20468then print"{$07}":resume276 

367 ifer=l4andel=20368then print"{$07}":resume263 

368 ifer=11 then resume 137 

369 if er=5 then resume 142 

370 resume next 

371 rem maschinenprogramm initialisieren 

372 print"{clr}datas werden initialisiert!" 

373 restore 376 

374 forx=4864t05373:read a:poke x,a:next x 

375 return 

376 data 120 , 44 ,„ 13 , 220 ,„ 166 , 176 , 173,0, 221, 73 
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14 Fehler im DOS 3.0 der 1570/71 


Wie schon der Vorgänger, das DOS 2.6 der 1541, so enthält auch das DOS 3.0 einige Fehler, 
deren Aufklärung dringend erforderlich ist, um Fehlfunktionen der Floppy oder zerstörte 
Disketten zu vermeiden. 


Da die 1570/71 das DOS der 1541 fast unverändert enthält, sind auch einige Fehler des DOS 2.6 
wieder mit in das neue Gerät übertragen worden, und das, obwohl die Fehler der 1541 bei der 
Entwicklung der 1570/71 wohl ausreichend bekannt gewesen sein dürften. 


Hier ist nun eine Aufstellung der Fehler, die entweder schon bekannt waren oder durch die 
Analyse des DOS-Listings neu entdeckt worden sind: 


14.1 Der Befehl BLOCK-READ 


Wie wir im Verlauf dieses Buches schon erfahren haben, wird der Befehl BLOCK-READ 
generell durch den Ul-Befehl ersetzt und das aus folgendem Grund: 


Beim Lesen eines Blockes mit dem B-R-Befehl, wird das allererste Datenbyte, also Byte 0, 
grundsätzlich nicht als Datenbyte eingelesen. Dieses Byte wird vielmehr der Anzahl der Bytes 
dieses Blocks gleichgesetzt (wie im letzten Block einer Datei) und an den BUFFER-POINTER- 
Befehl übergeben. Wollen Sie nun die Datenbytes aus dem gelesenen Sektor in den Computer 
holen, so können Sie maximal die Anzahl der Bytes lesen, die durch das allererste Byte im Sektor 
angegeben sind. In einem Diskmonitor ist dieser Befehl deshalb nicht anwendbar. Stellen Sie sich 
vor, Sie wollen einen Block einer Programmdatei einzeln lesen, und dieser Block steht auf 
Spur 2. Wenn der Zeiger auf die folgende Spurnummer dann auch auf Spur 2 zeigt, können Sie 
immer maximal die ersten zwei Bytes des eingelesenen Sektors mit GET# auslesen, da die 
Spurnummer zur Maximalzahl der Bytes des Blocks umgewandelt wird. 


14.2 Der Befehl BLOCK-WRITE 


Dieser Befehl hat prinzipiell den gleich Mangel wie der BLOCK-READ-Befehl, nur für den 
Schreibbetrieb zugeschnitten. Hier wird der aktuelle Pufferzeiger immer in den behandelten 
Sektor an die Position von Byte 0 geschrieben. Das dort vorhandene Datenbyte geht damit 
verloren. 
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14.3 Der Befehl BLOCK-ALLOCATE 


Dieser Befehl ist prinzipiell in Ordnung, wenn der Block, der durch diesen Befehl belegt werden 
soll, auch wirklich frei ist. Wie Sie aus Kapitel 7.5 wissen, zeigt dieser Befehl im Falle eines 
belegten Blocks an, wo der nächste freie Block auf der Spur zu finden ist. Auch das ist noch in 
Ordnung. Es passiert hier jedoch zusätzlich, daß mit der Anzeige des nächsten freien Sektors alle 
Sektoren der Spur, auf der dieser freie Sektor zu finden ist, belegt werden. Dabei ist es der 
Floppy egal, ob es sich um Spur 18 oder eine andere wichtige Spur handelt. 


14.4 Der Befehl REPLACE (®&) 


Dieser Befehl wurde im Verlauf dieses Buches schon erwähnt, wobei auf seine Gefährlichkeit 
nachdrücklich aufmerksam gemacht worden ist. Der Fehler dieses Befehls liegt in der Tatsache, 
daß die 1570/71 und auch die 1541 das abgemagerte Betriebssystem von Doppellaufwerken 
enthalten. Wenn Sie sich das DOS ansehen, so werden Sie sicherlich die äußerst umständliche 
Kanal- und Pufferhandhabung mit Belegungstabellen und Reserve-Belegungstabellen und 
dergleichen bemerkt haben. Diese Handhabung erlaubt ein schnelles und effektives Arbeiten bei 
Doppellaufwerken. Bei einem Einzellaufwerk ist das jedoch sinnlos, wenn nur mehr ein einziger 
Prozessor an der Arbeit ist. Im Fall der 1570/71 und auch der 1541 wurde es sogar gefährlich. 
Die Entwickler bei Commodore haben nämlich vergessen, alle Routinen der Floppy auf ein 
Einzellaufwerk mit nur mehr der halben Speicherkapazität gegenüber den Doppellaufwerken 
umzuschreiben. Einige der Routinen greifen deshalb in Extremsituationen noch auf Puffer zu, die 
gar nicht mehr existieren, und greifen natürlich ins Leere. In einem solchen Fall gehen der Floppy 
bei einem REPLACE-Befehl jedoch wichtige Daten verloren, so daß unter Umständen andere 
Dateien gelöscht werden, während die neu abgespeicherte Datei auf einmal unter einem ganz 
anderen Programmnamen auf der Diskette erscheint (vom Benutzer natürlich im ersten Moment 
nicht bemerkt). 


Seien Sie also bei diesem Befehl auf der Hut. Es gehen unter anderem Gerüchte um, daß man den 
Fehler des REPLACE-Befehls dann vermeiden kann, wenn man bei jedem Diskettenzugriff 
immer die Drivenummer 0 mit angibt. Diese Gerüchte können der Wahrheit entsprechen oder 
auch nicht. Sie können es natürlich ausprobieren. Bedenken Sie jedoch immer: Sie wurden 
gewarnt! Es gibt nämlich auch Computeranwender, die hatten mit diesem Befehl noch nie irgend 
welche Probleme, da der Fehler äußerst selten auftritt. Was Sie hier jedoch zu hören bekommen, 
mußte ich am eigenen Leib schmerzlich erfahren, als sich ein mehrere Seiten langer Artikel in 
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Nichts auflöste und stattdessen ein Schnelladeprogramm auf der Diskette stand, das eigentlich 
unter einem ganz anderen Dateinamen dort abgespeichert worden war. Nun, immerhin hatte ich 
dadurch eine Sicherheitskopie meines Schnelladers, auch wenn der ganze Artikel neu getippt 
werden mußte. 


14.5 Fehler im Handbuch zur 1570/71 und zum C128 


Im Anleitungsbuch sowohl zur Floppystation 1570/71 als auch zum Commodore-128-Computer 
hat sich ein Fehler bei der Erläuterung des RECORD-Befehls in BASIC 7.0 eingeschlichen. Dort 
steht, daß die Angabe der Byteposition hinter der Recordnummer optional, das heißt nicht not- 
wendig ist. Diese Aussage ist schlicht und einfach verkehrt. Bei einem RECORD-Befehl müssen 
Sie immer die Bytenummer angeben, auf die in einem Record positioniert werden soll. 


Im Commodore-Handbuch zur 1570/71 fällt Ihnen vielleicht folgender Satz ins Auge: 
"SICHERHEITSMASSNAHME: JEDER RECORD#-BEFEHL MUSS ZWEIMAL ANGEGE- 
BEN WERDEN. Um die höchst unwahrscheinliche Möglichkeit der Zerstörung relativer 
Dateidaten auszuschließen, müssen die RECORD#-Befehle zweimal angegeben werden, bevor 
ein Datensatz gelesen wird..." 


Was sagt man nun dazu? Ich kann Sie an dieser Stelle beruhigen. Dieser Fehler, der offenbar 
Commodore selbst so mysteriös ist, daß eine Warnung an den Benutzer erfolgt, anstatt den Fehler 
aus dem Gerät zu entfernen, ist in Wirklichkeit nicht vorhanden. Hier sind die Hersteller auf 
einen Fehler im eigenen Bedienungshandbuch hereingefallen. Die "Möglichkeit der Zerstörung 
relativer Dateidaten" tritt nämlich nur dann auf, wenn im RECORDE#-Befehl die Byteangabe, die 
angeblich optional ist, weggelassen wird. In diesem Fall Kann es tatsächlich vorkommen, daß die 
Floppy ihre Daten ins Leere schreibt, wobei sie dann zwangsläufig verlorengehen. 


Und selbst, wenn ein solcher Fehler vorhanden wäre, was er nicht ist, dann könnte die 
zweimalige Angabe des RECORDE#-Befehls auch nicht helfen. Geben Sie also immer die 
Bytezahl zum Positionieren an, und Sie werden sehen, daß alles einwandfrei funktioniert, auch 
wenn der RECORD#-Befehl nur einmal angegeben wird. 
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14.6 Allgemeine Bemerkungen zur Fehlerbehandlung 


Wie Sie aus den oben aufgeführten, schwerwiegenden Beispielen sehen, gibt es eine ganze Reihe 
von Fehlern im DOS der 1570/71 oder an einer anderen Stelle der Geräte. Die Angaben, die in 
diesem Buch gemacht wurden, beruhen auf meinen eigenen Erfahrungen und der Suche nach 
Lösungen. Wenn also ein Fehler angegeben ist, so existiert der Fehler in der gegebenen DOS- 
Version auf jeden Fall. Ist auch eine Lösung angegeben, die den Fehler behebt, so wurde dabei 
nicht auf Gerüchte geachtet, sondern eine Lösung erarbeitet, die sicher funktioniert (zum Beispiel 
beim RECORDE#-Befeh]). 


Das Aufzählen dieser Fehler kann natürlich nicht davor schützen, daß noch andere Fehler 
existieren, die bisher nicht bekannt geworden sind. Sie werden im DOS-Listing auf eine ganze 
Reihe kleiner Unstimmigkeiten oder überflüssiger Details stoßen, die jedoch den Floppybetrieb 
bis zur Erstellung dieses Buches nicht nennenswert gestört haben. 
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A.1 Die RAM-Belegung in der Übersicht 


Byte 

$0000-00ff 
$0100-0145 
$0146-O1ff 
$0200-02ff 
$0300-03ff 
$0400-04Aff 
$0500-05ff 


$0600-06ff 


$0700-07ff 


Bedeutung 

Zeropage; Arbeitsspeicher des DOS 

Stackbereich des Prozessors 

Pufferbereich für zweiseitigen Diskbetrieb; Ausweichpuffer für Diskettenoperationen 
Pufferbereich des DOS für Fehlermeldungen, Directory und Befehlsstrings 

Puffer 0: enthält immer den aktuellen Block einer Datei, das gerade bearbeitet wird. 

Puffer 1: enthält beim Suchen einer Datei den Teil des Directory, der die gesuchte Datei beinhaltet. 
Puffer 2: USER-Puffer. Auf diesen Bereich beziehen sich unter anderem die U-Befehle. Er wird vom 
DOS für den Anwender freigehalten. 

Puffer 3: Directory-Puffer. Enthält immer den aktuellen Block des Directory für die weitere 
Bearbeitung. 

Puffer 4: BAM-Puffer. Enthält immer die aktuelle BAM der eingelegten Diskette. Dieser Bereich 
überschneidet sich bei der 1570/71 mit dem Puffer 5, der eigentlich hardwaremäßig nicht mehr 
existiert. 


A.2 Die RAM-Belegung im Detail 


Adresse 
$0000-0005 


Bedeutung der Speicherstelle(n) 
Diese Speicherstellen bilden die Schnittstelle zwischen dem Hauptprogramm und dem Diskcontroller. 
Das Hauptprogramm des DOS schreibt dabei sogenannte Jobcodes in die entsprechende Speicherstelle, 
wobei die Jobcodes die nachfolgend aufgeführten Bedeutungen haben: 

$80/81 Lesen eines Sektors 

$88/89 Lesen eines Sektors auf dem aktuellen Track 

$90/91 Schreiben eines Sektors 

$a0/al Verify eines Sektors 

$b0/b1 Suchen einer Spur/eines Sektors (SEEK) 

$c0/c1 Positionieren des Kopfes auf Track 0 (BUMP) 

$d0/d1 Programm im Puffer ausführen 

$eO/el Diskettenprogramm in der Jobschleife ausführen 

$fo/f1 Diskette formatieren 
Nach der Ausführung eines Jobs hinterläßt der Diskcontroller spezielle Rückmeldungen, die die 
Ausführung eines Jobs bestätigen und den Status anzeigen: 

$00 ok 

$01 ok 

$02 Blockheader nicht gefunden 

$03 SYNC-Markierung auf der Diskette nicht gefunden 

$04 Datenblock nicht gefunden 
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$05 Datenprüfsumme falsch 

$06 Fehler beim Formatieren aufgetreten 

$07 Fehler bei Verify 

$08 Diskette schreibgeschützt 

$09 Headerprüfsumme falsch 

$0a Datenblock zu lang 

$0b falsche ID im Blockheader; Diskette gewechselt 
$0c n.v. 

$0d Indexloch wurde nicht gefunden 

$0e Fehler in Befehlssyntax 

$0f keine Diskette im Laufwerk 

$10 Fehler bei Rückcodierung von GCR nach Binär 


$0000 Jobspeicher für Puffer 0 
$0001 Jobspeicher für Puffer 1 
$0002 Jobspeicher für Puffer 2 
$0003 Jobspeicher für Puffer 3 
$0004 Jobspeicher für Puffer 4 
$0005 Jobspeicher für Puffer 5 (im RAM nicht vorhanden) 


$0006/7 Track und Sektor für Job mit Puffer 0 
$0008/9 Track und Sektor für Job mit Puffer 1 
$000a/b Track und Sektor für Job mit Puffer 2 
$000c/d Track und Sektor für Job mit Puffer 3 
$000e/f Track und Sektor für Job mit Puffer 4 
$0010/1 Track und Sektor für Job mit Puffer 5 (n.v.) 
$0012/3 ID 1 und ID 2 der Diskette im ASCII-Code 


$0014/5 s.o. für Drive 1 (nicht implementiert) 
$0016-$001a Zwischenspeicher für den Blockheader nach dem Lesen vonder Diskette. Dabei haben die Bytes 
folgende Bedeutung: 
$0016 ID 1 
$0017 ID 2 


$0018 Tracknummer des Blockheaders 
$0019 Sektornummer des Blockheaders 
$001a Prüfsumme über den Blockheader 


$001b Zwischenspeicher für Kommandobyte bei MFM-Steuerroutine ab $86€6 
$001c Flag für Diskettenwechsel bei Änderung der Schreibschutz-Lichtschranke 
$001d s.o. für Drive 1 (nicht implementiert) 

$001e Zustand der Schreibschutzlichtschranke 

$001f s.o. für Drive 1 (nicht implementiert) 

$0020 Flags für Drivestatus: 


Bit 4: Motor im Ausschaltmodus? I=ja; Motor läuft nach 
Bit 5: Drivemotor 1=an; O=aus 

Bit 6: Steppermotor aktivi? 1=ja 

Bit 7: Drive bereit? I=nein; Motor läuft gerade an 


$0021 s.o. für Drive 1 (nicht implementiert) 

$0022 Nummer des aktuellen Tracks für Diskcontroller 

$0023 Flag für seriellen Bus: <>O heißt 'schneller Busmodus’ 

$0024-$002d Bereich für Daten des Blockheaders nach dem Lesen von der Diskette im GCR-Code; ID-Feld bei 
MFM-Format 


$002e/f Zwischenspeicher für Pufferadresse bei GCR-Umwandlung 
$0030/1 aktuelle Pufferadresse 
$0032/3 Zeiger auf Track- und Sektornummer im Jobspeicher 


$0034 Pufferzeiger bei der GCR-Konvertierung (GCR nach Binär) 
$0035 Verzögerungszähler Hi für Ausschalten des Drivemotors 
$0036 Pufferzeiger bei Binärkonvertierung (Binär nach GCR) 
$0037 Flags für Busbetrieb des seriellen Bus: 


Bit 0: 1=letzer Sektor einer Datei wird behandelt 
Bit 1,2: n.v. 
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Bit 3: Status der CLOCK-Leitung für nächstem Buszugriff 
Bit 4: n.v. 

Bit 5: n.v. 

Bit 6: Flag für Burst-Modus: O=langsamer Bus; 1=Burst 
Bit 7: Flag für Systemtakt: 0= 1 MHz; 1= 2 MHz 


$0038 Kennzeichen des letzten Datenblocks (normalerweise $07) 
$0039 Kennzeichen für Blockheader; $08 

$003a Prüfsumme über den aktuellen Pufferinhalt/Sektor 

$003b Kommandobyte des UO-Befehls 

$003c Sektorabstand im MFM-Format; Interleave-Faktor normal 5 
$003d aktuelle Drivenummer für Job bei der Ausführung 

$003e gerade aktives Laufwerk ($ff = kein Laufwerk) 

$003f Puffernummer für gerade aktuellen Jobcode 

$0040 Tracknummer des letzten Jobs; Zähler für GCR-Umwandlung 
$0041 Puffernummer des letzten Jobs 

$0042 Trackdifferenz zwischen neuer und vorheriger Spur 

$0043 Maximalzahl der Sektoren auf einem Track 

$0044 Anzahl der 256-Bytes-Blöcke pro MFM-Sektor (1,1,2,4) 
$0045 Zwischenspeicher für aktuellen Jobcode 

$0046 Zwischenspeicher für Zeichen bei der Busübertragung 
$0047 Kennzeichen für Beginn eines Datenblocks (normal $07) 
$0048 Zähler für Ausschaltverzögerung des Drivemotors Lo 
$0049 Zwischenspeicher für Stackpointer 

$004a Anzahl der Schritte beim Kopf transport 

$004b Zwischenspeicher 

$004c Nummer des zuletzt gelesenen Sektors 

$004d Nummer des nächsten zu lesenden Sektors 

$004e Zwischen speicher Pufferadresse Hi bei GCR-Umwandlung 
HO04f Zwischenspeicher Pufferadresse Lo bei GCR-Umwandlung 
$0050 Flag für Puffer im GCR-Code: 1=GCR; 0=Binär 

$0051 Tracknummer für Formatierung; sonst $ff 


$0052-$0055 Zwischenspeicher für 4 Binärbytes bei der Umwandlung in die GCR-Äquivalente 
$0056-$005d Zwischenspeicher für 8 (aufgeteilte) GCR-Bytes bei der Umwandlung in die Binäräquivalente 


$005e Zwischenspeicher für Burst-Statusbyte (siehe 12.10) 

H005f Zwischenspeicher für Jobcode bei Burst-Kommandos 

$0060 minimale Sektornummer eines Tracks im MFM-Format 

$0061 maximale Sektornummer eines Tracks im MFM-Format 

$0062/3 Adresse der aktuellen Steppermotor- Routine 

$0064 Anzahl der zu fahrenden Schritte bei Kopfpositionierung 

$0065/6 Zeiger auf kurze' RESET-Routine; ohne Speichertest 

$0067 Tracknummer, auf die positioniert werden soll 

$0068 Flag zum Ermöglichen (0) oder Sperren (1) der automatischen lnitialisierung einer neu eingelegten 
Diskette 

$0069 GCR-Interleave-Wert; Sektorabstand normalerweise 6 

$006a Steuerung des Kopfes bei Lesefehlern: 


Bit 0-5: Anzahl der Leseversuche bei Leseproblemen 

Bit 6: Kopf steht auf (1) oder neben (0) dem Track 

Bit 7: BUMP bei Lesefehlern ausführen? 0=ja; I=nein 
H006b/c Zeiger auf Sprungtabelle der USER-Vektoren; $ffea 
$006d/e Zeiger auf Bitmuster für einen Track in der BAM 


$006f Anzahl der Jobs für Drive 0 

$0070 Anzahl der Jobs für Drive 1 (nicht implementiert) 
$0071 Zwischenspeicher 

$0072 Zwischenspeicher 

$0073 Anzahl der Side-Sektoren bei einer relativen Datei 


$0074 Zwischenspeicher 
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$0075/6 Zeiger auf $0100; dient verschiedenen Zwecken 


$0077 Gerätenummer +$20 für das LISTEN-Kommando 
$0078 Gerätenummer +$40 für das TALK-Kommando 
$0079 Flag für LISTEN; 1=gesetzt 

$007a Flag für TALK; 1=gesetzt 

$007b Byte für Kopfdejustierung bei Lesefehlern 

$007c Flag für ATN-Signal vom seriellen Bus 

$007d Flag für Prozessor im ATN-Modus 

$007e Tracknummer des letzten Diskettenzugriffs 
$007f aktuelle Drivenummer; enthält immer O0 

$0080 aktuelle Tracknummer 

$0081 aktuelle Sektornummer 

$0082 aktuelle Kanalnummer 

$0083 aktuelle Sekundäradresse für Befehlsausführung 
$0084 interne Sekundäradresse für Dateibetrieb 

$0085 aktuelles Datenbyte für Ein- und Ausgabe auf 1541-Bus 
$0086 Zwischenspeicher 

$0087 Zwischenspeicher 

$0088 Zwischenspeicher 

$0089 Zwischenspeicher 

$008a Zwischenspeicher 


$008b-$008e Speicher für Berechnungen und Rechenergebnisse 
$008f-$0093 Akkumulator für Berechnungen 
$0094/5 Zeiger auf Directorypuffer; normalerweise $0205 


$0096 Sektornummer des aktuelle MFM-Sektors 
$0097 Maximalzahl der Sektoren einer Spur im MFM-Format 
$0098 Bitzähler für den seriellen 1541-Bus 


$0099/a Pufferadresse für Puffer 0: $0300 

$009b/c Pufferadresse für Puffer 1: $0400 

$009d/e Pufferadresse für Puffer 2: $0500 

$0098/0 Pufferadresse für Puffer 3: $0600 

$00a1/2 Pufferadresse für Puffer 4: $0700 

$00a3/4 Adresse für INPUT-Puffer: $0200 

$00a5/6 Adresse für ERROR-Puffer: $02d5 

$00a7-$00ad Pufferbelegungstabelle bei der Kanalzuweisung; $ff bedeutet dabei Puffer frei 

$00ae-$00b4 Pufferbelegungstabelle 2 bei der Kanalzuweisung; $ff bedeutet Puffer frei; Tabelle für 
Zweipufferbetrieb 

$00b5-$00ba Tabelle der Lo-Bytes der Recordnummern für jeden Kanal 

$00bb-$00c0 Tabelle der Hi-Bytes der Recordnummern für jeden Kanal 

$00c1-$00c6 Tabelle der Zeiger auf das aktuelle Datenbyte für die Übertragung einer Datei 

$00c7-$00cc Tabelle der Recordlängen für jeden Kanal bei der Bearbeitung einer relativen Datei 

$00cd-$00d2 Tabelle der Side-Sektoren für eine relative Datei 


$00d3 Zeiger auf ersten Dateinamen 
$00d44 Zeiger auf aktuellen Record 

$00d5 Nummer des aktuellen Side-Sektors 
$00d6 Zeiger in Side-Sektor 

$00d7 Zeiger in aktuellen Record 


$00d8-$00dc Sektornummer des Dateieintrags im Directory 
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$00dd-$00e1 Tabelle der Zeiger in die Directory-Einträge 

$00e2-$00e6 Standardwerte für Drivenummem jeder Datei 

$00e7-$00eb Tabelle der behandelten Dateitypen 

$00ec-$00fl Kanal-Dateityp; Tabelle für Zuordnung der Dateitypen zu einem jeweiligen Kanal 
$00f2-$00f7 Kanalstatus für jeden Kanal 


$00f8 Flag für EOI-Signal 

$00f9 Aktuelle Puffernummer 

$00fa-$00fe Tabelle für verschiedene Anwendungen 

HOOff Flags für Drivestatus und aktives Laufwerk 
$0100 s.o. für Drive 1 (nicht implementiert) 

$0101 Formatkennzeichen der Diskette aus der BAM 
$0102 s.o. für Drive 1 (nicht implementiert) 


$0103-$0145 Hardware-Stack des Prozessors 
$0146-$01ba BAM Zusatz puffer für zweiseitige Disketten 
$01bb-$01ff Ausweichpuffer bei der Umwandlung von Werten in das GCRFormat, da hierbei deren Länge 


zunimmt 
$0200-$0229 INPUT-Puffer für Befehlsstring des Computers 
$022a Codenummer des auszuführenden Befehls 


$022b-$023d Kanaltabellej enthält für jeden Kanal den Statuswert:$ff: unbenutzt; $8x: Schreibkanal; $4x Lesekanal 
$023e-$0243 aktuelles Datenbyte für jeden Kanal 
$0244-$0249 Anzahl der noch zu übertragenden Zeichen jedes Kanals 


$024a gerade behandelter Dateityp 

$024b Länge des Befehlsstrings vom Computer 

$024c Zwischenspeicher für Sekundäradresse 

$024d Zwischenspeicher für aktuellen Jobcode 

$024e Arbeitsspeicher beim Suchen eines Sektors 

$024£/0 Pufferbelegung; Bit=1 heißt 'Puffer belegt' 

$0251 Flag für 'BAM dirty', d.h. BAM wurde im Puffer geändert 
$0252 s.o. für Drive 1 (nicht implementiert) 

$0253 Flag für Eintrag im Directory gefunden’ 

$0254 Flag für '$'; Ausgabe des Directory 

$0255 Flag für Befehlsausführung; <>0, wenn Befehl anliegt 
$0256 Flag für Belegung der Kanalnummern 

$0257 Zeiger auf aktiven Puffer bei Zweipufferbetrieb 
$0258 Recordlänge 

$0259 Tracknummer für aktuellen Side-Sektor-Block 

$025a Sektornummer für aktuellen Side-Sektor-Block 


$025b-$025f Tabelle; enthält letzten Jobcode für Puffer 
$0260-$0265 Sektornummern der Directoryeinträge in den Puffern 
$0266-$026b Zeiger auf die Directoryeinträge in den Puffern 
$026c Speicher für Duplikat der Fehlernummer; Fehlerflag 
$026d Flag für LED-Blinken bei Fehler 

$026e Nummer des letzten aktiven Laufwerks 
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$026f 
$0270 
$0271 
$0272/3 
$0274 
$0275 
$0276 
$0277 
$0278 
$0279 
$027a-$027f 


Nummer des letzten bearbeiteten Sektors 
aktuelle Kanalnummer 

Anzahl der Bytes in einem Sektorblock ($Tf,ff,ff,ff) 
Speicher für Anzahl der Blöcke auf der Diskette 
Länge des Befehlsstrings im INPUT-Puffer 
Zeichen zum Suchen im Befehlsstring 

letztes Zeichen plus 1 im INPUT-Puffer 

Länge von Dateiname 1 

Anzahl der Kommata; Länge von Dateiname 2 
Zeiger auf 2. Dateinamen 

Zeiger auf Dateitabelle 


$0280-$0284 Tracknummern der Dateien für den aktuellen Puffer 
$0285-$0289 Sektornummern der Dateien für den aktuellen Puffer 


$028a 
$028b 
$028c 
$028d 
$028e 
$028f 
$0290 
$0291 
$0292 
$0293 
50294 
$0295 
$0296 
$0297 
$0298 
$0299 
$029a 
$029b 
$029c 
$029d 
$029e 
$029f 
$02a0 
$02al-$02a8 
$02a9/a 
$02ab 
$02ac 
$02ad 
$02ae 
$02af 


Joker (*) Flag 

Flags für Befehlssyntax 

Anzahl der Drivezugriffe 

Flag für Diskettenzugriff 

Nummer des zuletzt benutzten Laufwerks 

Flag für Dateieintrag im Directory gefunden 
Sektornummer des aktuellen Directoryblocks 
Sektornummer des aktuellen Directoryeintrags 

Zeiger auf ersten gültigen Directoryeintrag 

zeigt letzten Block an; enthält dann O 

aktueller Pufferzeiger für Directory 

Zähler für Dateieinträge 

aktueller Dateityp 

Betriebsart der aktuellen Datei (W,R,A,M) 

zeigt Fehler bei der Ausführung eines Jobs an 

Zeiger für Kopfdejustage bei Lesefehlern 

Byte für Kopfpositionierung 

Flag für BAM wieder hergestellt 

s.o. für Drive 1 (nicht implementiert) 

Tracknummer der BAM 1 

Tracknummer der BAM 2 

s.o. 1 für Drive 1 (nicht implementiert) 

s.o. 2 für Drive 1 (nicht implememitiert) 
Zwischenspeicher für BAM-Eintragungen 

IRQ- Vektor für aktuelle Jobschleife (1571 oder 1541) 
Zähler für Anlaufen des Motors beim Disketteneinlegen 
Maximale Tracknummer auf der Diskette (36 oder 71) 
Zwischenspeicher 

Zwischenspeicher 

Flag für Umschalten des Floppy-Betriebsmodus 


$02b0-$02d4 Puffer für Erstellung des Directory bei der Ausgabe 


$02d5-$02f8 
$02f9 
$02fa 
$02fb 
$02fc 
$02fd 
$02fe 
$o2ff 


ERROR-Puffer; enthält den Diskstatus im Klartext 
Flag für BAM neu auf Diskette schreiben; weil 'dirty' 
Anzahl der 'BLOCKS FREE' Lo 

s.o. für Drive 1 (nicht implementiert) 

Anzahl der 'BLOCKS FREE!’ Hi 

s.o. für Drive 1 (nicht implementiert) 

Parameter für Kopf transport 

s.o. für Drive 1 (nicht implementiert) 
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$0300-$03ff Puffer 0 (Hauptarbeitspuffer) 

$0400-$04ff Puffer 1 (enthält aktuellen Teil des Directory) 
$0500-$05ff Puffer 2 (USER-Pufferj normalerweise frei) 
$0600-$06ff Puffer 3 (enthält letzten Block des Directory) 
$0700-$07ff Puffer 4 (BAM-Pufferj enthält Block 18,0) 
$0800-$7fff keine RAM-Belegung 

$8000-$ffff DOS 3.0 der 1570/71 
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B Tabellen mit Daten der Interfacebausteine 


B.1 Der VIA 6522 


Pin 
01 
02-09 
10-17 
18 

19 

20 

21 

22 

23 

24 

25 
26-33 
34 
35-38 
39 

40 


Bedeutung 

Vss-; Versorgungsspannung Masse 
V/O-Port A; 8 Datenleitungen 

V/O-Port B; 8 Datenleitungen 

CBl; Handshakeleitung 1 für Port B 

CB2; Handshakeleitung 2 für Port B 

Vec+; Versorgungsspannung +5 Volt 
-IRQ; IRQ-Leitung an Prozessor 

R/W; Read/Write-Leitung 

-CS2; Chip select für Bausteinadressierung 
CS1; Chip select für Bausteinadressierung 
02; Systemtakteingang 

Datenleitungen zum Prozessor 

-RES; RESET-Eingang 

RS3-RSO; Register Select für Registeradressierung 
CA2; Handshakeleitung 2 für Port A 

CAl; Handshakeleitung 1 für Port A 


Tabelle B.1: Pinbelegung des VIA 6522 


Register Bedeutung 


00 $0 
o1$1 
02 $2 
03 $3 
04 $4 
05 $5 
06 $6 
07$7 
08 $8 


09 $9 
10 $a 
11$b 


PB; Datenregister für Port B 
PA; Datenregister für Port A 
DDRB; Datenrichtungsregister für B (Bit=1 Ausgang) 
DDRA,; Datenrichtungsregister für A (Bit=1 Ausgang) 
TIL; Timer 1 Lo setzen und lesen 
TI1H; Timer 1 Hi setzen, lesen und Start 
TILL; Zugriff auf Timer 1 Lo 
TILH; Zugriff auf Timer 1 Hi 
T2L; Timer 2 Lo lesen; IRQ löschen 

Timer 2 Lo schreiben; IRQ nicht löschen 
T2H; Zugriff auf Timer 2 Hi; IRQ löschen 
SR; serielles YO-Schieberegister 
ACR; Hilfs- Kontrollregister: 
Bit 0 - 1 gibt Eingangszwischenspeicher Port A frei 
Bit 1 - 1 gibt Eingangszwischenspeicher Port B frei 
Bit 2-3:00 - Sperrt Schieberegister 

01 - Schiebetakt kommt von Timer 2 

10 - Schiebetakt ist der Systemtakt 

11 - Schiebetakt wird extern geliefert 
Bit 4-1 SR ist Ausgang; 0 SR ist Eingang 
Bit 5- O0 Timer 2 zählt im Systemtakt abwärts 

1 Timer 2 zählt im externen Takt von PB6 
Bit 6 - 1 Takt von Timer 1 über PB7 ausgeben 
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Bit7- 1 free running mode' von Timer 1 
0 einmaliges Herunterzählen von Timer 1 
12$c PCR; Peripherie-Kontrollregister: 
Bit0- OIRQvonCAl bei fallender Flanke 
1 IRQ von CAl bei steigender Flanke 
Bit 1-3:000 - IRQ von CA2 bei fallender Flanke 
001 - s.o. aber unabhängige Betriebsart 
010 -IRQ von CA2 bei steigender Flanke 
O11-s.o. aber unabhängige Betriebsart 
100 - CA2 Ausgang Lo bei Zugriff 
101 - CA2 Ausgang Lo-Impuls bei Zugriff 
110-CA2 Ausgang auf Lo 
111-CA2 Ausgang auf Hi 
Bit 4-7: siehe Bits 0-3 für CB2 
13$d _ IFR; Interrupt-Flag-Register; IRQ anzeigen 
BitO - 1 Flanke an CA2 
Bit1-1 Flanke an CAl 
Bit 2 - 1 Schieberegister ein- oder ausgegeben 
Bit3 - 1 Flanke an CB2 
Bit4-1 Flanke an CBl 
Bit 5 - 1 Unterlauf von Timer 2 
Bit 6 - 1 Unterlauf von Timer 1 
Bit 7 - 1 zeigt irgendeinen Interrupt an 
14$e _ TIER; Interrupt-Freigabe-Register; IRQs auswählen 
Diese Bits wählen den IRQ an, der dann analog im IFR angezeigt wird. 
15$f Port A ohne Handshake 
Tabelle B.2: Registerbeschreibung des VIA 6522 


Bit/Pin Bedeutung 

Leitung für DATA IN (invertierender Eingang) 

Leitung für DATA OUT (invertierender Ausgang) 

Leitung für CLOCK IN (invertierender Eingang) 

Leitung für CLOCK OUT (invertierender Ausgang) 

ATN A; 1, jedes ATN wird von Hardware der Floppy autom. beantwortet 
Lo-Bit der Hardware-Gerätenummer (DIP-Schalter 1) 

Hi-Bit der Hardware-Gerätenummer (DIP-Schalter 2) 

Leitung für ATN IN (invertierend; auch über CA 1/VIA 1) 

Tabelle B.3: Belegung von Port B des VIA 1 bei $1800 


Sau PwnD+ Oo 


Pin/Bit Bedeutung 
0 Bit=0 zeigt an, daß der Kopf auf Track 0 steht 
1 Bit=1 serieller Bus auf Ausgang 

Bit=0 serieller Bus auf Eingang 


2 Diskettenseite für Tonkopf (1571) 0 oder I 

3 n.v. 

4 n.v. 

5 Systemtaktfrequenz; Bit=1 heißt 2 MHz; sonst 1 MHz 
6 n.v. 

7 zeigt BYTE-READY an; auch über CAY/VIA 2 


Tabelle B.4: Belegung des Port A von VIA 1 bei $1801 


B.2 Der CIA 6526 
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Bit/Pin Bedeutung 

Ansteuerung für 1. Steppermotorspule 

Ansteuerung für 2. Steppermotorspule 

Steuerung für Drivemotor; Bit=1 heißt Motor an 

Steuerung für LED am Laufwerk; 1 heißt LED an 

WRITE PROTECT, Zustand der Schreibschutzlichtschranke; 

Bit=1 heißt Diskette ungeschützt; auch CA2/VIA 1 

5/6 Steuerung der Aufzeichnungsrate auf der Diskette: 

Bit 6/5:00 - 250000 Bits/s auf Track 31-35/66-70 

01 - 266664 Bits/s auf Track 25-30/60-65 
10 - 285712 Bits/s auf Track 18-24/53-59 
11 - 307688 Bits/s auf Track 01-17/36-52 

7 SYNC-Signal beim Lesen von Diskette 

Tabelle B.5: Belegung des Port B von VIA 2 bei $1c00 


rPTun+o0o 


Pin/Bit Bedeutung 
0-7 Paralleler Datenbus zum Diskcontroller (GCR) 


Tabelle B.6: Belegung des Port B von VIA 2 bei $IcOl 


B.2 Der CIA 6526 


Pin Bedeutung 

01 VSS-; Versorgungsspannung Masse 
02-09  PAO-PAT; Leitungen für /O-Port A 
10-17  PBO-PB7; Leitungen für /O-Port B 


18 -PC; Geht auf Lo, wenn Daten an einem Port anliegen 
19 TOD; Eingang für Echtzeituhr (50 oder 60 Hz Signal) 
20 Vec+; Versorgungsspannung +5 Volt 

21 -IRO; Interruptleitung zum Prozessor 

22 R/W; geht auf Lo, wenn der Prozessor Daten ausgibt 
23 -CS; Leitung adressiert den Baustein; ghet dann auf Lo 
24 -FLAG; Eingang zur Anzeige von Daten (s.o. -PC) 

25 02; Eingang für Systemtakt 

26-33 D7-DO; Datenbus zum Prozessor 

34 -RES; RESET-Eingang vom Prozessor 

35-38  RS3-RSO; Registerauswahlleitungen 

39 SP; 'serial port‘; Aus- und Eingang für Schieberegister 
40 CNT; Taktleitung für Schiebetakt bei SP 


Tabelle B.7: Pinbelegung des CIA 6526 


Register Bedeutung 

00$0 _ PRA; VO-Port A 

01$1 _ PRB; VO-Port B 

02$2 _ DDRA; Datenrichtungsregister Port A; Bit=1 Ausgang 
03$3 __DDRB; Datenrichtungsregister Port B; Bit=1 Ausgang 
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04 $4 TAL; Timer A Lo; Lesen und Schreiben 
05 $5 TAH; Timer A Hi; Lesen und Schreiben 
06 $6 TBL; Timer B Lo; Lesen und Schreiben 
07 $7 TBH; Timer B Hi; Lesen und Schreiben 
08 $8 TOD 10THS; 1/10 Sekunden der Echtzeituhr: 
Bit 0-3: Lesen: 1/10 Sekunden der Uhrzeit (BCD) 
Bit 4-7: O; n.v. 
oder 
Bit 0-3: Schreiben: 1/10 Sekunden für Uhrzeit 
Bit 4-7: O0; n.v. 
oder 
Bit 0-3: Schreiben: 1/10 Sekunden für Alarmzeit 
Bit 4-7: 0; n.v. 
09 $9 TOD SEC; Sekunden der Echtzeituhr (BCD): 
Bit 0-3: Lesen: Einersekunden (BCD) 
Bit 4-6: Lesen: Zehnersekunden (BCD) 
Bit 7: immer 0; n.v. 
oder 
Bit 0-3: Schreiben: Sekunden für Echtzeit setzen 
Bit 4-6: Schreiben: 10er Sekunden für Echtzeit 
Bit 7: immer 0; n.v. 
oder 
Bit 0-3: Schreiben: Sekunden für Alarmzeit setzen 
Bit 4-6: Schreiben: 10er Sekunden für Alarmzeit 
Bit 7: immer 0; n.v. 
10 $a TOD MIN; Minuten der Echtzeituhr (BCD): 
Belegung siehe Register 9 für Minuten 
11 $b TOD HR; Stunden der Echtzeituhr (BCD): 
Bit 0-3: Lesen: Einerstunden der Echtzeituhr (BCD) 
Bit 4: Lesen: 10er Stunden der Echtzeituhr 
Bit 5,6: 0; n.v. 
Bit 7: Lesen: 0=AM; I=PM 
Schreibfunktionen analog zu Register 9 
12 $c SDR; Port für serielles Schieberegister 
13$d _ ICR; Interrupt Control Register: 
Lesen: Interruptursache abfragen 
Bit 0: 1= Unterlauf von Timer A 
Bit 1: 1= Unterlauf von Timer B 
Bit 2: 1= eingestellte Alarmzeit erreicht 
Bit 3: 1= Daten im SDR ausgegeben oder empfangen 
Bit 4: 1= aktiver Lo-Pegel am Pin -FLAG aufgetreten 
Bit 5: n.v. 
Bit 6: n.v. 
Bit 7: 1 zeigt an, daß ein Interrupt, der in der Maske gewählt wurde, 
aufgetreten ist. 
Schreiben: Interruptmaske setzen (entspr. Bit 7) 
Bit 0: 1= Unterlauf von Timer A wird überwacht 
Bit 1: 1= Unterlauf von Timer B wird überwacht 
Bit 2: 1= Erreichen der Alarmzeit wird überwacht 
Bit 3: 1= SDR-Betrieb wird überwacht 
Bit 4: 1= Pin -FLAG wird überwacht 
Bit5: n.v. 
Bit 6: n.v. 
Bit 7: 0= Maskenbits entsprechend löschen 
1= Maskenbits entsprechend setzen 
14$e _ CRA: Control Register A 
Steuerung für Timer A; Lesen und Schreiben 
Bit 0: 1= Timer A starten 
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Bit 1: 1= Unterlauf an PB6 anzeigen 
Bit2: 1= Unterlauf dreht den Zustand von PB6 um 
0= Unterlauf löst einen Hi-Impuls an PB6 aus 
Bit3: 1= Timer hält nach Unterlauf an 
0= Timer startet nach jedem Unterlauf neu 
Bit4: 1= Timer neu laden und starten 
Bit5: 1= Trigger für Timer ist CNT Pin (Hi-Flanken) 
0= Trigger für Timer ist der Systemtakt 
Bit6: 1= Schieberegister auf Ausgang 
0= Schieberegister auf Eingang 
Bit 7: 1= Frequenz für Echtzeituhr 50 Hz 
0= Frequenz für Echtzeituhr 60 Hz 
15$f _ _CRB: Control Register B 
Steuerung für Timer B; Lesen und Schreiben 
BitO: 1= Timer B starten 
Bit 1: 1= Unterlauf an PB7 anzeigen 
Bit2: 1= Unterlauf dreht Zustand von PB7 um 
0= Unterlauf löst einen Hi-Impuls an PB7 aus 
Bit3: 1= Timer hält nach Unterlauf an 
0= Timer startet nach jedem Unterlauf neu 
Bit4: 1= Timer neu laden und starten 
Bit 6,5:00 - Trigger für Timer ist der Systemtakt 
01 - Trigger für Timer ist der CNT-Pin 
10 - Trigger für Timer sind Unterläufe von Timer A 
11 - Trigger für Timer sind Unterläufe von Timer A, wenn CNT auf 
Hi-Pegel liegt 
Tabelle B.8: Registerbelegung des CIA 6526 bei Adresse $4000 


B.3 Der Diskcontroller WD 1770 


Pin Bedeutung 
01 -CS; Chip select Eingang für Adressierung des WD 1770 
02 R/W; geht auf Lo, wenn Daten vom Prozessor kommen 
03-04  AO-Al; Registerauswahlleitungen: 
Beim Lesen ergeben sich folgende Belegungen: 
A1,A0:00 - Status Register 
01 - Track Register 
10 - Sektor Register 
11 - Datenregister 
beim Schreiben: 
A1,A0:00 - Befehlsregister 
01 - Track Register 
10 - Sektor Register 
11 - Datenregister 
05-12 DALO0-DAL7; Datenbus vom/zum Prozessor 


13 -MR; RESET-Leitung vom Prozessor 

14 GND; Versorgungsspannung Masse 

15 Vec; Versorgungsspannung +5 Volt 

16 STEP; Signal für Steppermotor zum Positionieren 
17 DIRC; Direction; Ausgang für Kopfbewegung; 


Lo-Pegel bewegt den Kopf nach außen 
Hi-Pegel bewegt den Kopf nach innen 
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18 CLK; Clock; Eingang für 8 MHz Systemtakt 

19 -RD; Read Data; Datenleitung zum Lesen von Diskette 

20 MO; Motor On; Ausgang Hi-Pegel schaltet den Drivemotor an 

21 WG; Write Gate; Ausgang bei Schreibbetrieb auf Hi-Pegel 

22 WD; Write Data; Ausgang für Daten zum Schreiben 

23 -TR00; Eingang; geht auf Lo, wenn der Kopf auf Track O steht; 
Lichtschranke unterbrochen 

24 -IP; Index Pulse; Eingang geht auf Lo, um dem WD 1770 mitzuteilen, daß das 
Indexloch gefunden wurde 

25 -WPRT, Write Protect; Eingang, verhindert Schreiben, wenn ein Lo-Pegel 
anliegt 

26 -DDEN; Double Density Enable; Eingang; Controller schreibt im FM-Format 
bei Hi-Pegel und im MFM-Format bei Lo-Pegel an -DDEN 

27 DRO; Data Request; Ausgang ist Hi, wenn Daten gelesen oder geschrieben 
worden sind 

28 INTRQ; Interrupt Request; Ausgang geht auf Hi, wenn ein Kommando 


ausgeführt worden ist; wird beim Lesen des Statusregisters zurückgesetzt. 


Tabelle B.9: Pinbelegung des WD 1770 von Western Digital 


Register Bedeutung 
00$0 Schreiben: Befehlsregister des WD 1770 
Lesen: Statusregister des WD 1770: 
Bit 0: 1= Controller führt gerade einen Befehl aus 
Bit 1: jenach Kommandotyp: 
Typ 1: Zustand des Index-Pins; 1= Indexloch 
Typ 2,3: 1= Datenregister voll/leer (Lesen/Schreiben) 
Bit 2: je nach Kommandotyp: 
Typl: Zustand des Track 0 Pins; 0 bedeutet, daß der Kopf auf 
Track 0 steht 
Typ 2,3: 1 bedeutet, daß das Programm die vom Kopf kommenden 
Daten aus $2003 nicht rechtzeitig übernommen hat; sie 
sind deshalb verlorengegangen. 
Bit 3: 1= Prüfsummenfehler aufgetreten (CRC Error) 
Bit 4: 1= Sektor nicht gefunden 
Bit5: je nach Kommandotyp: 
Typ 1: 1= Diskette hat nach Anlaufen 6 Umdrehungen hinter 
sich, das heißt, Motor hat jetzt konstante Drehzahl 
Typ 2,3: gibt Format an: 
1= Datenmarke vorhanden 
0= keine Datenmarke vorhanden 
Bit 6: bei Schreiben: Zustand des Schreibschutzes 
1= Diskette ist schreibgeschützt 
Bit 7: 1= Drivemotor eingeschaltet 
01$1 Track Register; enthält zu bearbeitende Tracknummer 
02 $2 Sektor Register; enthält zu bearbeitende Sektornummer 
03 $3 _ Datenregister; enthält das Byte für Schreiben oder Lesen auf die oder von der 
Diskette 


Tabelle B.10: Registerbeschreibung des WD 1770 bei Adresse $2000 
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C Das dokumentierte ROM-Listing der 1570/71 


Hier haben Sie sozusagen das Kernstück des Buches vor Augen. Dieses ROM-Listing wurde mit 
viel Geduld und Arbeit so ausführlich wie nur irgend möglich dokumentiert und erlaubt es wohl 
jeden Assemblerprogrammierer, einen guten und tiefen Einblick in die Funktionsweise des 
FloppyBetriebssystems zu bekommen. Die Dokumentation des ROM-Listings hat sich zwar 
insgesamt auf über fünf Monate erstreckt, wobei ständig neu erscheinende Versionen von 
Commodore (dies ist Version -03 für die 1571 und -Ol für die 1570) eine immer neue 
Überarbeitung nötig machten, es kann jedoch trotz allem nicht ausgeschlossen werden, daß 
dennoch Fehler vorhanden sind. Für Hinweise in dieser Richtung sind Verlag und Autor jederzeit 
dankbar. 


Die Bedienung des DOS-Listings ist eigentlich recht einfach. Der Kommentar wurde so gestaltet, 
daß er prinzipiell auch ohne die nebenstehenden Maschinenbefehle durchgelesen werden kann, 
um so im "Schnellverfahren" einen Überblick über die einzelnen Routinen zu bekommen. 


Wenn es nötig war, so wurde in den Kopf der jeweiligen Routinen noch eine detailliertere 
Erklärung der Funktionsweise eingefügt, so daß ein Aufruf dieser Routinen von eigenen 
Programmen aus ermöglicht wird. 


Da sich die 1570 und die 1571 nur in sehr geringen Punkten unterscheiden, wurden beide 
Versionen in einem ROM-Listing zusammengefaßt (andernfalls wäre das Buch doppelt so dick 
geworden). Bei Unterschieden sind den Befehlen dann entweder ein „*1" oder ein "*0" 
vorangestellt. Das ‚‚*1" steht dann vor den Befehlen für die 1571, und das "*0" beschreibt die 
Befehle in der 1570. 


Gefundene Betriebssystemfehler wurden in dem Listing ebenfalls, wenn möglich, 
gekennzeichnet. Es folgt dann zum Beispiel die Bemerkung "unsinniger Befehl" als 
Dokumentation. 


So, nun aber viel Spaß bei der Analyse des DOS 3.0 der 1570/71 und bei der sicherlich davon 
profitierenden Programmierübung der 1570/71. 
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Das Listing des DOS 3.0 der 1570/71 Version -03 (1571) und -01 (1570) 


8000 ROM-Prüfsumme zur Fehlererkennung bei Hardwaredefekten. 














*1 8000 92 25 ROM-Version -03 1571 

*0 8000 98 75 ROM-Version -01 1570 

8002 Copyright-Statement. 

8002 53 2£ 57 20 2d 20 44 41 s/w - da 

800a 56 49 44 20 47 20 53 49 vidg si 

8012 52 41 43 55 53 41 Od 48 racusa h 

80la 2£ 57 20 2d 20 47 52 45 /w - gre 

8022 47 20 42 45 52 4c 49 4e 9 berlin 

802a Od 31 39 38 35 Od 1985 

8030 Routine wird vom U0-Befehl aufgerufen und ist für die 
weitere Bearbeitung der zusätzlichen U0-Befehle 
verantwortlich. 

8030 ad 74 02 lda 50274 Länge des Befehlsstrings 

8033 c9 03 cmp #503 kleiner als 3? 

8035 90 2e bed 58065 verzweige, wenn ja 

8037 ad 02 02 lda 50202 drittes Zeichen aus Befehlsstring 

803a 85 3b sta S3b in Zwischenspeicher für weitere Bearbeitung 

803c 29 1£ and #S1£ Bits 0 bis 4 isolieren; bestimmen den Befehl 

803e aa tax als Index 

803£f 0a asl mal zwei 

8040 a8 tay als Adressindex 

8041 b9 8e 80 lda $808e,y Adresse Lo des Befehls holen 

8044 83.75 sta 575 und setzen 

8046 b9 8£ 80 lda S808£,y Adresse Hi des Befehls holen 

8049 85 76 sta 576 und setzen 

804b e0 le cpx #Sle Befehle der 1571 erlaubt? 

804d £ 07 beq 58056 Befehl ausführen, wenn ja 

804f ad Of 18 lda S180£ sonst auf 1541-Modus 

8052 29 20 and #520 prüfen 

8054 £f0O 0£ beq 58065 verzweige, wenn Floppy im 1541-Modus 

8056 as: 987 lda 537 unsinnige Befehlsfolge: 

8058 29 eb and #S$eb Ausblenden der Bits 2 und 4 ohne 

805a 85 37 sta 537 Belang! 

805c bd 6e 80 lda S806e,x Jobcode für Befehlsausführung holen 

805sf 8d 02 02 sta 50202 und setzen 

8062 6c 75 00 jmp (50075) Befehl ausführen 

8065 USER-Befehlsadresse für 1541-Modus setzen. 

8065 a9 ea lda #Sea Adresse Lo 

8067 85 6b sta S6b setzen 

8069 a9 ££ lda #Sff Adresse Hi 

806b 85 6c sta S6c setzen; ergibt $ffea (USER-Befehlstabelle) 


8064 60 rts Ende 
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806e 80 81 90 91 bO bl £fO fl 00 01 bO 
807e 80 81 90 91 bO bl £fO fl 00 01 bO 








808e 
Bytes Befehlscode 

808e 71 83 s00 
8090 7E.83 sol 
8092 ec 83 502 
8094 £f8 83 503 
8096 8b 84 504 
8098 7£ 83 505 
809a b7 84 506 
809c b7 84 507 
809e fl 84 508 
80a0 fl 84 509 
80a2 17 85 s0a 
80a4 T7£ 83 S0b 
80a6 6b 85 Soc 
80a8 7£ 83 s0d4 
80aa a5 85 S0e 
80ac a5 85 Sof 
80ae 71 83 s10 
8060 7£ 83 sıl 
80b2 ec 83 s12 
8064 £f8 83 $13 
80b6 8b 84 s14 
8068 7£ 83 $15 
80ba b7 84 s16 
80bc b7 84 517 
80be 6d 80 s18 
80c0 6d 80 519 
80c2 17 85 Sla 
80c4 7£ 83 $1b 


Jobcodes für die einzelnen Befehle des U0-Kom- plexes. 


Die 


Jobcodes bedeuten im einzelnen: 


00/0 
80/8 
88/89 
90/9 
a0/a 
b0/b 
ce0/c 
a0/d 
e0/e 
£O/£ 





Von die 


Adressen der einzelnen U0-Routinen. 








hesen 
hesen 





kein Job erforderlich 


eines Sektors 
eines Sektors der gleichen Spur 


Schreiben eines Sektors 
Verify eines Sektors 
Suchen eines Sektors 
ullanschlag des Kopfes 
Programm im Puffer ausführen 
Jobprogramm im Puffer ausführen 
Formatieren einer Diskette 


(SEEK) 
(BUMP) 


en Jobcodes finden sich nicht alle in der Tabelle. 
Diese Aufstellung beschreibt alle vorhandenen Jobcodes, 
wobei der Wert +1 jeweils für das Laufwerk 1 bestimmt ist, 
das in der 1570 und der 1571 natürlich nicht existiert. 

01 00 01 00 01 

01 00 01 00 80 


Die Bits der 


Befehlsnummer haben dabei folgende Bedeutung: 
Bit 0 -— Drivenummer (0 oder 1 (n.v.)) 
Bit 1 bis 3 - eigentliche Befehlskennung 

Bit 4 - Diskettenseite (nur MFM-Betrieb) 
Bit 5 bis 7 - verschiedene Funktionen 
Beschreibung 

58371 - MFM-Sektor von Diskette lesen (Drive 0) 
S837£ - s.o. für Drive 1 ('DRIVE NOT READY!) 
$83ec - MFM-Sektor auf Diskette schreiben 
se3f8 - s.o. für Drive 1 ('DRIVE NOT READY') 
$848b - Diskette initialisieren (MFM und GCR) 
S837£ - s.o. für Drive 1 ('DRIVE NOT READY') 
$84b7 - Diskette formatieren (MFM und GCR) 
$84b7 - s.o. für Drive 1 ('DRIVE NOT READY') 
$S84fl - Sektorabstand neu setzen (für MFM) 
sS84fl - Sektorabstand neu setzen (für MFM) 
58517 - Diskettenformat analysieren 

S837£ - s.o. für Drive 1 ('DRIVE NOT ADY') 
$856b - Floppy-Status neu setzen 

S837£ - s.o. für Drive 1 ('DRIVE NOT READY!) 
$85a5 - Befehl BACKUP; '31, SYNTAX ERROR" 
$85a5 - Befehl BACKUP; '31, SYNTAX ERROR" 
58371 - MFM-Sektor von Diskette lesen (Drive 0) 
S837£ - s.o. für Drive 1 ('DRIVE NOT READY') 
$83ec - MFM-Sektor auf Diskette schreiben 
se3f8 - s.o. für Drive 1 ('DRIVE NOT READY') 
$848b - Diskette initialisieren (MFM und GCR) 
S837£f - s.o. für Drive 1 ('DRIVE NOT READY') 
$84b7 - Diskette formatieren (MFM und GCR) 
$84b7 - s.o. für Drive 1 ('DRIVE NOT READY') 
$806d - (RTS) 

$806d - (RTS) 

58517 - Diskettenformat analysieren 

S837£ - s.o. für Drive 1 ('DRIVE NOT READY') 
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$806d - (RTS) 

$806d - (RTS) 

$S8fe5 - Modus-Umschaltbefehle behandeln 

59080 - schnelles Laden einer Datei aktivieren 


co 00 ©D 0 00 m 00 DD CD CO CD CD 00 O0 CO 00 00 00 DO CD CO CD 00 00 00 00 





8l 


e9 
e9 
18 


18 
18 


82 


8l 











Bedienung des seriellen Bus nach Auftreten eines ATN vom 
Computer. 
Diskcontroller inaktivieren 
Flags löschen: 
Flag für ATN löschen 
Flag für LISTEN löschen 
Flag für TALK löschen 
Stackpointer 
zurücksetzen 
seriellen Bus für Empfang setzen 
Flag für EO 
löschen 
Flag für ATN-Modus setzen 

CLOCK OUT Hi setzen 

DATA OUT Lo setzen 

Bus lesen 

Antwortleitung für ATN löschen 

und auf Bus setzen 

Bus wieder lesen 

und auf ATN testen 

ATN noch vorhanden: CLOCK IN testen 
warten, bis CLOCK IN Hi wird 
Kommandobyte vom Bus holen 
UNLISTEN? 

verzweige, wenn nein 

Busbetrieb wieder 

auf den langsamen 

1541 Bus stellen 

Flag für LI STEN 

löschen 

unbedingter Sprung 

UNTALK? 

verzweige, wenn nein 

Busbetrieb wieder 

auf den langsamen 

1541 Bus stellen 

Flag für TALK 

löschen 

auf Ende des ATN warten 
TALK-Adresse? 

verzweige, wenn nein 

Flag für TALK 

setzen 

Flag für LISTEN 

löschen 

unbedingter Sprung 

LISTEN-Adresse? 

verzweige, wenn nein 

Flag für LISTEN 

setzen 

Flag für TALK 

löschen 




















B.3 Der Diskcontroller WD 1770 211 





© 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 Co 00 00 00 0 Co 00 00 m m m Co 00 Co m m © © Co m m wo co w 
on 
m 


18 


18 


18 











unbedingter Sprung 

Kommandobyte merken 

Bit 5 und 6 testen 

sind beide gesetzt? 

verzweige, wenn nein 

Kommandobyte zurückholen 

und als Befehlssekundäradresse merken 
reine Sekundäradresse isolieren 
und setzen 

Befehlssekundäradresse holen 
Kommandobits isolieren 
CLOSE-Kommando? 

verzweige, wenn nein 
Diskcontroller wieder aktivieren 
CLOSE-Routine; Kanal/File schließen 
Diskcontroller inaktivieren 

ATN immer noch gesetzt? 

verzweige, wenn ja 

ATN-Modus ist 

beendet; Flag löschen 

Bus lesen 

Antwortsignal für Computer setzen 
und senden 

Flag für LISTEN gesetzt? 
verzweige, wenn nein 

ist der Bus im 1541-Modus? 
verzweige, wenn ja 

sonst schnellen Busbetrieb aktivieren 
Byte vom Bus holen 

zurück zur Systemwarteschleife 
Flag für TALK gesetzt? 

verzweige, wenn nein 

DATA OUT-Leitung auf Hi setzen 
CLOCK OUT-Leitung auf Lo setzen 
Verzögerung von ca. 70 Taktzyklen 
Daten auf Bus ausgeben 

Verzögerung von ca. 70 Taktzyklen 
zur Systemwarteschleife 

alle Leitungen bis auf ATN ACK 
(ATN-Antwortleitung) auf Hi setzen 
Bus prüfen 

verzweige, wenn kein ATN 

sonst warten, bis AIN zurückgesetzt 











8199 
819c 
8lg£f 
8lal 
8la3 
8la6 
81la8 


20 
20 
29 
d0 
20 
a9 
8d 


ea 
e9 


8l 


40 


jsr 
SE 
and 
bne 
js£ 
lda 
sta 


Sea59 
Se9c0 
#504 

58199 
Seölce 
#500 

S400c 


Routine teilt dem Computer mit, daß er mit dem schnellen 
seriellen Busbetrieb (1571-Modus) arbeiten kann. Zu diesem 
Zweck wird ein sogenanns DRF-Signal ('device request fast') 
an den Rechner gesendet, damit er weiß, daß die 
angeschlossene Floppy auf schnellen Busbetrieb eingerichtet 
ist. 

auf ATN-Signal prüfen 

CLOCK IN-Leitung prüfen 

und CLOCK IN Bit isolieren 

auf Reaktion des Computers warten 

1571 Bus für Ausgabe bereitmachen 

Byte als DRF-Signal 

in das serielle Schieberegister 
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und 
Status prüfen 
warten, bis Byte ausgegeben wurde 





Seriellen Bus für schnellen Busbetrieb auf Ein- gang 


Prozessorflags merken 

Diskcontroller inaktivieren 
Kontrollregister lesen 

serielles Schieberegister auf Eingang 
schalten 

Steuerregister für Buscontroller lesen 
Bus auf Eingang schalten 

und Wert setzen 

(müßte #588 heißen) 

Flag für Schieberegister initialisieren 
Status löschen 

Prozessorflags zurückholen 

Ende 





Seriellen Bus für schnellen Busbetrieb auf Aus- gang 
schalten. 

Prozessorflags merken 

Diskcontroller inaktivieren 

Steuer register für Buscontroller lesen 
Bus auf Ausgang schalten 

Wert setzen 

Steuerregister lesen 

serielles Schieberegister auf Ausgang 
schal ten 

(müßte #$88 heißen) 

Flag für Schieberegister initialisieren 
Status löschen 

Prozessorflags zurückholen 

Ende 











e8 28 

e9 60 
8lea 
8lea 78 
8leb 20 eb do 
8lee b0O 06 
8l£f0 a6 82 
slf2 b5 £2 
8lf4 30 01 
8lf6 60 
81l£7 20 59 ea 
8lfa 20 c0 e9 
slfd 29 91 
slff 08 
8200 20 b7 e9 
8203 28 


8206 20 59 ea 
8209 20 c0 e9 


sei 
sr 
bes 
ldx 
lda 
bmi 
rts 
SE 
jSE 
and 
hp 
jsr 
plp 
beq 
jsr 
jsr 
and 
bne 





Routine zum Senden von Daten auf den Bus als Folge eines 
TALK-Kommandos vom Computer. Die analoge Routine dazu 
befindet sih bei $e909 und steuert diesen Betrieb für den 
541-Modus. 

Diskcontroller inaktivieren 

freien Kanal zum Lesen suchen 

verzweige, wenn kein Kanal frei 

Kanalnummer holen 

Kanalstatus prüfen 

verzweige, wenn Status ok 

Ende 

auf ATN-Signal prüfen 

warten, bis CLOCK IN Lo wird 

Datenbit isolieren 

und dessen ertigkeit merken 

CLOCK OUT-Leitung auf Hi setzen 

Datenbit zurückholen 

verzweige, wenn Bit gleich O0 

auf ATN-Signal prüfen 

warten, bis CLOCK IN Lo wird 

Datenbit isolieren 

verzweige, wenn Bit gleich 1 
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ea 
e9 


ea 
e9 


e9 
ea 
e9 


Kanalnurtlller 
Kanalstatus holen 


auf EOI testen 
verzweige, wenn kein EOI 


Die folgenden Befehle senden das EOI zum Computer weiter: 
auf ATN-Signal prüfen 

EOI senden; DATA-Leitung prüfen 
Datenbit isolieren 

auf Reaktion des Computers warten 
auf ATN-Signal prüfen 

DATA IN-Leitung prüfen 

Datenbit isolieren 

verzweige, wenn Bit gleich O0 
CLOCK OUT-Leitung auf Lo setzen 
auf ATN-Signal prüfen 

DATA IN-Leitung prüfen 

Datenbit isolieren 

verzweige, wenn Bit gleich 1 

für Busbetrieb testen 

verzweige, wenn Bus im 1541-Modus 








18 


18 
40 


40 
40 


02 


40 
40 


40 

















Ein Byte auf den schnellen Bus der 1571 ausgeben. Als Byte 
wird dabei das aktuelle Datenbyte des aktuellen Kanals 
ausgegeben- 

Steuerregister des Buscontrollers 
seriellen Bus auf Ausgang 

schalten 

Steuerregister lesen 

serielles Schieberegister auf Ausgang 
setzen 

Flag für Schieberegister löschen 
Kanalnummer 

aktuelles Datenbyte holen 

und ins Schieberegister schreiben 

warten, bis 

das Byte 

auf den Bus ausgegeben worden ist 
Steuerregister lesen 

serielles Schieberegiser auf Eingang 
schalten 

Steuerregister des Buscontrollers lesen 
und den Bus auf Eingang 

schalten 

(müßte #$88 heißen) 

Flag für serielles Schieberegister setzen 
unbedingter Sprung; Ende 





a9 
85 
20 
29 
a0 


08 
98 
co 
01 
43 


e9 


lda 
sta 
jsr 
and 
bne 


#508 
$98 
Se9c0 
#501 
$82c4 


Routine gibt das aktuelle Datenbyte auf den Bus aus. Es 
handelt sich hierbei um eine Aus- gabe auf den langsamen 
Bus der 1541, wobei eine analoge Version der Routine bei 
$e958 zu finden ist. 

Zähler auf 8 Bits für seriellen Bus 

setzen 

Port lesen 

Datenbit isolieren 

verzweige, wenn Bit gleich 1 
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8281 a6 82 ldx 582 Kanalnummer 

8283 bd 3e 02 lda S023e,x aktuelles Byte des Kanals holen 

8286 6a ror nächstes Bit in Prozessorstatus schieben 

8287 94 3e 02 sta S023e,x und restliches Byte merken 

828a b0O 05 bes 58291 verzweige, wenn Datenbit gleich 1 

828c 20 a5 e9 SE Se9a5 DATA OUT-Leitung auf Lo setzen 

828f do 03 bne 58294 unbedingter Sprung 

8291 20 9c e9 jsr Se99c DATA OUT-Leitung auf Hi setzen 

8294 20 Te a4 jsr Sa4le Verzögerung von ca. 30 Taktzyklen 

8297 a9: 23 lda 523 auf Busverzögerung prüfen 

8299 d0 e6 bne s8281 verzweige, wenn keine Busverzögerung nötig 

829b 20 83 a4 jer Sa483 sonst ca. 70 Zyklen warten (für 1541) 

829e 20 b7 e9 jsr Se9b7 CLOCK OUT-Leitung auf Hi setzen 

82al 20 Te a4 jsE Sa4le Verzögerung von ca. 30 Taktzyklen 

82a4 a9: 23 lda 523 auf Busverzögerung prüfen 

82a6 do 03 bne s82ab verzweige, wenn keine Busverzögerung nötig 

82a8 20 83 a4 jsr Sa483 sonst ca. 70 Zyklen warten 

82ab 20 £b fe jsr Sfefb CLOCK OUT auf Lo und DATA OUT auf Hi setzen 

82ae c6 98 dec 598 Zähler für Anzahl der Bits vermindern 

82b0 d0 c8 bne 5827a weitermachen, wenn noch Bits auszugeben sind 

82b2 20 59 ea jSr Sea59 auf ATN-Signal prüfen 

82b5 20 c0 e9 Jsr SeIc0 DATA IN-Leitung prüfen 

82b8 29, 91 and #501 Datenbit isolieren 

82ba £0 £6 beq 582b2 verzweige, wenn Bit gleich O0 

82bc 58 cli Diskcontroller wieder aktivieren 

82bd 20 aa d3 jsr Sd3aa nächstes Byte aus Puffer holen 

82c0 78 sei Diskcontroller inaktivieren 

82c1 4c £0 81 jmp S8LEO und zur Ausgabe 

82c4 4c 62 83 jmp 58362 zurück zur Systemwarteschleife; Ende 

82c7 Routine holt ein Datenbyte vom schnellen Bus der 1571 als 
Folge eines LISTEN-Kommandos vom Computer. Analog dazu ist 





die Routine bei $e9c9 im DOS. 





8207 2c 0d 40 bit S4004 ICR löschen 

82ca a9 08 lda #508 Anzahl der Bits im Byte für seriellen Bus 
82cc 85 98 Sa 598 setzen 

82ce 20 59 ea jSE Sea59 auf ATN-Signal prüfen 

82d1 20 c0 e9 jsr SeIc0 CLOCK IN-Leitung prüfen 

82d4 29 04 and #504 CLOCK IN-Bit isolieren 

82d6 d0 £6 bne $82ce verzweige, wenn Bit gleich 1 

82d8 20 9c e9 jSE Se99I9c DATA OUT-Leitung Hi setzen 

82db a9 01 lda #501 DATA IN-Leitung 

82dd 2c 00 18 bit 51800 testen 

82e0 d0 f£fb bne se2dd verzweige, wenn Leitung gleich Lo 
82e2 8d 05 18 sta 51805 Timer auf 256 Taktzyklen 

82e5 20 59 ea SE Sea59 auf ATN-Signal prüfen 

82e8 ad 0d 18 lda s1804 Steuerregister lesen 

82eb 29 40 and #540 Timer schon abgelaufen? 

82ed d0O 09 bne Sse2f verzweige, wenn ja 

82ef 20 c0 e9 jsE SeIc0 sonst CLOCK IN-Leitung prüfen 

82£2 29 04 and #504 und Bit testen 

82f4 £f0 ef beq S82e5 verzweige, wenn CLOCK IN gleich Hi 
82f6 d0O 19 bne se3sll unbedingter Sprung 

82£8 20 a5 e9 jsE Se9a5 DATA OUT-Leitung auf Lo setzen 
82fb a2 18 ldx #518 und eine 

s2fd ca dex Verzögerung von ca. 120 Taktzyklen 
82fe do fd bne se2fd abwarten 
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e9 
ea 
e9 


18 


40 


83 


ea 
e9 


e9 











DATA OUT-Leitung Hi setzen 

auf ATN-Signal prüfen 

CLOCK IN-Leitung prüfen 

CLOCK IN-Bit isolieren 

verzweige, wenn Bit gleich Null 
EOI-Signal 

setzen; Flag setzen 

Port des Buscontrollers lesen 
Datenbit invertieren und 

merken 

Status des seriellen Schieberegisters 
auf 'Byte empfangen! testen 
verzweige, wenn kein Byte empfangen 
sonst Byte aus Register holen 

und merken 

zurück zur Systemwarteschleife; Ende 
Datenbit zurückholen 

und ins Carry schieben 

CLOCK IN-Leitung prüfen 

verzweige, wenn Lo 

Datenbit ins Datenbyte schieben 

auf ATN-Signal prüfen 

CLOCK IN-Leitung prüfen 

Bit isolieren 

verzweige, wenn CLOCK IN gleich Hi ist 
Zähler für Bits vermindern 
verzweige, wenn noch Bits folgen 
DATA OUT-Leitung auf Lo setzen 
Datenbyte holen 

und Ende 





al 


befindet sich bei $ea2e. 
Diskcontroller inaktivieren 
freien Schreibkanal suchen 
verzweige, wenn kein Kanal frei 
analstatus holen 

testen, ob Kanal inaktiv 
verzweige, wenn Kanal aktiv 
Befehlssekundäradresse 

Kommando isolieren 

und mit OPEN vergleichen 
verzweige, wenn OPEN 

sonst zurück zur Systemwarteschleife 
Byte vom Bus holen 
Diskcontroller wieder aktivieren 
Byte in Puffer schreiben 

und weitermachen 








Flags für Busbetrieb löschen; Bus zurücksetzen. 
Flags für Busbetrieb 
löschen 


18 


Bus zurücksetzen. 
Register für seriellen Bus 
löschen 





Daten vom schnellen Bus der 1571 holen und in den aktuellen 
Puffer schreiben. Die analoge Routine für den 1541-Modus 
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Bus auf Eingang schalten und zur Systemwarte- schleife 
zurückkehren. 

Bus auf Eingang für Empfang von Befehlen 

zurück zur Systemwartescleife; Ende 


8381 20 e9 85 
8384 20 81 85 








BURST-READ-Kommando. Diese Routine wird vom U0.Befehl 
aufgerufen und liest einen MFM-Sektor von der Diskette. 
Dieser Sektor kann direkt zum Computer übertragen, oder nur 
in den Puffer der Floppy gelesen werden; oder es können 
auch nur Pufferdaten übertragen werden - von einem Sektor, 
der schon früher gelesen wurde. 

Jobcode merken 

und noch einmal merken 

testen, ob die Diskette 

gewechselt wurde 
verzweige, wenn nein 
Nummer für '29, DISK ID MISMATCH' 
nächsten Befehl überspringen 

Nummer für '74, DRIVE NOT READY' 
Fehlernummer initialisieren 
Burst-Statusbyte auf Bus ausgeben 
wurde Job ordnungsgemäß ausgeführt? 
verzweige, wenn nein 
Ende 
Nummer der Fehlermeldung 
isolieren 

und mit Puffernummer 0 
ausgeben; Ende 








8394 4c e6 86 
83a0 20 3d c6 


83aa ad 03 02 


83af ad 04 02 


83ba 20 5e 86 


83be 20 e9 85 


83c9 20 £9 85 





Sektor von der Diskette lesen. 

Bus der 1571 auf Ausgang schalten 
Burst-Status testen; MFM-Diskette? 
verzweige, wenn nein 

sonst 

MFM-formatierten Sektor lesen 
GCR-Diskette initialisieren 
Diskcontroller aktivieren 
Befehlsbyte holen 

sollen nur Daten aus dem Puffer geholt werden? 
verzweige, wenn ja 

sonst viertes Zeichen aus Befehlsstring 
als Tracknummer setzen 

fünftes Zeichen 

als Sektornummr setzen 

als Puffernummer die 0 wählen 
Jobcode für Befehl holen 

und an Diskcontroller übergeben 
Job ausführen 

Diskcontroller inaktivieren 
Burst-Status setzen 

sollen Fehler ignoriert werden? 
verzweige, wenn ja 

sonst Rückmeldung des Jobs prüfen 
verzweige, wenn Fehler 
Burst-Statusbyte zum Computer 
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03 


85 


02 


Befehlsbyte; soll der Sektor gesendet werden? 
verzweige, wenn nein 

sonst Index setzen 

Byte aus Puffer holen 

und zum Computer 

senden 

nächstes Byte 

und weitermachen 

Zahl der zu lesenden Sektoren minus 1 
Ende, wenn alle Sektoren gelesen 

sonst Nummer des nächsten Sektors holen 
und nächsten Sektor lesen 

Diskcontroller aktivieren 

Kopf auf neuen Track positionieren; Ende 


86 
c6 


e9 

















BURST-WRITE-Befehl. Schreiben eines Sektors aus dem Puffer 
auf die Diskette (MFM oder GCR). 

Jobcode merken 

testen ‚ob die Diskette 

gewechselt wurde 

verzweige, wenn nein 

Nummer für '29, DISK ID MISMATCH' 
nächsten Befehl überspringen 

Nummer für '74, DRIVE NOT READY' 

setzen 

Befehlsbyte 

Fehlerflag 

setzen 

Burst-Status prüfen 

verzweige, wenn GCR-formatierte Diskette 
sonst 

MFM-Sektor schreiben; Ende 

GCR Diskette initialisieren 

soll nur Pufferinhalt geschrieben werden? 
verzweige, wenn ja 

sonst Diskcontroller inaktivieren 
Pufferindex setzen 

Port für seriellen Bus lesen 

CLOCK OUT-Leitung invertieren 

Status für serielles Schieberegister löschen 
Bus neu setzen 

Bus lesen 

verzweige, wenn kein ATN 

auf ATN-Signal prüfen 

wurde Byte im seriellen Schieberegister 
empfangen? 

verzweige, wenn nein 

Byte aus Register holen 

und in Puffer schreiben 

nächstes Byte 

und weitermachen 

CLOCK OUT-Leitung auf Hi setzen 
Diskcontroller aktivieren 

Befehlsbyte 

Daten nur in den Puffer schreiben? 
verzweige, wenn ja 

Befehlsbyte 

(Bit 3 des Befehlsbytes muß immer 0 sein!) 
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83 
02 


02 


$5844d 
546 
58381 
50203 
$06 
50204 
$07 
#500 
#590 
500,x 
s865e 


Seölce 
$85e9 
$85£9 
s86a0 
$81b2 


$3b 
58479 
#502 
58484 
50205 
58487 
s86le 
58412 
$838c 


verzweige unbedingt 

Byte für Ausgabe 

$8381 Burst-Statusbyte ausgeben; Ende 
viertes Zeichen aus Befehlsstring 

als Tracknummer setzen 

fünftes Zeichen aus Befehlsstring 

als Sektornummer setzen 

Index für Puffer 0 

Jobcode für Schreiben 

an Diskcontroller übergeben 

Job ausführen 

Diskcontroller inaktivieren 

seriellen Bus auf Ausgang 
Burst-Status setzen 

und zum Computer schicken 

auf Reaktion des Computers warten 
seriellen Bus auf Eingang schalten 
Diskcontroller aktivieren 

Befehlsbyte 

verzweige, wenn Fehler ignoriert werden sollen 
sonst Rückmeldung prüfen 

verzweige, wenn Fehler 

Anzahl der Sektoren minus 1 

Ende, wenn alle Sektoren geschrieben 
neue Sektornummer setzen 

und Sektor schreiben 

Diskstatus bereitstellen; Ende 
Diskcontroller aktivieren 

Kopf auf neuen Track positionieren; Ende 


848b 
848e 
8490 
8492 
8494 
8497 
8499 
849c 
849£ 
84al 
84a3 
84a5 
84a7 
84a9 
84dac 
8dae 
83b1 
83b2 
84b4A 


ad 
29 
d0 
a9 
8d 
a9 
20 
ae 
e0 
90 
a2 
86 
a9 
8d 
95 
20 
2c 
a2 
4c 


02 


18 


86 
01 


02 


86 


83 


lda 
and 
bne 
lda 
sta 
lda 
F3E 
ldx 
cpx 
bcec 
ldx 
stx 
lda 
sta 
sta 
jsr 
.byte 
ldx 
jmp 











NQUIRE-DISK-Befehl. Diese Routine initiali- siert eine 
beliebige Diskette im MFM oder GCR- Format, indem durch das 
Lesen eines Blockheaders das jeweilige Format festgestellt 
wird. Dieses Kommando ist nach jedem Diskettenwechsel 
aufzu- rufen, sonst ist ein 'DISK ID MISMATCH' Fehler die 
Folge des nächsten Disketten-Schreib- oder Lesezugriffs. 
drittes Zeichen aus Befehlsstring 

Drivenummer isolieren 

bei 1; 'DRIVE NOT READY' ausgeben 

Flag für Diskettenwechsel 

löschen 

und 

versuchen, einen MFM-Header zu lesen 

Rückmeldung prüfen 

Fehler? 

verzweige, wenn MFM-Header 

sonst Fehlermeldung 

löschen 

und versuchen, einen GCR-Header 

zu lesen 

Job an Diskcontroller 

Job ausführen; Rückmeldung für Diskstatus in X 

nächsten Befehl überspringen 

Nummer für '74, DRIVE NOT READY' 

Burst-Status zum Computer; Ende 
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02 


02 


86 





FORMAT-DISK-Befehl. Dieser Befehl formatiert eine Diskette 
im MFM oder im GCR-Format, je nach Angabe; allerdings ohne 
Directory. 

drittes Zeichen aus Befehlsstring 

Drivenummer isolieren 

Drive 1: '74, DRIVE NOT READY' ausgeben; Ende 

FM oder GCR-Format für Formatierung? 

verzweige, wenn GCR-Format 

sonst 

Diskette im MFM-Format formatieren 

GCR-Format: Fehlerflags 

löschen 
Drivestatus löschen 

fünftes Zeichen aus Befehlsstring 
als ID 1 merken 

sechstes Zeichen aus Befehlsstring 
als ID 2 merken 

alle Kanäle schließen 

Tracknummer 1 
setzen 
Flag für Rückmeldung 

setzen 

Diskette im 1571-Format formatieren 
Diskette im 1570-Format formatieren 
Rückmeldung nach X 

nächsten Befehl überspringen 

Nummer für '74, DRIVE NOT READY" 
Burst-Status für Ausgabe setzen 

und zum Computer; Ende 








84b7 

84b7 ad 
84ba 23 
84bc d0 
84be ad 
84cl 10 
84c3 a9 
84c5 4c 
84c8 a9 
84ca 85 
84cc 85 
84ce ad 
84dl 85 
84d3 ad 
84d6 85 
84d8 20 
84db a9 
84dd 85 
s4df a9 
84el 8d 
*] 84e420 
*0 84e420 
84e7 aa 
83e8 Ze 
83e9 a2 
84eb 20 
8dee 4c 
safl 

safl 78 
84f2 24 
8afı 10 
84f6 20 
84£9 a5 
84fb 85 
safd 4c 
8500 ae 
8503 eo 
8505 bo 
8507 a2 
8509 20 
850c a9 
850e 4c 
8511 ad 
8514 85 
8516 60 


3b 
0a 
ce 
3c 
46 
£9 
74 
04 
0a 
0e 
e9 
31 
c8 
03 
3c 


8l 


85 
02 


85 


el 
02 





s3b 
58500 
Selce 
$3c 
$46 
$S85£9 
50274 
#504 
s8511l 
#5$0e 
s85e9 
#531 
Scl1c8 
50203 
$3c 


SECTOR-INTERLEAVE-Befehl. Dieser Befehl holt einen Wert vom 
Computer oder sendet den Wert zum Computer, der den Abstand 
der Sek- toren beim Beschreiben angibt, da die Sektoren auf 
der Diskette nicht direkt hintereinander beschrieben 
werden. Ist dieser Wert bspw. 5, so wird auf einer Spur 
zuerst Sektor Null, dann Sektor 5, 10, 15 usw. beschrieben 
und ebenso werden sie wieder gelesen. 

Diskcontroller inaktivieren 

Befehlsbyte; soll Interleave neu gesetzt werden? 

verzweige, wenn nein 

Bus auf Ausgang schalten 

Sektorabstand (Interleave) 

holen und setzen 

Byte zum Computer; Ende 

Länge des Befehlsstrings 

größer gleich 4? 

verzweige, wenn ja 

Nummer für SYNTAX ERROR 

Burst-Status entsprechend setzen 

Nummer der Fehlermeldung 

'31, SYNTAX ERROR' ausgeben ;Ende 

viertes Zeichen aus Befehlsstring 

als neuen Sektorabstand setzen 

Ende 
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8517 QUERY-DISK-Befehl. Dieser Befehl erlaubt eine ziemlich 
genaue Analyse einer eingelegten Diskette, wobei die Floppy 
folgende Rückmeldungen bringt: 

- Burst-Status; war die Diskette GCR-formatiert, so ist 
dies die einzige Meldung, 

- Anzahl der Sektoren des jeweiligen Tracks, 

- Nummer des Tracks, der analysiert wurde, 

- kleinste Sektornummer dieses Tracks, 

- größte Sektornummer dieses Tracks, 

- Sektorabstand beim Beschreiben (Interleave). 























8517 20 8b 84 jsr 5848b INQUIRE-DISK aufrufen; Diskette initialisieren 
851la 24 5e bit $5e Burst-Status testen 

85lc 10 48 bpl 58566 Ende, wenn Diskette im GCR-Format 

85le a9 0d lda #504 sonst 

8520 20 e6 86 jsr 586e6 Sektorfolge des Tracks ermitteln 

8523 ae b0O 01 ldx $01b0 Rückmeldung 

8526 e0 02 cpx #502 Fehler aufgetren? 

8528 b0O 08 bes 58532 verzweige, wenn ja 

852a 20.10) .:89, jsr 58961 Nummer des kleinsten und größten Sektors holen 
8524 20 86 89 jsr 58986 Sektorabstand (Interleave) holen 

8530 8a txa und 

8531 48 pha merken 

8532 78 sei Diskcontroller inaktivieren 

8533 20 ce 81 jse seölce Bus auf Ausgang schalten 

8536 a5 5e lda S5e Burst-Statusbyte 

8538 85 46 sta 546 zum 

853a 20: £9 85 jse s85£9 Computer schicken 

853A ae b0O 01 ldx 501b0 Rückmeldung des Jobs 

8540 e0 02 cpx #502 Fehler aufgetreten? 

8542 b0O 23 bes 58567 verzweige, wenn ja 

8544 a5 97 lda 597 sonst Anzahl der Sektoren des Tracks 
8546 85 46 sta 546 zum 

8548 20. =E 85 jsr S85£9 Computer schicken 

854b a5 67 da 567 aktuelle Tracknummer 

8544 85 46 sta 546 zum 

854f ZOT SE 85 jsr S85£9 Computer schicken 

8552 a5 60 lda S60 kleinste Sektornummer des Tracks 

8554 85 46 sta 546 zum 

8556 20 £ 85 jsr S85£9 Computer schicken 

8559 a5 61 da s61 größte Sektornummer 

855b 85 46 sta 546 zum 

8554 20 £ 85 jsr $85£9 Computer schicken 

8560 68 pla Sektorabstand (Interleave) zurückholen 
8561 85 46 sta 546 und zum 

8563 20 £9 85 jsr S85£9 Computer schicken 

8566 60 rts Ende 

8567 68 pla Stack b Fehler wieder herstellen 

8568 4c 8c 83 jmp 5838c Fehlermeldung ausgeben; Ende 

856b INQUIRE-STATUS-Befehl. Diese Routine gibt den aktuellen 


Status an den Computer aus oder setzt einen vom Computer 
kommenden _ert als neuen Burst-Status fest. 

856b 24 3b bit S3b Befehlsbyte; soll Status neu gesetzt werden? 

8564 10 27 bpl 58596 verzweige, wenn nein 

856£f 24 3b bit S3b soll auf Diskettenwechsel geprüft werden? 
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8573 ad Od 18 


verzweige, wenn nein 

sonst Steuerport lesen 

und auf Diskettenwechsel prüfen 
verzweige, wenn kein Diskettenwechsel 
Burst-Statusbyte holen 

und Status isolieren 

Nummer für 'DISK ID MISMATCH' setzen 
und Burst-Statusbyte neu setzen... 


8582 20. ger Bi 


8589 20. <E2.85 


858e 84 Se 02 
8591 20: 52 81 


Burst-Statusbyte an den Computer ausgeben. 
Diskcontroller inaktivieren 

Bus auf Ausgang schalten 

Burst-Statusbyte holen 

und zum 

Computer schicken 

Flag für Feh ler 

löschen 

Bus wieder auf Eingang schalten 
Diskcontroller wieder aktivieren 





8594 58 
8595 60 
8596 


Burst-Statubyte mit ert vom Computer setzen. 
viertes Zeichen aus Befehlsstring 

als Status setzen 

Befehlsbyte: Diskettenwechsel löschen? 
verzweige, wenn nein 

Flag für Diskettenwechsel 

löschen 

Ende 


85b8 a8 
85b9 e9 01 
85bb 0a 


85c1 ac 06 02 





BACKUP-Befehl. In der 1571 nicht verwendet! 
Nummer für 'SYNTAX ERROR' 

Burst-Statusbyte setzen 

Nummer der Fehlermeldung 

'31, SYNTAX ERROR' ausgeben; Ende 


Kopf auf einen gewählten Track positionieren. 
Länge des Befehlsstrings 

kleiner 7? 

verzweige, wenn ja 

Tracknummer des letzten Jobs 

merken 

minus 1 

mal 2 

als Anzahl der Schritte für Steppermotor 
letzter Track auf zweiter Diskettenseite? 
Antwort merken 

siebtes Zeichen aus Befehlsstring 

als Zieltrack für Positionierung setzen 
minus 1 

setzen 

mit 35 vergleichen; Spur auf 2. Diskettenseite? 
Antwort in Bit 7 

vorherige Antwort zurückholen 

jetzige Antwort isolieren 

verzweige, wenn letzte Spur auf Seite 1 
verzweige, wenn jetzige Spur auf Seite 2 
letzte Spur auf Seite 2, neue auf Seite 1 
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$67 
#523 
$67 
$85e5 
$85e5 


$67 


neue Tracknummer 

plus 35 ergibt 

Trackäquivalent für die gleiche Seite 
$85e5 verzweige unbedingt (s.u.) 
verzweige 

neue Spur ist auf Seite 2 und muß auf 
Seite 1 umgerechnet werden, um das 
Äquivalent für die Kopfbewegung zu 
erhalten 

Kopf auf Track positionieren; Ende 
Ende 


Burst-Statusbyte für die Ausgae zum Computer vorbereiten. 
Fehlernummer merken 

Status holen 

Statusflags isolieren 

und mit Fehlernummer verknüpfen 

neuen Status setzen 

und für Ausgabe bereitmachen 

Ende 


40 


40 


Ein Byte im schnellen Busmodus zum Computer senden. Das 
Byte muß dabei in $46 enthalten seln. 
auf ATN-Signal prüfen 

Bus lesen 

und warten, bis 

konstanter Wert anliegt 

auf ATN prüfen 

$85£6 verzweige, wenn gesetzt 

mit Busflags verknüpfen 

und CLOCK invertieren 

verzweige, wenn CLOCK IN Hi ist 

Byte für Ausgabe 

ins serielle Schieberegister 

Flags für Busbetrieb 

CLOCK-Bit invertieren 

und setzen 

Flag für serielles Schieberegister 
testen 

warten, bis Byte ausgegeben wurde 
Ende 


46 


04 


02 


94 


02 


46 


50204 





Bei einem Befehl mit mehreren Sektoren wird hier die Nummer 
des darauffolgenden Sektors errechnet. 
Tracknummer aus Befehlsstring 

Track auf Seite 1 der Diskette? 
verzweige, wenn nein (Track auf Seite 0) 
sonst 35 abziehen 

und 'reinen' Track als Index nehmen 
Anzahl der Sektoren des Tracks holen 
und merken 

minus 1 gibt höchste Sektornummer 
setzen 

Flag für Addition löschen 

Sektornummer aus Befehlsstring 
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02 


plus Sektorabstand (Interleave) 
mit neuer Nummer vergleichen 
verzweige, wenn kleiner 

sonst neue Nummer abziehen 
verzweige, wenn gleich Null 
Flag setzen für Subtraktion 
Sektornummer minus 1 

nächsten Befehl überspringen 
maximale Sektornummer zurückholen 
merken 

Jobcode für Block lesen 





£9 


IE 


86 


Job ausführen; bei Fehler wird die Ausführung noch ein 
zweites Mal versucht. 

Puffernummer 

Prozessorstatus merken 

Diskcontroller aktivieren 

Job ausführen 

Fehler aufgetreten? 

verzweige, wenn nein 

sonst weiter versuchen 

Rückmeldung holen 

und merken 

Prozessorstatus holen: Controller inaktiv 
Ende 





00 


le 


le 


9% 


86 


le 


le 








LED am Laufwerk einschalten; Job ausführen; LED 


auszuführen. 

Puffernummer 

Prozessorstatus retten 
Diskcontroller inaktivieren 
Steuerport des Diskcontrollers 
LED-Bit setzen 

LED einschalten 

Diskcontroller aktivieren 

Job ausführen 

Fehler aufgetreten? 

verzweige, wenn nein 

sonst nochmal versuchen 
Diskcontroller inaktivieren 
Steuerport des Diskcontrollers 
LED-Bit löschen 

LED ausschalten 

Rückmeldung holen 

und merken 

Prozessorstatus zurückholen 
Ende 








02 


02 


Einen weiteren Versuch starten, einen Job nach 
aufgetretenem Fehler noch auszuführen. 

Flag für Job 

setzen 

Puffernummer 

drittes Zeichen aus Befehlsstring (Jobcode) 
holen und setzen 





ausschalten. Bei Fehler wird noch öfter versucht, den Job 




















224 C Das dokumentierte ROM-Listing der 1570/71 

868f 8d 4d 02 sta s024d setzen 

8692 9A 5b 02 sta 5025b,x setzen 

8695 85 00 sta s00 an Diskcontroller übergeben 

8697 20 be 9£ jsr SI£fbE Job ausführen 

869a 4c 99 d5 jmp 54599 und Ende der Ausführung abwarten; Ende 

8694 Routine wartet auf Reaktion des Computers. 

869A 20 59 ea jsr Sea59 auf ATN-Signal prüfen 

86a0 ad 00 18 lda s1800 Bus lesen 

86a3 cd 00 18 cmp 51800 auf konstanten Wert 

8646 do £8 bne s86a0 warten 

8648 29. £2 and #S£ff auf ATN-Leitung testen 

86aa so: 1 bmi S869A verzweige, wenn AIN aktiv 

86ac 45 37 eor 537 sonst mit Flags verknüpfen 

86ae 29 04 and #504 CLOCK-Bit isolieren 

86b0 f0O ee beq $86a0 verzweige, wenn CLOCK IN gleich Hi ist 

86b2 a5 37 lda 537 Flags für Busbetrieb 

86b4A 49 04 eor #504 CLOCK-Bit invertieren 

86b6 85% Hai sta $37 und Flags wieder setzen 

86b8 60 rts Ende 

8669 Bytewerte für die Befehlsausführung in der 
Hauptsteuerroutine für Diskettenzugriffe in der 1571. Diese 
Bytes bestehen aus Bitmustern mit den folgenden Aufgaben 
(Bit=1 heißt 'wird ausgeführt'): 
Bit 0 - Ende ohne Fehlerbehandlung 
Bit 1 - Kopf anhand jetziger Position setzen 
Bit 2 - Warten, bis Drive bereit für Zugriff 
Bit 3 - Kopf auf gewünschten Track positionieren 
Bit 4 - Drivemotor anlaufen lassen 
Bit 5 - Auf Schreibschutz testen 
Bit 6 - Sektorabstand/Sektornummer holen 
Bit 7 - Startsektor/Tracknummer holen 

8669 00 00000000 

86ba 15 %00010101 

86bb 00 00000000 

86bc 00 00000000 

86bd 00 00000000 

86be 15 %00010101 

86bf 00 00000000 

86c0 bc %10111100 

86c1 34 00110100 

86c2 de <11011110 

86c3 fe <11111110 

86c4 dc %11011100 

86c5 15 %00010101 

86c6 15 %00010101 

86c7 00 00000000 

86c8 Adressen der Routinen, die von der Hauptsteuerroutine 
aufgerufen werden. 

86c8 ec 89 $89ec - RESET-Routine 

86ca ef 89 $S89ef - BUMP; Kopf auf Track Null setzen 

86cc fd 89 s89fd - Schreibschutz prüfen 

86ce 03 8a $8a03 - Parameter für Track übernehmen 

86dO 08 8a $8a08 - (RTS) 

86d2 09 8a $8a09 - Blockheader lesen; SEEK 
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$87ba - (RTS) 
$8a86 - Track im MFM-Format formatieren 
$8c57 - Diskette im MFM-Format formatieren 
$8d67 - MFM-Sektor lesen 
$S8df6 - MFEM-Sektor schreiben 
$8ec6 - MFM-Sektor verifizieren 
S8f18 - MFM-Sektor auf Füllbyte verifizieren 
S8fSf - MFM-Sektorfolge ermitteln 

M 





FM-Diskette initialisieren 








86 


02 


02 


le 


87 


87 


87 
89 


89 


sei 
pha 
tax 
lda 
sta 
lda 
ora 
sta 
asl 
bec 
lda 
sta 
asl 
bec 
lda 
sta 
asl 
bec 
lda 
and 
bne 
lda 
ora 
sta 
ldx 
stx 
asl 
bec 
jsr 
asl 
bec 
ISE 
asl 
bec 
jsr 
jsr 
asl 
bec 
jr 
lda 
pla 
asl 
tax 

















586b9,x 
$1b 
$5e 
#580 
$5e 
$1b 
S86fd 
50203 
$67 
$1b 
58706 
50204 
$43 
$1b 
5871b 
$1c00 
#510 
$871b 
$3b 
#508 
$3b 
#508 
$46 
$1b 
58722 
58794 
$1b 
58729 
587ba 
$1b 
58730 
587b0 
58954 
$1b 
5873a 
5892a 
#500 


Zentrale Steuerroutine des MFM-Betriebs der 1571. Diese 
Routine wird mit einem Wert im Akku angesprungen und holt 
je nach Bedarf die wichtigsten Parameter und macht das 
Laufwerk bereit. 

Diskcontroller inaktivieren 

Parameterwert merken 

und als Index 

Bitmuster für Drivebetrieb holen 

und merken 
Burst-Statusbyte lesen 





Flag für MFM-Betrie 
und Status wieder a 
siebtes Steuerbit p 
verzweige, wenn nic 


bsart setzen 
bspeichern 
rüfen 

ht gesetzt 


sonst Tracknummer oder Startsektor holen 
und setzen 
sechstes Steuerbit prüfen 

verzweige, wenn nicht gesetzt 
Sektorabstand oder Sektornummer holen 
und setzen 
fünftes Steuerkit prüfen 





verzweige, wenn nicht gesetzt 
auf Schreibschutz 

testen 

verzweige, wenn kein Schreibschutz 
sonst 

Flag für Schreibschutz 

setzen 

und nochmal 

setzen 

viertes Steuerbit prüfen 
verzweige, wenn nicht gesetzt 


sonst Drivemotor anlaufen lassen 


drittes Steuerbit 
verzweige, wenn ni 
Kopf auf Track pos 
zweites Steuerbit 


prüfen 
cht gesetzt 
itionieren 
prüfen 





verzweige, wenn nicht gesetzt 

warten, bis Drive bereit für Zugriff 
Hardware für Diskseite setzen 

erstes Steuerbit prüfen 

verzweige, wenn nicht gesetzt 
Sektorheader lesen; Kopf positionieren 
löschen (unsinnig) 

Steuerbyte zurückholen 

mal 2 

als Index in Adressentabelle 
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86 
86 
87 


29 
01 


83 


586c8,x 
s6f 
586c9,x 
s70 
s8761 
SfY8E 
$01b0 
#502 


1b 
$875£ 


s8760 
$838c 


Adresse Lo für Routine 
setzen 
Adresse Hi für Routine 
setzen 
Routine ausführen 

Motor nach Verzögerung abschalten 
Rückmeldung des letzten Jobs 
Fehler aufgetreten? 

Antwort merken 

nulltes Steuerbit prüfen 
verzweige, wenn gesetzt 

sonst Fehlerstatus zurückholen 
verzweige, wenn kein Fehler 

sonst Fehler ausgeben; Ende 
Fehlerstatus holen 

Ende 








875f 28 
8760 60 
8761 


Routine ausführen, deren Startadresse in $6f£/70 
Sprung auf Routine 


8764 
8764 08 
8765 78 


lc 


le 


Drivemotor einschalten. 
Prozessorstatus retten 
Diskcontroller inaktivieren 
Steuerport des Diskcontrollers 
otor-Bit setzen 

otor einschalten 

Controller aktivieren 

Ende 


876e 28 
876f 60 
8770 

8770 08 
8771 78 


8772 ad 00 
8775 29. EB 
8777 8d 00 


le 


le 


Drivemotor ausschalten. 
Prozessorstatus retten 
Diskcontroller inaktivieren 
Steuerport des Diskcontrollers 
otor-Bit löschen 

Drivemotor ausschalten 
Prozessorstatus zurückholen 
Ende 


877a 28 
877b 60 
877c 

877c 08 
8774 78 


16 


le 


LED am Laufwerk einschalten. 
Prozessorstatus retten 
Diskcontroller inaktivieren 
Steuerport des Diskcontrollers 
LED-Bit setzen 

LED einschalten 
Prozessorstatus zurückholen 
Ende 


8786 28 
8787 60 
8788 

8788 08 
8789 78 


878a ad 00 
8784 29 
878f 8d 00 


lc 


Te 





LED am Laufwerk ausschalten. 
Prozessorstatus retten 
Diskcontroller inaktivieren 
Steuerport des Diskcontrollers 
LED-Bit löschen 

LED ausschalten 

Controller aktivieren 

Ende 








steht. 
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8794 Drivemotor einschalten und Werte für Verzöge- rung beim 
Hochlaufen setzen. 

8794 08 php Prozessorstatus retten 

8795 78 sei Diskcontroller inaktivieren 

8796 a5 20 lda 520 Drivestatus 

8798 c9 20 cmp 520 Drivemotor an? 

879a £f0O 0e beq $87aa verzweige, wenn ja 

879c ad 02 02 lda 50202 Drivenummer aus Befehlsstring 

879£ 29 01 and sol isolieren 

87al 85 3e sta S3e und setzen 

87a3 20 64 87 jsr 58764 Drivemotor einschalten 

87a6 a9 a0 lda Sa0 Flag für Motor an aber noch nicht bereit 

87a8 85 20 sta 520 setzen 

87aa a9 32 lda 532 Verzögerungszähler für Hochlaufzeit des Motors 

87ac 85 48 sta 548 setzen 

87ae 28 plp Prozessorstatus zurückholen 

87af 60 rts Ende 

87b0 Warten, bis das Drive bereit ist. 

87b0 08 php Prozessorstatus retten 

87b1 58 ei: Diskcontroller aktivieren 

87b2 a5 20 lda 520 Flags für Drivestatus 

87b4 c9 20 cmp #520 otor schon an und bereit? 

87b6 a0 fa bne 587b2 warten, wenn nein 

87b8 28 plp Prozessorstatus zurückholen 

87b9 60 rts Ende 

87ba Kopf auf gewählten Track positionieren. 

87ba 08 php Prozessorstatus retten 

87bb 58 cli Diskcontroller aktivieren 

87bc a5 67 lda 567 neue Tracknummer 

87be 0a asl mal 2 

87b£ c5 64 cmp 564 gleich Anzahl der berechneten Steps? 

87c1 fo la beq s87dd verzweige, wenn ja 

87c3 a5 67 lda 567 Tracknurrvner 

87c5 0a asl mal 2 

87c6 c5 64 cmp 564 gleich Anzahl der berechneten Steps? 

87c8 £fO 0e beq 58748 verzweige, wenn ja 

87ca bo 06 bes 587d2 verzweige, wenn größer 

8T7cc 20 e7 87 jst $87e7 einen Step nach außen 

8T7c£ 4c c3 87 jmp 587c3 weiter... 

87d2 20 df 87 jsr S87df einen Step nach innen 

87d5 4c c3 87 jmp $587c3 weiter... 

8748 a0 12 ldy #512 13 ms Verzögerung 

87da 20 29 88 jsr 58829 abwarten 

87dd 28 plp Prozessorstatus zurückholen 

87de 60 rts Ende 

8T7df Kopf einen Step nach innen bewegen. 

87daf a5 64 lda 564 Anzahl der Steps 

87el 18 ele vermindern 

87e2 69 01 adc #501 und wieder 

87e4 4c 14 88 jmp 58814 abspeichern; Kopf bewegen 

87e7 Kopf einen Step nach außen bewegen (Richtung Track 0). 


87e7 a0 63 ldy #563 99 Schleifendurchgänge als Zeit für einen Step 
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87e9 ad 0£ 18 lda S180£ Steuerport lesen 

87ec sa ror Bit für Nullanschlag ins Carry 

87ed 08 php und merken 

87ee ad 0£f 18 lda S180£ Steuerport lesen 

87£l sa ror Bit für Nullanschlag 

87£2 6a ror nach Bit 7 schieben 

87£3 28 plp vorheriger Zustand 

87£4 29 80 and #580 neuen Zustand testen 

87£6 90 04 bcec S8Tfc verzweige, wenn beim 1. Test Spur 0 erreicht 
87£8 10 15 bpl S880£f verzweige, wenn beim 2. Test Spur 0 auch n.err. 
87fa 30 02 bmi s87fe unbedingter Sprung 

87£c 30 11 bmi S880£ verzweige, wenn Spur 0 in beiden Versuchen err. 
87fe 88 dey sonst Zähler vermindern und weiter prüfen 
sıff d0 e8 bne 587e9 während sich der Kopf bewegt 

8801 b0O 0c bcs S880f verzweige, wenn Spur 0 nicht erreicht 
8803 ad 00 Ic lda S1c00 Steuerport für Diskcontroller 

8806 293,03 and #503 Bits für Steppermotor isolieren 

8808 d0: 95 bne S880f verzweige, wenn Steppermotor läuft 
880a a9 00 lda #500 sonst Zahl der Steps 

880c 85 64 sta 564 löschen 

8830e 60 rts Ende 

880£f a5 64 lda 564 Zahl der Steps 

ssll 38 sec minus 1 

8812 e9 01 sbc #501 rechnen und wieder 

8814 85 64 sta 564 setzen 

8816 29 03 and #503 Ansteuerung für Steppermotor herstellen 
8818 85 6f£f sta Ss6£f und merken 

88la 08 php Prozessorstatus merken 

8831b 78 sei Diskcontroller inaktivieren 

8slc ad 00 Ic lda S1c00 Steuerport für Diskcontroller 

self 29 Eee and #S$£c Bits für Stepper ausblenden 

8821 05 6£f ora Ss6£f neue Ansteuerung setzen 

8823 8d 00 Ic sta S1c00 und Motor steuern 

8826 28 plp Prozessorstatus zurückholen 

*1 8827a0 06 ldy #506 ca. 8 ms Verzögerung 

*0 8827a0 08 ldy #508 ca. 10 ms Verzögerung 

8829 20 30 88 jsr 58830 abwarten 

882c 88 dey Zähler vermindern 

8832d do fa bne 58829 und warten 

882£ 60 rts Ende 

8830 Verzögerung von ca. 1.3 ms abwarten. 
8830 a2 02 ldx #502 zähler Hi 

8832 a9 00 lda #500 Zähler Lo 

8834 cs 91 adc #501 zähler Lo plus 1 

8836 a0. £e bne 58834 256 mal 

8838 ca dex Zähler Hi minus 1 

8839 do £9 bne 58834 und weitermachen 

883b 60 rts Ende 

883c Status des MFM-Controllers (WD 1770) holen. 
883c ea nop Pause 

883d ad 00 20 lda 52000 Status holen 

8840 4a lsr Bits 3 und 4 

8841 4a lsr an die Positionen 1 und 2 

8842 4a lsr schieben und 

8843 29 03 and #503 isolieren 


8845 aa tax dann nach X 
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82 
b0 


8a 
01 


$8a82,x 
501b0 


entsprechende Fehlermeldung holen 
und setzen 

Fehlernummer merken 

Ende 


87 


20 


Kommando an MFM-Controller übergeben. 
Kommando merken 

lED am laufwerk einschalten 

Kommando zurückholen 

und an Controller übergeben 

Wert für Test, ob Controller aktiv 
Pause 
testen, ob Controller den Befehl ausführt 
verzweige, wenn nein; warten 
sonst 45 Taktzyklen abwarten; Ende 





Ausführung eines Befehls des MFM-ControLLers abwarten. 


LED am laufwerk ausschalten 
Wert für Test 

ist der Controller noch beschäftigt? 
warten, wenn ja 

Ende 








02 





Sektorabstand (Interleave) addiert wird. 
kleinste Sektornummer eines Tracks 
minus 1 

da Zählung von Null beginnt 

Wert merken 

Sektornummer aus Befehlsstring 

und 

Sektorabstand addieren 

mit größter Sektornummer des Tracks vergleichen 
verzweige, wenn gleich 

verzweige, wenn kleiner 

sonst größte Nummer abziehen 

und 

Offset der Sektorverschiebung addieren 
neuen Sektor merken 

Ende 





02 


02 


02 


02 
02 
02 
02 


Sektortabelle für Formatieren (MFM) erstellen. 
Index setzen 

und setzen 

Startsektor holen 

und auf O0 bis 63 

begrenzen 

und setzen 

Sektornummer merken 

Nummer des letzten Sektors 
ebenfalls merken 
Sektor-Interleave 
Sektornummer holen 

und in Tabelle schreiben 
Sektornummer erhöhen 

Anzahl der Sektoren erhöhen 


Nummer des folgenden Sektors berechnen, indem der gültige 
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04 


20 
0c 
07 
la 
12 
07 
0d 
04 


07 


03 


07 
c8 


02 


02 


02 


02 


02 


02 


02 


02 


02 


02 
02 


tya 
elc 
adc 
tay 
cpy 
bes 
cpy 
bec 
bne 
cpx 
beq 
dec 
pla 
sta 
pla 
sta 
sec 
rts 
tya 
sec 
sbc 
tay 
cpx 
bne 
stx 
dex 
txa 
clc 
adc 
sta 
cmp 
bec 
pla 
sta 
pla 
sta 


50204 


#520 

s88be 
50207 
sesdl 
s88ch 
50207 
s88ch 
50204 


50207 


50203 


Sektorposition 

holen und 

Sektorabstand (Interleave) addieren 

neuer Sektor 

kleiner als 32? 

verzweige, wenn nein 

kleiner als der letzte Sektor? 

verzweige, wenn ja 

verzweige, wenn ungleich dem letzten Sektor 
Anzahl der Sektoren erreicht? 

verzweige, wenn ja 

Sektor-Interleave minus 1 

Nummer des letzten Sektors holen 

und wieder merken 

kleinste Sektornummer zurückholen 

und wieder merken 

Fehlerflag setzen 

Ende 
Zeiger auf aktuellen Sektor 
auf definierten 

Sektorbereich begrenzen 

und wieder übernehmen 

schon letzter Sektor erreicht? 
verzweige, wenn nein 

sonst Sektornummer merken 
minus 
ergibt 
plus der Nummer 

des kleinsten Sektors 

die Nummer des größten Sektors 
mit kleinster Nummer vergleichen 
verzweige, wenn kleiner 

höchste Sektornummer zurückholen 
und wieder setzen 

kleinste Nummer zurückholen 

und wieder setzen 
Sektor-/nterleave minus 1 

Flag für alles ok 

Ende 





01 


02 
20 
sf 
01 


02 





s24 
$020b,y 
$2002 
s8fl8 
$01bO 
#502 
$8915 
s24 
s24 
50207 
sasf8 


Verify eines MFM-Sektors beim Formatieren. Diese Routine 
kontrolliert die geschriebenen Sektoren auf einwandfreien 
leerinhalt. 

Tracknummer beim Formatieren 

merken 

Zähler für Sektornummer 

setzen 

Zähler holen 

Sektornummer aus Tabelle holen 

und an Controller 

Sektor auf leerinhalt überprüfen 

Rückmeldung 

Fehler aufgetreten? 

verzweige, wenn ja 

sonst Zähler für Sektoren erhöhen 

und Index holen 

schon letzter Sektor erreicht? 

weitermachen, wenn nein 
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Flag für alles ok setzen 

nächsten Befehl überspringen 

Flag für Fehler setzen 

aktuelle Tracknummer bei Formatieren wieder 
setzen 

Ende 


8913 18 

8914 24 

8915 38 

8916 68 

8917 8d b0O 01 
89la 60 

891b 


Tracknummer aus Befehlszeile beim Formatieren holen. 
Länge des Befehlsstrings 

kleiner 7? 

verzweige, wenn ja 

sonst Tracknummer holen 

und setzen 

Kopf positionieren; Ende 


892a ad b0O 01 


892e 20: -27, 88 
8931 ae b0O 01 





8938 20 ef 89 
893b 20 27 8a 
893e ae b0O 01 


894c 20 ba 87 


Versuch, einen MFM-Sektorheader zu lesen; bei Mißerfolg 
wird es ein zweites Mal versucht. 
Rückmeldung 

merken 

Sektorheader lesen 

Rückmeldung 

Feh ler? 

verzweige, wenn nein 

Kopf neu positionieren 

Lesen noch einmal versuchen 
Rückmeldung prüfen 

Fehler? 

verzweige, wenn ja 

sonst Tracknummer holen 

mal 2 

mit Anzahl der Schritte vergleichen 
verzweige, wenn gleich 

Kopf wieder positionieren 
Rückmeldung 

wieder setzen 

Ende 








894f 68 

8950 8d b0O 01 
8953 60 

8954 

8954 08 

8955 78 


895c zu, 23'393 


Hardware der Floppy für Diskettenseite 0 oder 1 
entsprechend $3b setzen. 

Prozessorstatus retten 

Diskcontroller inaktivieren 

Befehlsbyte holen 

Diskseite isolieren 

gleich Seite 1? 

Hardware auf die entsprechende Seite einstellen 
Controller aktivieren 

Ende 





895f 28 
8960 60 
8961 


8966 d9 0b 02 


896b b9 0b 02 


ielKer 

.byte $24 
sec 

pla 

sta 501b0 
rts 

lda 50274 
cmp #507 
bee s891la 
lda 50206 
sta 567 
jmp 587ba 
lda 501b0 
pha 

jsr $8a27 
ldx 501b0 
ehr #502 
bee $8945 
jsr S89ef 
jsr $8a27 
ldx 501b0 
cpx #502 
bes S8Y4£ 
lda 567 
asl 

cmp 564 
beq SEI4£f 
jsr 587ba 
pla 

sta 501b0 
rts 

php 

sei 

lda S3b 
and #$10 
cmp #S10 
jsr s93£3 
plp 

rts 

ldy a1 
dey 

lda #S£ff 
cmp 5020b,y 
bec s896€ 


lda $020b,y 


Sektortabelle nach kleinster und größter Sek- tornummer 
durchsuchen. 
Anzahl der Sektoren pro Track 
minus 1 
maximal möglichen Wert mit 

Tabelle vergleichen 

verzweige, wenn Tabellenwert kleiner 
Tabellenwert laden 

Zähler minus 1 





232 C Das dokumentierte ROM-Listing der 1570/71 

















896£f 10 £5 bpl 58966 weitermachen, bis alles geprüft 

8971 85 60 sta S60 kleinste Nummer merken 

8973 a4 97 ldy 597 Anzahl der Sektoren 

8975 88 dey minus 1 

8976 a9 00 lda #500 kleinstmöglicher Zählwert 

8978 d9 0b 02 cmp 5020b,y mit Tabellenwert vergleichen 

897b b0O 03 bcs 58980 verzweige, wenn Tabellenwert größer 

897A b9 0b 02 lda 5020b,y Tabellenwert laden 

8980 88 dey Zähler minus 1 

8981 10 £5 bpl 58978 weitermachen, bis alles geprüft 

8983 3. “al sta s61 größten Wert merken 

8985 60 rts Ende 

8986 Abstände der Sektoren beim Schreiben und lesen (Interleave) 
aus der Sektorfolge berechnen. 

8986 a6 97 ldx 597 Anzahl der Sektoren 

8988 a0 00 ldy #500 Index setzen 

898a b9 0b 02 lda $S020b,y Sektornummer holen 

898dA c5 60 cmp S60 mit kleinster Nummer vergleichen 

898£ £0 05 beq 58996 verzweige, wenn gleich 

8991 c8 iny nächster Wert 

8992 c4 97 cpy 597 schon alles geprüft? 

8994 a0 f£4 bne 5898a weitermachen, wenn nein 

8996 8a 5£ sty Ss5£f Index des kleinsten Sektors merken 

8998 a5 60 lda S60 kleinste Sektornummer 

899a 18 cLc plus 1 

899b 69. 81 adc #501 ergibt 

899d 85 46 sta 546 die Nummer des nächsten Sektors 

899£ a2 ££ ldx #S£f£ Zähler für Maximalwert 

89al b9 0b 02 lda $S020b,y Sektornummer holen 

89a4 c5 46 cmp 546 mit zweitem Sektor vergleichen 

89a6 £f0 0a beq 589b2 verzweige, wenn gleich 

89a8 e8 inx Zähler erhöhen 

8949 c8 iny Zeiger auf nächsten Wert 

89aa c4 97 cpy 597 schon alles geprüft? 

89ac d0 £3 bne 589al weitermachen, wenn nein 

89ae a0 00 ldy #500 Zeiger löschen 

89b0 £f0 ef beq s89al unbedingter Sprung 

89b2 60 rts Ende 

89b3 FM-Controller auf eingelegte Diskette einstel- len und auf 
einwandfreien Betrieb prüfen. 

89b3 a5 6£ lda Ss6£ Zwischenspeicher 

89b5 48 pha merken 

89b6 08 php Prozessorstatus merken 

89b7 78 sei Diskcontroller inaktivieren 

89b8 ad 01 20 lda 52001 'alte' Tracknummer 

89bb 8d 03 20 sta 52003 neu übernehmen 

89be a9 18 lda 18 Kommando 'Track suchen" 

89c0 20 4e 88 jsr $884e an Controller 

89c3 20 61 88 ISE s8861 Ausführung abwarten 

89c6 a2 00 1dx s00 Zähler für Zahl der 

89c8 a0 80 ldy S80 Versuche auf 32768 setzen 

89ca ad 00 20 lda 52000 Controller-Status lesen 

89cd 29- 02 and 502 Indexloch-lED isolieren 

8Ick 83 SE sta Ss6£f und merken 

89dl ad 00 20 lda 52000 Controller-Status lesen 

8944 29 02 and 502 Indexloch-lED-Bit 
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6£ 
04 


e7 


£0 


ed 


89 


auf Änderung prüfen 
verzweige, wenn keine Änderung 
Prozessorstatus zurückholen 
Flag für ok setzen; Ende 
Zähler vermindern 

und weitersuchen 

Zähler Hi vermindern 

und 32768 mal versuchen 
Prozessorstatus zurückholen 
Flag für Fehler setzen 
nächsten Befehl überspringen 
Flag für ok setzen 
Zwischenspeicher wieder holen 
und setzen 

Ende 


Track 0 an Diskcontroller und Kopf auf Spur 0 positionieren 


(BUMP). 

Zahl der Steps für weites Rückfahren 
setzen 

Track 0 

an MFM-Controller 

und für Kopfpositionierung abspeichern 
Kopf positionieren; Ende 


Schreibschutzlichtschranke abfragen. 
Steuerport des Diskcontrollers 
Schreibschutzlichtschranke prüfen 
Ende 


der Steps und Y den Zieltrack ent- halten. 
Zieltrack setzen 

Anzahl der Steps setzen 

Ende 


Ende 


8a 
8a 


01 


Header des nächsten Sektors für INQUIRE DISK lesen. 
Kopf auf Track 0 positionieren 
Controller setzen; Indexloch abwarten 
verzweige, wenn Fehler 

Blockheader lesen 

Anzahl der Sektoren pro Track holen 
und setzen 

und setzen als größte Sektornummer 
kleinste Sektornummer auf 1 

festlegen 

Ende 

Nummer für "INDEX NOT FOUND' 

als Rückmeldung 

unbedingter Sprung; Ende 





Parameter für Kopfpositionierung setzen; X muß die Anzahl 
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8a29 8d 71 02 


8a30 20 4e 88 


8a37 ad 00 20 


8a4dl ad 03 20 


Sada 20 61 88 
Sadd 20 3c 88 





8a5a ba 72 8a 
8asd 8d 71 02 
8a60 bd 76 8a 


8a69 0d 50 01 
8a6c ld 7a 8a 














FM-Sektorheader lesen. 
vorbesetzen 


Kommando Header lesen 
an MFM-Controller 
Pufferindex löschen 


Controller-Status lesen 
und Flags isolieren 
Busy-Flag ins Carry 








Byte vom Controller holen 
und abspeichern 

nächstes Byte 

Anzahl minus 1 

und weitermachen 


Anzahl der Bytes pro Sektor 


Zahl der Bytes im Sektorheader 


warten, bis Kommando beendet 


Rückmeldung holen 


Tracknummer des Headers holen 


mal 2 
als Stepperwert 


verzweige, wenn Kommando beendet 
sonst verzweige, wenn Indexloch unterbrochen 


Kennzeichen für Sektor länge holen 


auf 0 bis 3 begrenzen 
und als Index 


und Anzahl der Blöcke pro Sektor setzen 


zugehörige Zahl der Bytes pro Sektorblock 


setzen 


Anzahl der Blöcke pro Sektor 


setzen 
Burst-Status 


löschen bis auf das MFM-Flag 


neuen Status bilden 

und Sektorgröße ergänzen 
Status setzen 

Ende 


Anzahl der Bytes pro Sektor-Block. 


128 Bytes/Sektor 
256 Bytes/Sektor 
512 Bytes/Sektor 
1024 Bytes/Sektor 


Anzahl der Blöcke pro MFM-Sektor. 


128 Bytes = 1 Block mit 
256 Bytes = 1 Block mit 
512 Bytes = 2 Blöcke mit 
1024 Bytes = 4 Blöcke mit 


pro 
pro 
pro 
pro 


Sektor 
Sektor 
Sektor 
Sektor 


Kennzeichen der Sektorlänge für Burst-Status. 


128 Bytes pro Sektor 
256 Bytes pro Sektor 
512 Bytes pro Sektor 
1024 Bytes pro Sektor 
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8a7e Anzahl der Sektoren eines Tracks. 

Sale la 26 mal 128 Byte Sektoren 

8a7f 10 16 mal 256 Byte Sektoren 

8a80 09 9 mal 512 Byte Sektoren 

8a8l 05 5 mal 1024 Byte Sektoren 

8a82 Nummern für den MFM-Fehlerstatus. 

8a82 01 'oK' 

8483 09 'HEADER BLOCK CHECKSUM ERRCR' 

8484 02 'SECTOR NOT FOUND" 

8485 03 'NO ADDRESS MARK' 

8a86 Routine formatiert eine ganze Spur der Diskette im MFM- 
Format mit den gegebenen Parametern. 

8a86 a9 £8 lda sf8 Kommando "Track schreiben' 

8a88 20 4e 88 SE s884e an den MFM-Controller übergeben 

8asb 24 3b bit S3b Index-Adressmarke geschrieben erden? 

8add 50 62 bvc S8afl verzweige, wenn nein 

8asf a2 50 ldx 550 sonst Anzahl der Bytes für Index-Start setzen 

8a9l ad 00 20 lda 52000 Controller-Status holen 

8a94 29, 03 and 503 Flags prüfen 

8a96 4a lsr Busy-Flag testen 

8497 90 60 bec Ss8af9 verzweige, enn Kommando schon beendet 

8499 £0 £6 beq $58a91 verzweige, enn Controller noch nicht bereit 

8a9b a9 4e lda S4e Wert für Pre-Index 1 

8ayd 8d 03 20 sta 52003 auf Diskette schreiben 

Saal ca dex und zwar 

Saal d0 ee bne s8a91 80 mal 

8aa3 a2 0c ldx s0c Zahl der Lückenbytes setzen (12) 

8aa5 ad 00 20 lda 52000 Controller-Status holen 

8aa8 29.903 and 503 Flags isolieren 

Saaa 4a lsr Busy-Flag testen 

Saab 90 4c beö $8afy9 verzweige, wenn Kommando schon beendet 

Saad £0 £6 beq $8aa5 verzweige, wenn Controller noch nicht bereit 

Saaf a9 00 lda 500 Byte für Pre-Index 2 

8abl 8d 03 20 sta 52003 auf Diskette schreiben 

8ab4 ca dex und zwar 

8ab5 d0 ee bne S8aa5 12 mal 

8ab7 a2 03 ldx 503 Zähler für 3 Bytes setzen 

8ab9 ad 00 20 lda 52000 Controller-Status holen 

8abc 29.03 and 503 Flags isolieren 

Sabe 4a lsr Busy-Flag testen 

Sabf 90 38 bec S8af verzweige, wenn Kommando schon beendet 

8acl £0 £6 beq $8ab9I verzweige, wenn Controller noch nicht bereit 

8ac3 a9 £6 lda S£6 Taktbyte $c2 

8ac5 8d 03 20 sta 52003 auf Diskette schreiben 

8ac8 ca dex und zwar 

8ac9 d0 ee bne $8ab9 3 mal 

Sacb ad 00 20 lda 52000 Controller-Status holen 

8ace 29.03 and #503 Flags i sol i eren 

8ad0 4a lsr Busy-Flag testen 

Sadl 90 26 bec S8af verzweige, wenn Kommando schon beendet 

8ad3 £0 £6 beq S8ach verzweige, wenn Controller noch nicht bereit 

8ad5 a9 £c lda #S£c Byte für Index-Adressmarke 

8ad7 8d 03 20 sta 52003 auf Diskette schreiben 

Sada a2 32 ldx #532 und 





Sadc ea nop mit 2 Taktzyklen Verzögerug 
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oo © © 0 00 O0 CD MO CD 00 00 00 00 00 CD 00 CD 00 CD CO 00 CD 00 00 CD CD CO CD 00 00 00 00 00 00 00 





20 


20 


20 


20 


20 


20 


20 


20 


20 


20 
20 


01 
20 
20 


lda 
and 
lsr 
bcec 
beq 
lda 
sta 
dex 
bne 








s2000 
#503 


S8af9 
S8add 
#S4e 

52003 


Ssadd 
$8b05 


$3c 
52000 
$03 


$8b23 
$8af3 
S4e 

52003 


S8af3 
sol 


$0c 
52000 
$03 


$8b23 
s8b09 
s00 

$2003 


s8b09 
$03 
s2000 
$03 


s8bT7c 
s8sbld 
S£5 

52003 








s8sbld 
s2000 
#503 


$8b7c 
S8b2f 
#Sfe 
52003 
52000 
#503 


s8b7c 
s8b3e 
$01b0 
52003 
s2000 


Controller-Status holen 

Flags i sol i eren 

Busy-Flag prüfen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Byte für Post-Index 

auf Diskette schreiben 

und zwar 

50 mal 

unbedingter Sprung 


Zähler auf 60 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Füllbyte für Trackvorspann 

auf Diskette schreiben 

und zwar 

60 mal 

Zähler für Sektoren setzen 


Zähler auf 12 

Controller-Status holen 

Flags isolieren 

Busy-Flag isolieren 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Byte für Sektorvorspann 

auf Diskette schreiben 

und zwar 

12 mal 

Zähler auf 3 

Controller-Status 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Taktbyte Sal 

auf Diskette schreiben 

und zwar 

3 mal 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
ID Adressmarke 

auf Diskette schreiben 

Controller-Status holen 

FlagS isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Tracknummer bei Formatierung 

auf Diskette schreiben 

Controller-Status holen 
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oo © 00 0 00 MD CD DO CD CO 00 00 00 00 CD 00 CD 00 CO CD 00 CD 00 00 00 CD OD CD CO 00 CD 00 00 CO 00 CO CD 00 CD 00 00 O0 00 00 CD CO O0 CD 00 00 CO 00 CO CD 00 CD 00 00 


b51 
b53 
b54 
b56 
b58 
b5a 
b5c 
b5e 
b60 
b61 
b63 
b66 
b69 
b6b 
b6c 
b6e 
b70 
b73 
b76 
b79 
b7b 
b7c 
b7e 
b80 
b83 
b86 
b89 
b&b 
b8c 
b8e 
b90 
b92 
b95 
b97 
b9a 
b9c 
b9A 
bI£ 
bal 
ba3 
ba6 
ba7 
ba9 
bab 
bae 
bb0 
bbl 
bb3 
bb5 
bb7 
bba 
bbb 
bbad 
bbf 
bc2 
bc4 
bc5 





bc7 





20 
20 


02 
ZU 
20 


02 


20 


20 


20 


20 


20 


20 


20 





#503 


$8b7c 
s8b4e 
s3b 
#510 
s8b61 
#500 
$2c 
#501 
52003 
52000 
#503 


$8b7c 
58b66 
5020a,y 
52003 
52000 
#503 


s8bbl 
$8b76 
50205 
52003 
s2000 
$03 


s8bbl 
$8b86 
Ss£7 
52003 
516 
s2000 
$03 


s8bbl 
$8b97 
S4e 

52003 


58697 
$0c 
52000 
$03 


s8beb 
s8bab 
s00 

$2003 


s8bab 
$03 
s2000 
$03 








s8beb 
sebbf 


Flags isolieren 

Busy-Flag testen 

verzweige, wenn KOITIIndo schon beendet 
verzweige, wenn Controller noch nicht bereit 
Befehlsbyte 

Seitenkennzeichen isolieren 

verzweige, wenn Seite 1 

Kennzeichen für Diskettensei:e 0 

nächsten Befehl überspringen 

Kennzeichen für Diskettenseite i 

auf Diskette schreiben 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Contrller noch nicht bereit 
Sektornummer aus Tabelle holen 

und auf Diskette schreiben 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Kennzeichen für Länge des Sektors 

auf Diskette schreiben 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
2 CRC-Bytes 

auf Diskette schreiben (simultan) 

Zähler auf 22 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Lückenbyte 

auf Diskette schreiben 

und zwar 

22 mal 

Zähler auf 12 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Lückenbyte 

auf Diskette schreiben 

und zwar 

12 mal 

Zähler auf 3 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
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00 00 
ao 
oh 
oh 


20 


20 


20 


8b 


20 


20 
02 
8c 


20 


20 


02 


8b 
20 








#S£5 
$2003 


sebbf 
s2000 
#503 


$8beb 
$8bdl 
#Sfb 
$2003 
$s6£ 
s44 


s2000 
#503 


S8c4d 
$8be5 
s020a 
$2003 
50271 
sebfe 


$8be5 


$8be5 
s2000 
#503 


$8c4Ad 
$8c02 
#S£7 
52003 
50205 
S8c4Af,y 
Ss6£ 


s2000 
#503 


$S8c4Ad 
$8cla 
#S4e 

52003 


$8cla 
50207 
$8c35 


58607 
s2000 
#503 


$8c48 
$8c35 


Taktbyte Sal 

auf Diskette schreiben 

und zwar 

3 mal 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Data Address Mark 

auf Diskette schreiben 

Zeiger in Sektortabelle merken 

Anzahl der 256-Byte-Blöcke pro Sektor 
Pause 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Füllbyte für Sektor 

auf Diskette schreiben 

und zwar 128, 256, 512 oder 1024 mal 

je nachdem, was als 

Sektor länge 

angegeben wurde 

nächster 256-Byte-Block? 

weitermachen, 

wenn ja 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
2 CRC-Bytes 

auf Diskette schreiben (simultan) 
Kennzeichen für Größe der Sektoren 
entsprechende Anzahl von Lückenbytes holen 
Zeiger in Sektortabelle holen 

Anzahl der Lückenbytes 

Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon bbendet 
verzweige, wenn Controller noch nicht bereit 
Lückenbyte 

auf Diskette schreiben 

und zwar 

der Größe der Lücke entsprechend oft 
Anzahl der Sektoren des Tracks erreicht? 
verzweige, wenn ja 

sonst Sektornummer erhöhen 

und nächsten Sektor schreiben 
Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
verzweige, wenn Controller noch nicht bereit 
Füllbyte für 
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a9 4e 
8d 03 
4c 35 
20 61 


© 
Q 
3 

on. nTounmo 
[1 
© 


20 
8c 


die Lücke 

auf Diskette schreiben, 

bis Spur vollgeschrieben ist 
Ausführung des K0Om’7ndos aarten 
Flag für ok setzen 

nächsten Befehl überspringer 
Flag für Fehler setzen 





bei 128 Byte Sektoren 
bei 256 Byte Sektoren 
bei 512 Byte Sektoren 
bei 1024 Byte Sektoren 


Anzahl der MFM-Sektoren pro Trac(. 
bei 128 Byte Sektoren 
bei 256 Byte Sektoren 
bei 512 Byte Sektoren 
bei 1024 Byte sektoren 








8c6a 38 
8c6b e9 04 
8c6d a8 
8c6e £f0O 20 
8c70 88 


8c7e 88 
8c7f £ 21 
8c8l 88 
8082 £ 23 
8084 88 
8c85 £ 26 
8087 88 
8088 £ 2b 
8c8a 88 
8c8b £ 2d 





01 


d3 
02 


01 
02 
8a 





Gesamte Diskette im MFM-Format formatieren. 
Befehlsbyte 

ist die Diskette schreibgeschützt? 
verzeige, enn nein 

sonst Fehlernummer holen 

und als Rückmeldung setzen 
Fehlerflag setzen 

Ende 

alLe Kanäle Löschen 

Länge des Befehlsstrings 

minus 

4 Bytes für Standardbefehl 

als Index 

verzweige, wenn gleich Null 

minus 1 

verzweige, wenn gleich Null 

Track 0 

als erste Spur für Formatierung setzen 
Kennzeichen für Sektor länge holen 
Parameter für Sektorgröße setzen 
je nach 

Anzahl der 

angegebenen Parameter 

erfolgt der 

Einsprung zum Setzen 

der Defaultwerte für 

die Formatierung 

früher oder später, da 

die Angabe der Parameter 

optional ist! 

alle Parameter angegeben; keine Defaults setzen 





01 


Parameter setzen und Diskette formatieren. 
0 als 

Sektor-Interleave (Sektorabstand) 

0 als 

erste Tracknummer für Formatierung 


240 C Das dokumentierte ROM-Listing der 1570/71 








sol 
50205 
$8a57 
527 
50206 
$8c53,x 
50207 
s00 
50208 
52001 
$00 
50209 
Se5 
5020a 
$8öcde 
501b0 
502 
$8cdb 








l als 

Kennzeichen für 256-Byte-Sektoren 
Parameter entsprechend dieser Länge setzen 
39 als 

höchste Tracknummer 

Anzahl der Sektoren pro Track holen 

und setzen 

0 als 
logischer Anfangstrack 

Tracknummer für MFM-Controller setzen 
0 als 
Offset für Track 0 setzen 

Se5 als 

Füllbyte der Sektoren setzen 
Diskettenseite formatieren 

Rückmeldung holen 

Fehler? 

verzweige, wenn ja 

Befehlsbyte 

soll zweiseitig formatiert werden? 
verzweige, wenn nein; Ende 

Nummer für Diskettenseite 

auf 1 

setzen 

Hardware für entsprechende Seite setzen 
Diskettenseite entsprechend formatieren 
Kopf auf Track 0 positionieren; Ende 





8d0a 20 ba 87 


8d0d 78 
8d0e ad Od 18 
8dıil 4a 


8d14 20 86 8a 


sdlf 20 £0O 88 


Eine Diskettenseite im MFM-Format formatieren. 
Controller initialisieren; Indexloch abwarten 
verzweige, wenn Fehler 

Flag für Diskettenwechsel 

löschen 

Kopf auf Track 0 positionieren 

neuntes Zeichen aus Befehsstring 

als Starttrack merken 

und an MFM-Controller 

Flag für Sektortabelle gesetzt? 
verzweige, wenn ja 

sonst Sektortabelle herstellen 

verzweige, wenn Fehler 

zehntes Zeichen aus Befehlsstring 

Offset für Track 0 

verzweige, wenn Null 

sonst 

zum Stepperwert addieren und 
Trackverschiebung neu setzen 

Kopf positionieren 

Diskcontroller inaktivieren 

auf Wechseln der Diskette 

prüfen 

verzweige, wenn Diskette gewechselt wurde 
Track formatieren 

verzweige, wenn Fehler 

auf Wechsel der Diskette 

prüfen 

verzweige, wenn Diskette gewechselt wurde 
sonst Verify durchführen 
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18 


01 
02 


20 
01 
87 
8d 


02 
02 








verzweige, wenn Fehler 

auf Yechsel der Dis<ette 

prüfen 

verzweige, wenn Dis<ette se_echselt wurde 
Tracknummer für Formotier_r9 

mit maximaler Trackn_r ver;leichen 

verzweige, wenn erreicht 

sonst Stepperzeiger auf nac_sten Track 

und MFM-Controller entspreche')<::: setzen 
Track für Formatierung setze') 

Kopf positionieren 

nächsten Track formatieren 

Befehlsbyte; Diskette nur teilNeise formatiert? 
verzweige, wenn nein 

sonst 

letzten Track 

minus ersten Track rechnen 

Ergebnis größer gleich 39? 

verzweige, wenn ja; Diskette vollständig 

sonst Trackzähler erhöhen 

Kopf positionieren 

7168 mal 

$55 auf Diskette schreiben 

auf Lesen umschalten 
Nummer für alles ok 
nächsten Befehl überspringen 
Nummer für "FORMAT ERROR' 
setzen 
und zur Ausgabe; Ende 





02 
20 
02 
20 
88 


20 


20 


02 








MFM-Sektor von der Diskette lesen und ggf. an den 
senden. 

Befehlsbyte 

nur Pufferinhalt übertragen? 
verzweige, wenn ja 

Pufferadresse Hi 

setzen 

Pufferadresse Lo 

setzen; ergibt $0300 

Anzahl der 256-Byte-Blöcke pro Sektor 
Tracknummer holen 

und an MFM-Controller übergeben 
Sektornummer holen 

und an MFM-Controller übergeben 
Befehl für Sektor lesen 

an MFM-Controller übergeben 

Pause (2 Taktzyklen) 
Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
sonst: Datenbyte schon eingelesen? 
verzweige, wenn nein 

Datenbyte holen 

und in Puffer schreiben 

schon alle Bytes eines Blocks geholt? 
verzweige, wenn ja 

sonst Zeiger auf nächstes Byte 





Computer 
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8da0 d0 e7 bne 58489 weitermachen 

8da2 c8 iny Zeiger auf nächstes Byte 

8da3 ca dex Anzahl der Blöcke vermindern 

8da4 £0 05 beq s8dab verzweige, wenn schon alle Blöcke gelesen 
8da6 e6 31 Int s31 sonst Pufferadresse Hi erhöhen 

8da8 4c 89 8d jmp 58489 und weitermachen, bis ganzer Sektor eingelesen 
8dab 20 61 88 jsr s8861 Kommando beenden; LED am Laufwerk ausschalten 
8dae 20 3c 88 jsr $883c Controller-Status holen; Fehlerflags isolieren 
8dbl 20 e9 85 jsr $85e9 Burst-Status für Ausgabe vorbereiten 

8db4 24 3b bit S3b Befehlsbyte 

8db6 7007 bvs S8dbf verzweige, wenn keine Fehlerprüfung 

8db8 e0 02 cpx #502 ist Fehler aufgetreten? 

8dba 90 03 bcec S8dbf verzweige, wenn nein 

8dbc 4c 84 83 jmp 58384 Fehlermeldung an Computer; Ende 

8dbf 20 £9 85 jsr S85£9 Burst-Status ausgeben 

8dc2 a5 3b lda S3b Befehlsbyte 

8dc4 30 22 bmi S8de8 verzweige, wenn keine Datenübertragung 

8dc6 a9 03 lda #503 sonst Pufferadresse Hi 

8dc8 85 21 sta s31 setzen 

8dca a0 00 ldy #500 Pufferadresse Lo und Index 

8dcc 84a 30 sty s30 setzen 

8dce a6 44 ldx 544 Anzahl der 256-Byte-Blöcke pro Sektor 

8dd0 bl 30 lda ($30),y Byte aus Puffer holen 

8dd2 85 46 sta 546 und für Ausgabe setzen 

8dd4 20:- 29.) 85 jsr $85£9 Byte zum Computer 

8dd7 ee. 77.02 cpy 50271 schon ein Block gesendet? 

8dda £0 03 beq Sseddf verzweige, wenn ja 

sddc c8 iny sonst Pufferzeiger erhöhen 

sddd do £1 bne Ss8da0 und weitermachen 

sddf c8 iny Pufferindex auf nächstes Byte 

8de0 ca dex Anzahl der Blöcke des Sektors vermindern 

8del £0 05 beq S8de8 und Ende, wenn alle gesendet 

8de3 e6 31 inc 531 sonst Pufferadresse Hi erhöhen 

8de5 4c d0O 8d jmp Ss8da0 und die nächsten Bytes senden 

8de8 ce 05 02 dec 50205 Anzahl der Sektoren vermindern 

8deb £0 06 beq S8d£3 Ende, wenn alle übertragen 

8ded 20 6c 88 SE S886cC sonst nächste Sektornummer holen 

8d£f0 4c 67 8d jmp 58467 und Sektor lesen 

8df3 4c 1b 89 jmp s891b Kopf positionieren; Ende 

8df6 Routine für BURST-WRITE. MFM-Sektor auf Diskette schreiben, 


der entweder im Puffer steht, oder erst vom Computer geholt 
werden muß. Es kann auch nur der Puffer vollgeschrieben 
werden, ohne den Sektor auf Diskette zu schreiben. 








8df6 a9 03 lda #503 Pufferadresse Hi 

8df8 85 “Il sta 531 setzen 

8dfa a0 00 ldy #500 Pufferadresse Lo und Index 

sdfc 84a 30 sty s30 setzen 

sdfe a6 44 ldx 544 Anzahl der 256-Byte-Blöcke pro Sektor 
8e00 a5 3b lda $3b Befehlsbyte 

8e02 30 30 bmi $8e34 verzweige, wenn Sektor schon im Puffer 
8e04 ad 00 18 lda s1800 sonst Daten vom Rechner holen 

8e07 49 08 eor #508 CLOCK OUT-Leitung invertieren 

8e09 2c 0d 40 bit 54004 IRQ-Status löschen 

8e0c 8d 00 18 sta s1800 Byte auf Bus 

8e0f ad 00 18 lda 51800 Bus lesen 


8el2 10 03 bpl $8e1l7 verzweige, wenn kein ATN 
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ea 
40 


40 


02 


se 


83 


02 
20 
02 
20 
18 


88 
20 


20 
02 


se 
18 


se 

















sonst auf ATN-Signal testen 

Status für Schiebereg;ster 

testen 

warten, wenn noch kein Byte _=e"tragen 
Byte holen 

und in Puffer schreiben 

schon alle Bytes des Blcc(s ge.esen? 
verzweige, wenn ja 

Zeiger auf nächstes Byte 

und weitermachen 

Zeiger auf nächstes Byte 

und Anzahl der Blöcke vermindern 
verzweige, wenn kein Block mehr 
sonst Pufferadresse Hi erhöhen 

und weitermachen 

Befehlsbyte 

soll Pufferinhalt auf Diskette? 
verzweige, wenn nein 

Befehlsbyte 

Schreibschutz auf der Diskette? 
verzweige, wenn nein 

sonst Fehlerstatus holen 

$8381 und an Computer ausgeben 
Pufferadresse Hi 

setzen 

Pufferadresse Lo und Index 

setzen 

Anzahl der 256-Byte-Blöcke des Sektors 
Tracknummer holen 

und an MFM-Controller übergeben 
Sektornummer aus Befehlsstring holen 
und an MFM-Controller übergeben 
Steuerport lesen 

wurde die Diskette gewechselt? 
verzweige, wenn ja 

Befehl Sektor schreiben 

an MFM-Controller übergeben 
Controller-Status holen 

Flags isolieren 

Busy-Flag testen 

verzweige, wenn Kommando schon beendet 
Controller bereit? 

verzweige, wenn nein 

sonst Byte aus Puffer holen 

und auf Diskette schreiben 

schon alle Bytes des Blocks? 
verzweige, wenn ja 

sonst Zeiger auf nächstes Byte 

und weitermachen 

Zeiger auf nächstes Byte 

und Anzahl der Blöcke vermindern 
verzweige, wenn alle Blöcke geschrieben 
Pufferadresse Hi erhöhen 

und weitermachen 

Steuerport lesen 

wurde die Diskette gewechselt? 
verzweige, wenn ja 

Verify für Sektor durchführen 
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8e91 90 07 bec S8e9a verzweige, wenn Sektor in Ordnung 

8e93 20 ce 81 jsr Seölce seriellen Bus auf Ausgang 

8296 a2 07 ldx #507 Nummer für 'VERIFY ERROR' 

8298 d0 06 bne S8eal unbedingter Sprung zur Fehlerausgabe 

8e9a 20 ce 81 SE selce seriellen Bus auf Ausgang 

8e9d 20 3c 88 jsr $883c Controller-Status holen 

Seal 8e bO 01 stk 501b0 und merken 

8ea3 20 e9 85 jsr s85e9 Burst-Status setzen 

8ea6 20 £9 85 jsr $S85£9 und zum Computer senden 

8ea9 20 a0 86 SE s86a0 auf Reaktion des Computers warten 

Seac 20: 52 81 sr 581b2 und seriellen Bus auf Eingang 

Seaf 24 3b bit $3b Befehlsbyte 

8ebl 0 04 bvs $8eb7 verzweige, wenn keine Fehlerprüfung gewünscht 

8eb3 e0 02 cpx #502 Fehler? 

8eb5 b0O 0Oe bes S8ec5 verzweige, wenn ja 

8eb7 ce 05 02 dec 50205 Anzahl der Sektoren vermindern 

8eba £0 06 beq S8ec2 und Ende, wenn alle geschrieben 

8ebc 20 6c 88 jsr S886cC Nummer des nächsten Sektors holen 

8ebf 4c £6 8d jmp Ss8df6 und weitermachen 

8ec2 4c 1b 89 jmp $891b Kopf auf nächsten Track; Ende 

8ec5 60 rts Ende 

8ec6 Verify eines MFM-Sektors mit dem Inhalt des Pufferspeichers 
ab Puffer 0 bis maximal Puffer 3. Tritt ein Fehler auf, so 
wird vor der Rückkehr das Carry-Flag gesetzt. 











8ec6 a9 03 lda #503 Pufferadresse Hi 

8ec8 85 31 sta 531 setzen 

8eca a0 00 ldy #500 Pufferadresse Lo und Index 

8ecc 84 30 sty s30 setzen 

Sece a6 44 ldx s44 Anzahl der 256-Byte-Blöcke des Sektors 
8ed0 ad 03 02 lda 50203 Tracknummer aus Befehlsstring 

8ed3 8d 01 20 sta 52001 an MFM-Controller übergeben 

8ed6 ad 04 02 lda 50204 Sektornummer aus Befehlsstring 

8ed9 8d 02 20 sta 52002 an MFM-Controller übergeben 

8edc a9 88 lda #588 Kommando für Sektor lesen 

8ede 20 4e 88 jSr s884e an Controller übergeben 

Seel ad 00 20 lda 52000 Controller.Status holen 

8ee4 29 03 and #503 Flags isolieren 

8ee6 4a lsr Busy-Flag testen 

8ee7 90 Ic bec $8£05 verzweige, wenn Kommando schon ausgeführt 
See) 29 01 and #501 sonst testen, ob Byte schon eingelesen 
8eeb £0o £a4 beq Steel warten, wenn nein 

Seed ad 03 20 lda 52003 Byte holen und 

8ef£f0 dl 30 cmp ($30),y mit Pufferinhalt vergleichen 

8ef2 do 11 bne S8£05 verzweige, wenn ungleich 

8ef4 ce 11.02 cpy 50271 schon ein Block verglichen? 

8ef7 £0O 03 beq S8efc verzweige, wenn ja 

8ef9 c8 iny Zeiger auf nächstes Byte 

Sefa d0 e5 bne Steel und weiterprüfen 

8efc c8 iny Zeiger auf nächstes Byte 

Sefd ca dex Anzahl der Blöcke des Sektors vermindern 
Sefe £0o 10 beq S8fl0 verzweige, wenn fertig 

8£f00 e6 31 inc s31 sonst Pufferadresse Hi erhöhen 

8£02 4c el 8e jmp Steel und nächsten Block bearbeiten 

8£05 a9 do lda #$d0 Kommando für Abbruch der Arbeit 

8£07 8d 00 20 sta 52000 an den MFM-Controller übergeben, da Fehler 
8f0a 20 83 a4 jsr Sa483 ca. 70 Taktzyklen warten 
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Nummer für 'VERIFY ERROR' 
nächsten Befehl übersprirgen 
Nummer für 'OK' 

Status merken 

Kommando Ende abwarten; Ende 


02 


88 
20 


20 
02 




















Neuformatierten MFM-Sektor mit Verify auf korrekten 
Leerinhalt überprüfen 

Pufferadresse Hi 

setzen 

Pufferadresse Lo und Index 

setzen 

Anzahl der 256-Byte-Blöcke des Sektors holen 
Anzahl der Bytes eines Blocks (128/256) 
Kommando für Sektor lesen 

an den MFM-Controller übergeben 
Controller-Status holen 

Flags isolieren 

auf Busy-Flag testen 

verzweige, wenn Kommando schon beendet 

sonst testen, ob Controller bereit 

verzweige, wenn nein 

Datenbyte von Diskette holen 

und mit aktuellem Füllbyte vergleichen 
verzweige, wenn ungleich 

Zähler auf nächstes Byte 

Fehler! (muß bne $8f2a heißen); weitermachen 
nächster Block des Sektors 

verzweige, wenn schon ganzer Sektor verglichen 
Anzahl der Bytes pro Block (128/256) 
Pufferadresse Hi erhöhen 

und weitermachen 
Kommando für Befehl abbrechen 
an MFM-Controller übergeben 
ca. 70 Taktzyklen warten 
Nummer für 'VERIFY ERROR' 
nächsten Befehl überspringen 
Nummer für 'OK' 

Status merken 

Ende des Kommandos abwarten; Ende 

















co 00 00 00 00 CD CO CO CD CO 00 CO 00 00 00 





89 


02 


87 


8a 
01 





s8Yef 
$3b 
S8£70 
50203 
$67 
587ba 
#500 
$97 
$8a27 
501b0 
#502 
S8£fYA 
26 


Routine, die die Sektorfolge für den QUERY- DISK-Befehl 


feststellt. 

Prozessorstatus retten 

Diskcontroller inaktivieren 

Kopf auf Track 0 positionieren 

soll eine andere Spur als 0 analysiert werden? 
verzweige, wenn nein 

Sonst Tracknummer aus Befehlsstring holen 
und setzen 

Kopf auf anderen Track positionieren 
Anzahl der Sektoren 

löschen 

Sektorheader lesen 

und Fehlerstatus holen 

Fehler aufgetreten? 

verzweige, wenn ja 

sonst Sektornummer holen 
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co 00 00 00 00 m 00 CO CD CO 00 CO 00 00 CD 00 CO 00 


8a 


02 


01 


596 
$8a27 
526 
597 
s020b,y 
597 
#S1f 
S8fYydA 
596 
s8f82 
$24 
567 
#500 
$2c 
#502 
501b0 


und merken 

nächsten Sektorheader einlesen 
Sektornummer holen 

erste Sektornummer als Zähler 

neue Sektornummer in Befehlsstring 
Zähler erhöhen 

schon maximale Anzahl erreicht? 
verzweige, wenn ja 

sonst aktuelle Sektornummer mit erster 
Sektornummer vergleichen; weiter, wenn ungleich 
sonst Tracknummer holen 

und setzen 

Nummer für 'OK' 

nächsten Befehl überspringen 

Nummer für 'SECTOR NOT FOUND" 

Status setzen 

Prozessorstatus wieder zurückholen 
Ende 





02 


UTILITY-Befehl 'S'. Abstand der Sektoren beim Schreiben und 


Lesen neu setzen ('sector interleave'). 
Wert für Sektorabstand aus Befehlsstring 
setzen 

Ende 


02 


UTILITY-Befehl 'R'. Anzahl der Leseversuche bei Auftreten 
eines Fehlers setzen. 

Anzahl der Versuche aus Befehlsstring 

setzen 

Ende 


UTILITY-Befehl 'T'. ROM-Prüfsumme testen. 
zur Berechnung der Prüfsumme; Ende 


© © ®_ %* x* 00 00 00 00 00 CD CD CD 00 CO CO 00 00 CO c0 00 
HhHhhhhhhhhhhhıt 





£80 85 
£82 20 
£85 a5 
E87 a4 
£89 99 
fc e6 
fe c0 
E90 b0 
£92 65 
E94 do 
E96 a5 
E98 85 
F9a a2 
£9c 2€ 
F9dA a2 
EI£ 8e 
fa2 28 
Fa3 60 
fa4 
Fa4 ad 
Fa7 85 
Fa9 60 
aa 
faa ad 
fad 85 
Faf 60 
FbO 
FbO 4c 
£b3 
er 78 
Fb4 ad 
Ffb7 29 
£b9 d0 
Fbb ad 
fbe c9 
£c0 £0 
fc2 er} 
Ec4 do 
£c6 ad 
£c9 29 
fcb 8d 
fce 58 
fc£ 24 
fdl 10 
£d3 60 
sfd4ad 
0 8fd44c 
£fd7 09 
£d9 8d 
fdc 58 


18 


02 


18 


18 


18 
90 


18 








UTILITY-Befehl 'H'. Diskettenseite wählen, wenn sich die 
Floppy im 1541-Modus befindet. 
Diskcontroller inaktivieren 

Steuerregister lesen 

Betriebsmodus testen 

verzweige, wenn 1571-Modus 

sonst Nummer der Diskettenseite aus Befehl 
mit '1' vergleichen 

verzweige, wenn Seite 1 gewünscht 

mit '0' vergleichen 

Fehler, wenn ungleich O0 

Steuerregister lesen 

Elektronik auf Seite 0 stellen 

und setzen 

Diskcontroller wieder aktivieren 

testen, ob Diskette initialisiert werden soll 
verzweige, wenn ja 

sonst Ende 

Steuerregister lesen 

‘31, SYNTAX ERROR' ausgeben; Ende 
Elektronik auf Seite 1 stellen 

und setzen 

Diskcontroller wieder aktivieren 
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soll Diskette initialisiert werden? 
verzweige, wenn nein 
Diskette initialisieren 


Ende 


Steuerroutine der UTILITY-Befehle. 
Länge des Befehlsstrings 














02 


02 


18 


18 
a4 
Er 
02 


02 














kleiner als 4? 
verzweige, wenn 


ja 


sonst viertes Zeichen holen 


mit 'S' vergleic 
verzweige, wenn 
mit 'R' vergleic 
verzweige, wenn 
mit 'T' vergleic 
verzweige, wenn 
mit 'M' vergleic 
verzweige, wenn 
mit 'H' vergleic 
verzweige, wenn 
sonst Wert in Y 


hen 
ja 
hen 
ja 
hen 
ja 
hen 
ja 
hen 
ja 


mit 4 vergleichen (kleinste Gerätenumnmer) 


verzweige, wenn 
mit 31 vergleich 





en 


kleiner 


(größte Gerätenummer) 


verzweige, wenn größer 
Gerätenummer für TALK 


vorbereiten 


Gerätenummer für LISTEN 


vorbereiten 
Nummer holen 
und 

für TALK 
setzen 
Nummer holen 
und 

für LISTEN 
setzen 

Ende 


Nummer der Fehlermeldung 
'31, SYNTAX ERROR' 


UTILITY-Befehl 'M'. 


um. 


ausgeben; Ende 


Schaltet zwischen 1541- und 1571-Modus 


Diskcontroller inaktivieren 
fünftes Zeichen aus Befehlsstring 
mit '1' vergleichen 
'M1'-Befehl 
mit '0' vergleichen 
verzweige, wenn ungleich '0' 
sonst Steuerregister lesen 


verzweige, wenn 


und die Elektron 
auf 1 MHz schalt 


ik 
en 


ca. 70 Taktzyklen Verzögerung 
Flags für 1541-Modus setzen 
Flag für Umschaltung der 
IRQ-Adresse auf 1541-Modus 


setzen 
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18 


18 
a4 


02 
02 
lc 
lc 
02 


02 











Diskcontroller wieder aktivieren 
soll die Diskette initialisiert werden? 
verzweige, wenn ja 

Ende 

Steuerregister lesen 

und die Elektronik 

auf 2 MHz schalten 

ca. 70 Taktzyklen Verzögerung 
Adresse der Jobschleife 

in $02a9/02aa auf die 

Adresse der 1571-Jobschleife $9dde 
setzen 

Timer auf 40 ms IRQ 

setzen und 

starten 

Flag für Umschaltung der 

IRQ-Adresse auf 1571-Modus 

setzen 

Adresse der aktuellen Stepperroutine 
löschen 

Diskcontroller aktivieren 

soll die Diskette initialisiert werden? 
verzweige, wenn nein 

Diskette initialisieren; Ende 

Ende 


8l 
91 


c6 


91 
02 


02 
02 


90 


02 
02 
c3 
02 


02 





FAST-LOAD-UTILITY. Routine ermöglicht das schnelle Laden 
einer Datei von Diskette. 
seriellen Bus auf Ausgang schalten 
Filenamen aufbereiten 

verzweige, wenn Fehler 

Drive ggf. initialisieren 
Drivestatus holen 

verzweige, wenn Fehler 

zur Vorbereitung Flag für 2-MHz-Busbetrieb 
und Flag für File hat nur 1 Block 
setzen 

Lesekana 1 öffnen 

erstes Zeichen aus Befehlsstring 
mit '*' vergleichen 

verzweige, wenn ungleich 

letzte Tracknummer holen 
verzweige, wenn nicht vorhanden 
sonst Nummer merken 

letzte Sektornummer holen 

und setzen 

Tracknummer zurückholen 

und Fi le laden 

Flags und Werte löschen: 
Y-Register löschen 

X-Register löschen 

letzte Drivenummer 

Zeiger auf Filetabelle 
Drivenummer holen und setzen 
Anzahl der Filenamen 

merken 

und jetzige Anzahl auf 1 

setzen 








B.3 Der Diskcontroller WD 1770 


249 





90c4 a9 
90c6 85 
90c8 20 
90chb 68 
90cc 8d 
90c£ a5 
90d1 29 
9043 85 
9045 24 
9047 30 
*1 9049 a5 
* 1: 9096093 
*0 9049 20 
*0 90dcea 
90dd a0 
90df ad 
90e2 do 
90e4 a2 
90e6 22€ 
90e7 a2 
90e9 4c 
90ec 85 
90ee 48 
90ef 20 
90£2 68 
90£3 ae 
90£6 95 
90£8 ad 
90£b 8d 
90fe 95 
9100 a9 
9102 8d 
9105 85 
9107 58 
9108 a6 
910a a5 
910c 95 
910e 20 
91T e0 
9113 90 
9115 4c 
9118 78 
3119 a0 
911b bl 
911ld £0 
9ıl1£ a5 
9121 29 
3123 85 
2125 20 
9128 a0 
912a bl 
912c aa 
912d 20 
9130 c8 
9131 do 
9133 ae 
9136 bl 
9138 d5 
913a £0 





c4 


02 


aa 


02 


02 


91 


92 


92 


02 








#S£ff 
$86 
Scaaf 


50278 
837 
#5 7£ 
$37 
$3b 
SI0adf 
$e7 
#502 
Saa5b 


$90e4 
50280 
$90ec 
#502 
$2c 
#S0£ 
SYlad 
S7e 


s91da 


502b0 
506,x 
50285 
5026£ 
507,x 
#580 
50202 
Sof 


5£f9 
s5£ 
500,x 
5864b 
s02 
59118 
59199 


500 
(594),y 
$914e 
537 

Sfe 
537 
59228 
502 
(594),y 








59228 


$912a 
502b0 
(894),y 
506,x 
SY13£ 


Zeiger für Directorypuffer 
setzen 

Datei im Directory suchen 

Anzahl der Filenamen zurückholen 
und wieder merken 

Flag für 1571-Bus-Modus 

löschen und 

Flags wieder merken 

muß gesuchtes File ein PRG-File sein? 
verzweige, wenn nein 

sonst Filetyp holen 

und auf PRG-File testen 

Filetyp prüfen 


verzweige, wenn ungleich; Fehler 
Tracknummer des ersten Blocks im File 
verzweige, wenn vorhanden 

sonst Nummer für 'FILE NOT FOUND' 
nächsten Befehl überspringen 

Nummer für 'DRIVE NOT READY' 
Fehlermeldung ausgeben; Ende 

erste Tracknummer merken 

und merken 

Pufferzeiger setzen 

Tracknummer zurückholen 

Zeiger in Jobspeicher 

Tracknummer in Jobspeicher 
Sektornummer holen 

und ebenfalls setzen 

und in Jobspeicher 

Jobcode für Block lesen 

in Befehlsstring für Ausführung 

und als Jobzeiger 

Diskcontroller aktivieren 
Puffernummer 

Jobzeiger 

und Jobcode an Diskcontroller übergeben 
Job ausführen und Ende abwarten 
Fehler? 

verzweige, wenn nein 

sonst zur Fehlerausgabe 
Diskcontroller inaktivieren 

Zeiger auf Tracknummer 

Byte aus Puffer holen 

verzweige, wenn Tracknummer gleich 0 
sonst Flag für File hat nur 1 Block 
löschen und 

Flags wieder merken 

aktuellen Burst-Status zum Computer 
Zeiger auf erstes Datenbyte 

Byte holen 

und für Ausgabe setzen 

Byte zum Computer 

Zeiger auf nächstes Byte 

und weitermachen 

Zeiger in Jobspeicher 

Tracknummer aus Puffer 

gleich der aktuellen Tracknummer des Jobs? 
verzweige, wenn ja 
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91 


92 


92 


92 


92 


92 


92 








$80 
$2c 
$88 
s5£ 
506,x 
sol 
(594),y 
507,x 
59107 
sı£ 
59228 
sol 
$37 
59177 








(894),y 


#503 
46 


59228 


(894),y 


59228 


(894),y 


s9228 
#504 
59184 
#501 
(894) ,y 


46 
59228 
#502 
(894) ,y 


59228 
46 


59184 
#500 


sonst Jobcode für Block lesen 

nächsten Befehl überspringen 

Jobcode für Block auf gleichem Track lesen 
setzen 
und Tracknummer setzen 

Zeiger auf Sektornummer 

Byte aus Puffer holen 

und Sektornummer setzen 
weitermachen; nächsten Sektor holen 
Flag für letzten Block 

zum Computer 

Flag für File hat nur 1 Block 
prüfen 
verzweige, wenn nicht gesetzt 

Zeiger auf Anzahl der Bytes im Block 
Byte holen 

und 

minus drei für Anzahl 

setzen 

Anzahl für Ausgabe setzen 

und zum Computer 

Zeiger auf nächstes Datenbyte 

Byte aus Puffer 

und 
zum Computer 

Zeiger auf nächstes Datenbyte 
Byte aus Puffer 

und 
zum Computer 

Zeiger auf erstes Datenbyte bei 1-Block-File 
unbedingter Sprung 

Zeiger auf Anzahl der Datenbytes 

Anzahl holen 

und setzen 

minus 1 

merken 

Wert zum Computer 

Zeiger auf erstes Datenbyte 

Byte holen 

und 

zum Computer 

Zeiger auf nächstes Byte 

Zähler vermindern 

und weitermachen 

interne Sekundäradresse für LOAD 

setzen und 

File schließen 

Diskstatus bereitstellen; Ende 




















92 


Routine sendet das Burst-Statusbyte zum Compu- ter und 
stellt eine entsprechende Fehlermeldung im Klartext bereit. 
Diskcontroller inaktivieren 

Fehlernummer merken 

Burst-Status zum Computer 

interne Sekundäradresse für LOAD 

setzen 

File schließen 
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91a6 a6 £9 1dx Ss£f9 Puffernummer holen 

91a8 a5 46 lda 546 Fehlernummer holen 

Ylaa 4 0a e6 jmp Se60a und Fehlermeldung bereitstellen; Ende 

Y9lad Routine zur Fehlerbeharlurg bei der Suche im Directory. 

9Y9lad 78 sei Diskcontroller inaktivieren 

Y9lae 86 46 stx 546 Fehlernummer merken 

91b0 a2 02 ldx 502 Nummer für 'FILE NOT FOU)' 

91b2 20 28-92 sr 59228 als Burst-Status zum Computer 

9165 a9 00 lda s00 interne Sekundäradresse für L:A) 

9167 85 83 sta 583 setzen und 

91b9 20 c0 da jsr SdacO File schließen 

91bc a5 46 lda 546 Fehlernummer holen 

91be c9 02 cmp 502 mit 2 ("FILE NOT FOUND') vergleichen 

91c0 £0 03 beq $91c5 verzweige, wenn gleich 

91c2 a9 74 lda 574 sonst Nummer für '74, DRIVE NOT READY' 

91c4 28 .byte $2c nächsten Befehl überspringen 

91c5 a9 62 lda s62 Nummer für '62, FILE NOT FOUND' 

91c7 de’ :&8- 1 jmp $c1lc8 Fehlermeldung ausgeben; Ende 

9lca Internen Lesekanal holen und belegen. 

9lca a9 00 lda s00 Sekundäradresse für LOAD 

glce 85 83 sta 583 setzen 

91lce a9 01 lda sol einen lesekanal 

91d0 20 e2 di JSr Sdle2 suchen und belegen 

91d3 aa tax Pufternummer 

91d4 bda e0 fe lda Sfee0,x Pufferadresse Hi holen 

91d7 85 95 sta 595 und setzen 

91d9 60 rts Ende 

Y91da Pufferzeiger für Jobspeicher ermitteln. 

91lda a5 95 lda 595 Pufferadresse Hi 

9ldc 38 sec minus 3 

9Y91ldd e9 03 sbc #503 ergibt 

Y9ldf 85.29 sta s£f9 die aktuelle Puffernummer 

9lel 0a asl mal 2 

9le2 8d bO 02 sta 502b0 ergibt den Zeiger in den Jobspeicher 

91e5 a9 00 lda #500 Pufteradresse Lo 

91le7 85 94 sta 594 setzen 

91le9 60 rts Ende 

Ylea Eingabezeile auf Drivenummer und ':' prüfen und 
überflüssige Angaben durch Verschieben des Filenamens an 
den Anfang löschen. 

Ylea a0 03 ldy 503 Zeiger auf Beginn des Filenamens 

Y9lec ad 74 02 lda 50274 Anzahl der Zeichen im Befehlsstring 

9lef 38 sec minus 3 

91£0 e9 03 sbc 503 ergibt 

S1E2 8d 74 02 sta 50274 die Länge des Filenamens 

91£5 ad 04 02 lda 50204 fünftes Zeichen aus Befehlsstring 

91£8 c9 3a cmp s3a mit ':' vergleichen 

9lfa d0O 0e bne 5920a verzweige, wenn ungleich 

9Ife ad 03 02 lda 50203 viertes Zeichen aus Befehlsstring 

9lf£f aa tax merken 

9200 29 30 and 530 eventuell vorhandene Nummer isolieren 

9202 23.20 cmp 530 und prüfen 








9204 d0O 04 bne s920a verzweige, wenn ungleich Drivenummer 0 
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74 
£3 


02 


02 


02 
02 


02 


#531 
59226 
50203 
#53a 
59215 
50274 


#500 


$0200,y 
$0200,x 


50274 
59217 


s24 


sonst auf Drivenummer 1 testen 
Fehler, wenn ja 

viertes Zeichen aus Befehlsstring 
mit ':' vergleichen 

verzweige, wenn ungleich 

Länge des Filenamen vermindern 
Zeiger in Befehlsstring erhöhen 
zweiten Index setzen 

und 

Filename an den Anfang verschieben 
Zeiger 

auf nächstes Zeichen 

schon alle Zeichen verschoben? 
weitermachen, wenn nein 

Flag für alles ok 

nächsten Befehl überspringen 

Flag für Fehler bei Drivenummer 
Ende 





18 
18 


40 


40 








Inhalt des X-Registers im Fast-Modus zum Computer schicken. 
Bus lesen 

und konstanten Wert 

abwarten 

auf ATN-Signal testen 

verzweige, wenn gesetzt 

Flags für Busbetrieb 

CLOCK-Zustand prüfen 

warten, wenn nicht gegeben 

sonst Byte ins serielle Schieberegister 
Flags für Busbetrieb holen 
CLOCK-Zustand invertieren 

und für nächsten Zugriff setzen 

Flag für Schieberegister 

warten, bis 

Byte zum Computer gesendet ist 

Ende 

zur Bedienung bei ATN; Ende 





00 
00 
01 
03 
73 


80 
76 
75 
02 
08 
02 











Routine berechnet die Prüfsumme des ROM als Folge des 'T'- 
Kommandos. Bei Übereinstimmung mit dem Wert bei $8000/8001 
erfolgt der Rück, sprung mit RTS; sonst ein Sprung nach 
Sea7l (Fehlerblinken bei Hardwaredefekten). 
Prozessorstatus retten 

Diskcontroller inaktivieren 

Jobspeicher 

löschen 

löschen 

ROM-Startadresse Lo 

setzen 

Zeiger merken 

ROM-Startadresse Hi 

setzen 

Byte aus ROM holen 

und merken 

Bitzähler setzen (8 Bits pro Byte) 

Byte aus ROM holen 








B.3 Der Diskcontroller WD 1770 


253 





9267 
9269 
926b 
926d 
926£ 
9271 
9272 
9274 
9276 
9277 
9278 
9279 
927b 
927A 
Y927£ 
9280 
9281 
9283 
9285 
9287 
9289 
928b 
9284 
928e 
9290 
9292 
9294 
9296 
9298 
9299 
929a 
9296 
929d 
92a0 
92a2 
92a4 
92a7 
92a9 
92ab 
Y92ad 
Y92af 
92b1l 
92b2 
92b3 
92b5 
92b7 


80 


80 


ea 


and 
sta 
lda 
bpl 
inc 
ror 
bec 
inc 
ror 
ror 
ror 
bec 
inc 
lda 
rol 
rol 
bcec 
inc 
ror 
rol 
rol 
ror 
dex 
bne 
inc 
bne 
inc 
bne 
dey 
dey 
dey 
lda 
cmp 
bne 
lda 
cmp 
bne 
sty 
sty 
sty 
sty 
plp 
rts 
ldx 
stx 
jmp 


#501 
503 
sol 
59271 
03 


9276 
$03 


s927d 
03 
s00 


59285 
03 
03 
s00 
sol 
02 


59265 
75 
$925£ 
76 
S925£ 


s00 
s8000 
$92b3 
sol 
s8001 
$92b3 
s00 
sol 
$02 
$03 


#503 
Ss6£ 
Sea7l 


und Bit isolieren 

Bit merken 

Bit 15 (Bit 7 des H;-3ye) 

zu dem geholten Byte 

addieren 

Bit 8 (Bit 0 des Hi-8yte) 
ebenfalls zum geholte Bye 

addieren 

jetzt das 

Bit 11 des Zwischenspeiclers 
ebenfalls 

zu dem geholten Byte 

addieren 

Lo-Byte des Prüfsummenzisc,e-re'sters 
Bit 6 

isolieren und 

zum Bytewert aus dem R 

addieren 

Bit 0 des Bytewertes aus de R 

über das Carry-Bit ins Bit 0 des 
Zwischenspeichers rollen 

nächstes Bit des ROM-Bytes 

Zähler auf nächstes Bit des ROM-Bytes 
und weitermachen 

Adresse Lo erhöhen 

und nächstes Byte holen 
ROM-Adresse Hi erhöhen 

und nächstes Byte holen 

Zeiger von ert 3 

auf den ert 0 

vermindern 

Lo-Byte der ROM-Summe 

mit abgespeicherter Prüfsumme vergleichen 
verzweige, wenn ungleich 

gleich, dann Hi-Byte ebenfalls 
testen 

Fehler, wenn ungleich 

sonst Zwischenspeicher 

wieder 

löschen und für 

Jobs in definierten Zustand bringen 
Prozessorstatus wieder zurückholen 
und Ende; alles ok 

Nummer des Fehlers 

setzen 

zum Hardwareblinken der LED 
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92ba Diskcontroller-Routine (Jobschleife) für den 1571-Modus. 
Diese Routine befindet sich analog für den 1541-Modus bei 
sf2b0. 

92ba ba tsx Stackpointer 

92bb 86 49 stx 549 merken 

92bd 2c 04 Ic bit S1c04 IROQ-Flag durch lesen löschen 

92c0 ad 0c Ic lda Slc0c BYTE-READY-leitung durch 

92c3 09 0e ora #50e setzen der Bits 1, 2 und 3 

92c5 8d 0c Ic sta Slc0c initialisieren 

92c8 a0 05 ldy #505 Index in Jobspeicher setzen 

92ca b9 00 00 lda s0000,y liegt Job für Puffer an? 

92cd 30 06 bmi 592d5 verzweige, wenn" ja 

Y92c£ 88 dey Index auf nächsten Puffer 

92d0 10 £8 bpl 592ca weitermachen 

92d2 4c ca 99 jmp s99ca zur Routine für Motor- und Steppersteuerung 

92d5 c9 88 cmp 588 Kommando für Sektor auf gleichem Track lesen? 

92d7 d0O 03 bne s92dc verzweige, wenn nein 

92d9 4c 0d 9 jmp s9604A sonst Kommando ausführen 

92dc c9 do cmp Sd0 Kommando für Programm im Puffer ausführen? 

92de d0 03 bne $92e3 verzweige, wenn nein 

92e0 4c a2 93 jmp 593a2 sonst Kommando ausführen 

92e3 29, 01 and sol Drivenummer aus Jobcode isolieren 

92e5 £0 07 beq $92ee verzweige, wenn Drive 0 

92e7 84 3£ sty s3£f sonst Puffernummer setzen und 

92e9 a9 0£f lda Sof Nummer für Fehlermeldung setzen 

92eb 4c b5 99 jmp 599b5 '74, DRIVE NOT READY' ausgeben 

92ee aa tax 'Drivenummer merken 

92ef c5 3e cmp S3e und mit aktivem Drive vergleichen 

92£1 £0 08 beq $92fb verzweige, wenn gleich 

92£3 85  3e sta $3e sonst Nummer neu setzen 

9285 20 Te £9 jsr Sf9T7e und Drivemotor einschalten 

Y92£8 4c ca 99 jmp 599ca weiter zur Steppermotorsteuerung 

92£b a5 20 lda 520 Flags für Drivestatus 

Y92£d 30 03 bmi 59302 verzweige, wenn Drive nicht bereit für Zugriff 

Y92f£f 0a asl sonst: Steppermotor in Aktion? 

9300 10 03 bpl 59305 verzweige, wenn nein 

9302 4c ca 99 jmp 599ca ja; zur Jobschleife für Steppermotor 

9305 a9 20 lda #520 Flag für Drive an und bereit 

9307 85 20 sta 520 setzen 

9309 a0 05 ldy #505 Index in Jobspeicher 

930b 8a 3£ sty Ss3f setzen 

9304 20 di 93 jsr s93dAl Pufferadresse setzen; Jobcode holen 

9310 30 la bmi 3932C verzweige, wenn Job anliegt 

9312 ee dec Ss3£f sonst Zeiger auf nächsten Puffer 

9314 10 £7 bpl 59304 und weiterprüfen 

9316 a4 41 ldy s4l Puffernummer für nächsten Job 

9318 20 d3 93 jst 593d3 Pufferadresse für Job setzen 

931b a5 42 lda 542 Trackdifferenz zu letztem Job 

931d 85 4a sta S4a setzen 

Y931£ 06 4a asl S4a mal 2 ergibt Anzahl der Schritte 

9321 a9 60 lda #560 Flags für Drive bereit und Stepper in Aktion 

3323 85 20 sta 520 setzen 

9325 bl 32 lda ($32),y Tracknummer holen 

9327 85 22 sta 522 und für Job setzen 

9329 4c ca 99 jmp $99ca zur Jobschleife für Kopfpositionierung 

932c 29 01 and #501 Drivenummer für Job 


932e c5 3e cmp S3e mit Nummer des letzten Jobs vergleichen 
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9330 
34332 
9334 
9336 
9338 
933a 
933b 
9334 
DISIE 
9340 
9341 
9343 
9345 
9347 
9349 
934b 
934d 
9350 
9352 
9354 
9356 
9358 
9359 
9356 
9354 
aSaE 
361 
9363 
9365 
9368 
936a 
936c 
936€ 
9370 
2371 
9374 
Seule: 
2377 
3310 
937a 
a3 rd 
STE 
9382 
9384 
9386 
9389 
938cC 
938€ 
9390 
9392 
9394 
9396 
9398 
939a 
939c 
939E 





93 


93 


93 


94 


1& 


lc 
94 


94 
9b 


bne 
lda 
beq 
lda 
cmp 
php 
lda 
cmp 
ror 
plp 
and 
bec 
bmi 
lda 
sbc 
sta 
jmp 
bpl 
lda 
adc 
sta 
sec 
lda 
sbc 
beq 
sta 
lda 
sta 
jmp 
ldx 
lda 
sta 
cmp 
tay 
jsr 
tya 
bec 
sbc 
tax 
lda 
sta 
lda 
and 
ora 
sta 
lda 
sta 
lda 
cmp 
beq 
cmp 
beq 
cmp 
beq 
jmp 
jmp 














verzweige, wenn ungleich 

aktuelle Tracknummer des Jobs 

verzweige, wenn nicht gesetzt 

sonst Nummer holen 

und mit Maximum (36) vergleichen 

Ergebnis merken 

Tracknummer für Job 

mit Maximum (36) vergleichen 

und Ergebnis in Akku (Bit 7) 

letztes Ergebnis 

Ergebnis prüfen 

verzweige, wenn letztes Ergebnis kleiner 36 
verzweige, wenn jetziges Ergebnis größer 36 
Tracknummer für Job 

minus 35 (Wert für Seite 1 der Diskette) 
setzen 

und Tracknummer weiter beerbe;ten 
verzweige, wenn neuer Track auf Seite O0 
aktuelle Tracknummer 

plus 35 für 

Seite 1 setzen 

und 

Tracknummer 

minus Differenzwert; gleicher Track für Kopf? 
verzweige, wenn ja 

sonst Differenz für Positionierung merken 
Puffernummer holen und 

für Job setzen 

weitermachen; für nächsten Job 
(überflüssiger Befehl) 

Tracknummer für Job holen 

und setzen 

mit Maximum (36) vergleichen 

und Tracknummer merken 

Hardware für entsprechende Diskseite setzen 
Tracknummer 

verzweige, wenn kleiner 36 

sonst minus 35 für Stepper 

und merken 

Wert für Timersteuerung des Tracks holen 
und setzen 

Steuerport für Diskcontroller lesen 
Timerbits löschen 

und neuen Wert für Track setzen 

an Diskcontroller übergeben 

Anzahl der Sektoren des Tracks holen 

und setzen 

Jobcode 

mit Wert für 'BUMP' vergleichen 

ja; BUMP ausführen; Kopf auf Track 0 setzen 
mit Wert für Jobprogamm ausführen vergleichen 
ja; Programm ausführen 

mit Wert für Formatieren vergleichen 

ja; Diskette formatieren 

sonst SEEK ausführen; Blockheader lesen 
Diskette formatieren 
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93a2 Routine setzt die Pufferadresse und startet ein Benutzer- 
Jobprogramm im Puffer. Analog zu $f36e. 

93a2 as \3E lda S3f Puffernummer 

93a4 18 elc holen und 

93a5 69 03 adc #503 3 addieren 

93a7 85; 31 sta 531 ergibt Pufferadresse Hi 

9339 a9 00 lda #500 Pufferadresse Lo gleich 0 

93ab 85 30 sta s30 setzen 

Y93ad 6c 30 00 jmp (50030) Programm starten 

930 Routine führt einen BUMP aus, d.h. der Kopf wird auf Track 
0 zurückgefahren. Analog zu $£37c. 

930 a9 60 lda 560 Flags für Drive und Stepper in Aktion 

93b2 85 20 sta 520 setzen 

93b4 ad 00 Ic lda $1c00 Steuerport für Diskcontroller 

93b7 ZIN SE and SEC Bits für Steppermotor löschen 

93b9 8d 00 Ic sta S1c00 und neuen Status setzen 

93bc a9 a4 lda Sad Anzahl der Schritte 

93be 85 4a sta S4a zum Zurückfahren des Kopfes (-45 Tracks) 

93c0 ad bl 01 lda s0lbl Diskettenseite holen 

93c3 30 03 bmi 593c8 verzweige, wenn Seite 1 

93c5 a9 01 lda sol sonst Tracknummer 1 

Be 2c .byte $2c nächsten Befehl überspringen 

93c8 a9 24 lda 524 Tracknummer 36 für Seite 1 

93ca 83 22 sta 522 setzen 

YRace a9 01 lda 501 Nummer für 'OK' 

93ce 4c b5 99 jmp 599b5 und Jobschleife beenden 

93dl Pufferadresse und Pufferzeiger für jeden Job setzen; in 
530/31 und $32. Analog zu $£393, 

93dl a4 3£ ldy S3f Puffernummer des Jobs 

9343 b9 00 00 lda s0000,y Jobcode holen 

93d6 48 pha und merken 

9347 10 14 bpl $93ed verzweige, wenn kein Job anliegt 

3349 29 718 and 578 sonst Bits für Jobcode isolieren 

93db 85 45 sta 545 und Code merken 

Y93dd 98 tya Puffernummer 

93de 0a asl mal 2 und 

Y3df 69 06 adc 506 plus 6 ergibt 

93el 90. 82 sta 532 Adresse Hi in Jobspeicher für Track und Sektor 

93e3 a9 00 lda s00 Adresse Lo 

93e5 83. „33 sta 533 für Track und Sektornummer 

93e7 98 tya Puffernummer 

9388 18 el plus 3 

93e9 69 03 adc 503 ergibt 

93eb 83: 31 sta s31 aktuelle Pufferadresse Hi für Job 

Y3ed a0 00 ldy s00 Pufferadresse Lo gleich 0 

Y93ef 84a 30 sty s30 setzen 

93EL 68 pla Jobcode zurückholen 

93£2 60 rts Ende 





B.3 Der Diskcontroller WD 1770 257 





01 
18 


$93£8 
#500 
$2c 
#584 
solbl 
S180£ 
#S£b 
Solbl 
S180£ 


Kontrollregister entsprechend Diskettensei- te 0 oder 1 
setzen. um damit die Hardware der Schreib-/Leseelektronik 
zu initialisieren. Das Carry-Flag gibt dabei die 
Diskettenseite an (Carry = 1 heißt Seite 1). 

verzweige, wenn Seite 1 

Wert für Seite 0 

nächsten Befehl überspringen 

Wert für Seite 1 

setzen 

Steuerregister lesen 

Bits für Hardwareorganisation löschen 

und mit Stellwert verknüpfen 

Hardware setzen 

Ende 


Werte für die Timersteuerung beim Schreiben und Lesen der 4 
unterschiedlichen Spurbereiche einer Diskette im GCR- 
Format. 

60 60 60 60 60 

20 20 20 00 00 


Anzahl der Sektoren pro Spur. 
15.18. 15:15 18 
12 412 12 11.11 





97 
18 


le 


00 


18 


le 
00 


95 


00 





50024,y 


S180£ 
59466 
$1c0l 
50024,y 


508 
9466 
$952£ 
s04 
s00 
S0016,y 


s947d 
s00 
s94b7 
s18 








Routine zum Suchen eines Blockheaders auf einem beliebigen 
Track ('SEEK'). Diese Routine ist analog bei $f3bl für die 
1541 vorhanden. 

90; Anzahl der Versuche 

setzen 

SYNC-Signal abwarten 

warten, bis 

Byte eingelesen 

Byte vom Diskcontroller holen 

und mit Kennzeichen für Blockheader vergleichen 
verzweige, wenn kein Blockheader 

sonst Byte merken 

und Zeiger auf nächstes GCR-Byte setzen 

warten, bis 

Byte eingelesen 

Byte vom Diskcontroller holen 

und abspei ehern 

nächstes Byte 

bis alle 8 Bytes eines Blockheaders 

gelesen worden sind 

Blockheader von GCR in Binär umwandeln 

Index in Blockheader setzen 

Anfangswert für Prüfsumme 

und Prüfsumme über Blockheader berechnen 
nächstes Byte 

und weitermachen 

hebt sich die Prüfsumme mit der echten auf? 
Fehler, wenn nein 

sonst Tracknummer des Headers 
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94 


99 








822 
$45 
#53 
94 
$12 
s16 
594 
$13 
$17 
94 
94 
$4b 
594 
#50 
$99 
$16 





0 
a9 


b4 


2 





übernehmen 

und Jobcode 

auf Kommando für 'SEEK' prüfen 
Ende, wenn ja 
sonst ID 1 
mit ID 1 des Blockheaders vergleichen 
Fehler, wenn ungleich 

ID 2 mit 
ID 2 des Blockheaders vergleichen 
Fehler, wenn ungleich 

nächsten Job für Diskette holen 
Zähler für Leseversuche vermindern 
weitermachen, wenn noch nicht Null 
Nummer für '20, READ ERROR' 

Fehler ausgeben 

ID 1 aus Blockheader 

übernehmen 
ID 2 aus Blockheader 
übernehmen 
Nummer für 'OK' 

nächsten Befehl überspringen 

Nummer für '29, DISK ID MISMATCH' 
nächsten Befehl überspringen 

Nummer für '27, READ ERROR' 

Meldungen ausgeben; Ende der Jobschleife 











93 

















Sucht den Job, der mit der geringsten Bewegung des Schreib- 
/Lesekopfes und damit mit dem geringsten Aufwand bearbeitet 
werden kann. Analog zu $f423 der 1541. 

Differenzwert für Sektornummer 

vorbesetzen 

Sektornummer aus Blockheader 

holen und 

2 addieren 

danach mit Maximum vergleichen 

verzweige, wenn kleiner 

sonst maximale Sektornummer abziehen, um 

den Nulldurchgang zu bekommen 

Maximale Puffernummer 

setzen 

zugehörige Pufferadresse 

setzen 
verzweige, wenn kein Jobcode vorhanden 
Drivenummer isolieren 

und mit aktueller Nummer vergleichen 
verzweige, wenn ungleich 

sonst Zeiger auf Tracknummer 

und Tracknummer für Puffer holen 

und mit aktueller Spur vergleichen 
verzweige, wenn ungleich 

Jobcode holen 

und auf Job für Programm ausführen testen 
verzweige, wenn ja 

sonst Zeiger auf Sektornummer des Jobs 
und 

Sektornummer für Job 

auf optimalen Wert prüfen 
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verzweige, wenn ja 

sonst 

Maximalanzahl der Sektoren abziehen 

und mit Differenz vergleichen 

verzweige, wenn größer 

Ergebnis merken 

Jobcode holen 

verzweige, wenn Job fur Sektor lesen 

sonst Ergebnis zurückholen 

und mit 9 vergleichen 

verzweige, wenn kleiner 

mit 12 vergleichen 

verzweige, wenn größer 

neue Differenz merken 

Puffernummer 

als Index nehmen 

und 

Pufferadresse Hi erre:hen 

und setzen 

unbedingter Sprung 

Differenz zurückholen 

mit 6 vergleichen 

verzweige, wenn kleiner 

sonst Puffernummer vermindern 

und weitermachen, wenn noch Puffer vorhanden 
Puffernummer 
verzweige, wenn günstiger Job für diesen Puffer 
sonst zur Jobschleife für Stepperbedienung 
Puffernummer setzen 
und Pufferadresse setzen; Jobcode holen 
Jobcode 
Jobcode prüfen; ggf. ausführen; Ende 


Blockheader von GCR-(5 Bit)-Format ins Binär-(4 Bit)-Format 
umrechnen. Analog zu $f497. Der GCR-codierte Header steht 
dabei ab $24; das Ergebnis wird ab $16 bis $la abgelegt und 


952£ 
9531 
9532 
9534 
9535 
2537 
9539 
953b 
953d 
9SSIE 
9541 
9544 
9546 
9548 
954a 
954c 








30 


s31 


#524 
s30 
#500 
s31 
#500 
34 
s98d9 
$55 
s18 
54 
19 
53 








zwar: 

$16 - ID 1 der Diskette 

$17 - ID 2 der Diskette 

$18 - Tracknummer des Blocks 
$19 - Sektornummer des Blocks 
$la - Prüfsumme über den Blockheader 
Pufferadresse Lo 

merken 

Pufferadresse Hi 

merken 

Pufferadresse Lo auf $24 
setzen 

Pufferadresse Hi auf $00 
setzen; ergibt $0024 
Pufferzeiger 

setzen 

ersten Teil des Blockheaders konvertieren 
Tracknummer 

holen und setzen 

Sektornummer 

holen und setzen 

Prüfsumme 
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954e 85 la sta Sla holen und setzen 

9550 20 d9 98 jsr 59849 zweiten Teil des Blockheaders konvertieren 

9553 a5 52 lda 552 10 2 holen 

9555 85 17 sta 17 und setzen 

2937 a5 53 lda 553 ID 1 holen 

9559 85 16 sta 516 und setzen 

955b 68 pla Pufferadresse Hi zurückholen 

leitet 85.31 sta s31 und wieder setzen 

955e 68 pla Pufferadresse Lo zurückholen 

955£ 85 30 sta s30 und wieder setzen 

9561 60 rts Ende 

I562,EE. 22% unbenutzter 

GSEE/ u VE Leerbereich 

9600 Sucht nach einem Blockheader und wartet das SYNC-Signal des 
folgenden Datenblocks ab. Analog zu $f50a der 1541. 

9600 20: 08» 97 jsr SIY970£ Blockheader suchen 

9603 4c 54 97 jmp 59754 SYNC-Signal abwarten 

9606 Prüft auf Jobcode für Lesen und liest ggf. den gewünschten 
GCR-Datenblock ein. Analog zu $f4ca 

9606 c9 00 cmp #500 Jobcode für Block lesen? 

9608 £0 03 beq s9604 verzweige, wenn ja 

960a 4c 6e 97 jmp 5976e sonst weiter prüfen 

9604 20 00 96 jsr 59600 gewünschten Blockheader suchen 

9610 2c 0£ 18 bit S180£ warten, bi s 

9613 3u> EB bmi 59610 Byte eingelesen 

9615 ad 01 Ic lda S1c0l Byte vom Diskcontroller holen 

9618 aa tax und merken 

9619 bd 0d a0 lda Sa00d,x Binäräquivalent zu GCR-Nibble holen 

Sale 83 52 sta 552 und merken 

96le 8a txa GCR-Byte zurückholen 

961f 29.07 and #507 Teil des zweiten GCR-Nibbles isolieren 

9621 85 53 sta 553 und merken 

9623 2c 0£ 18 bit S180£ warten, bis 

9626 30 f£b bmi 59623 Byte eingelesen 

9628 ad 01 Ic lda S1c0l Byte vom Diskcontroller holen 

962b 85 54 sta 554 und merken 

962d 29 © and #5c0 obere 2 Bits isolieren 

962£ 05..53 ora 553 und zu unteren 3 Bits summieren 

9631 aa tax Wert merken und 

9632 ba 0d 9£ lda S9£f0A,x Binäräquivalent holen 

9635 08-52 ora 552 mit erstem Wert verknüpfen 

9637 48 pha und merken (ergibt Datenblockkennzeichen) 

9638 4c 67 9% jmp 59667 restlichen Datenblock einlesen 

963b 2c 0£ 18 DIE S180£ warten, bis 

963e 30 f£b bmi 5963b Byte eingelesen 

9640 ad 01 Ic lda S1c0l Byte vom Diskcontroller holen 

9643 aa tax und merken 

9644 bd 04 a0 lda Sa00d,x Binäräquivalent holen 

9647 83.92 sta 552 und merken 

9649 8a txa Byte zurückholen 

964a 29 07 and #507 Lo-Teil isolieren; für 2. GCR-Nibble 

964c 85 53 sta 553 und merken 


964e 2c 0£ 18 bit S180£ warten, bis 
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9651 
9653 
9656 
9658 
965a 
965cC 
Y965A 
9660 
9662 
9664 
9665 
9667 
9669 
966a 
966d 
966£f 
9670 
9672 
9674 
9677 
967% 
967c 
967e 
9680 
9682 
9683 
9686 
9688 
968a 
968b 
968d 
968£f 
9691 
9694 
9696 
969% 
969b 
969d 
969 
96a0 
96a3 
96a5 
96a7 
96a8 
96ab 
96ad 
96af 
9660 
96b1 
9663 
9665 
96b8 
96ba 
Y96bd 
Y96bFf 
96c1 
Ihe3 
96c4 


Ic 


9T 


al 


18 


le 


IE 


18 


le 


3E 


a2 


18 


Te 


Ir 


bmi 
lda 
sta 
and 
ora 
tax 
lda 
ora 
sta 
iny 
beq 
lda 
tax 
lda 
sta 
txa 
and 
sta 
bit 
bmi 
lda 
sta 
and 
ora 
tax 
lda 
ora 
sta 
iny 
lda 
and 
sta 
bit 
bmi 
lda 
sta 
and 
ora 
tax 
lda 
sta 
lda 
tax 
lda 
ora 
sta 
iny 
txa 
and 
sta 
bit 
bmi 
lda 
sta 
and 
ora 
tax 
lda 


5964e 
$1c0l 
54 
#5$c0 
$53 


SsI9£f0d,x 
52 
(830),y 


s96d7 
$54 


Sal0d,x 
$52 


#501 
$54 
S180£ 
59674 
$1c0l 
$55 
#SE£O 
$54 


SIfOFf,x 
$52 
(530),y 


$55 
#S0£ 
$55 
S180£ 
59691 
$1c0ol 
$3a 
#580 
$55 


SIE£LA,x 
52 
$3a 


Sa20d,x 
52 
(830),y 


#503 
$3a 
S180£ 
$96b5 
$1c0l 
$53 
#$e0 
$3a 


$9f2a,x 


Byte eingelesen 

Byte vom Diskcontroller holen 

und merken 

obere 2 Bits isoliere. 

2. GCR-Nibble bilce 

und 

Binäräquivalent holen 

mit erstem Teil verknüpfen 
vollständiges Byte im Puffer ablegen 
Zeiger auf nächstes Byte 

verzweige, wenn fertig 

sonst Byte holen 

und merken 

Binäräquivalent holen 

und merken 

Byte zurückholen 

und Bit 0 isolieren 

Bit merken 

warten, bis 

Byte eingelesen 

Byte vom Diskcontroller holen 

und merken 

obere 4 Bits isolieren, 

3. GCR-Nibble bilden 

und 

Binäräquivalent holen 

mit vorherigem Wert verknüpfen 
vollständiges Byte in Puffer schreiben 
Zeiger auf nächstes Byte setzen 

Byte holen, 

untere 4 Bits isolieren 

und merken 
warten, bis 

Byte eingelesen 

Byte vom Diskcontroller holen 
merken 
oberes Bit isolieren 

und 4. GCR-Nibble bilden 
Wert merken 

und Binäräquivalent holen 
und merken 
GCR-Rest holen 

und merken 

Binäräquivalent holen 

und mit vorigem Wert verknüpfen 
vollständiges Byte in Puffer schreiben 
Zeiger auf nächstes Byte 

Wert zurückholen 

und untere 2 Bits isolieren 

Wert merken 

warten, bis 

Byte eingelesen 

Byte vom Diskcontroller holen 

und merken 

obere 3 Bits isolieren 

und mit vorigem Wert zu GCR-Nibble summieren 
Wert merken 

Binäräquivalent holen 
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96cc bd 0d4 a3 


96d4 4c 3b 96 


96da bd 0d al 


96e4 2c 0£ 18 


9689 ad 01 Ic 


IREN ba 0f 9£ 


96fd zu @8 E53 


9706 2E 
9707 a9 04 
9709 Ze 


52 
$53 


Sa30d,x 
52 
(830),y 


s963b 
$54 


Sal0d,x 
$52 


#501 
54 
S180£ 
$96e4 
$1col 
#S£0 
54 


SYIfOfFf,x 
$52 
$53 


547 
59707 
sf5e9 
553 
s970a 
#505 
$2c 
#504 


und merken 

Wert zurückholen 

und merken 

Binäräquivalent holen 

und mit vorigem Teil verknüpfen 
Byte in Puffer schreiben 

Zeiger auf nächstes Byte 

und weitermachen 

letztes GCR-Byte holen 

und merken 

Binäräquivalent holen 

und merken 

Wert zurückholen 

und Bit 0 isolieren 

Bit merken 

warten, bis 

Byte eingelesen 

Byte vom Diskcontroller holen, 
obere 4 Bits isolieren 

und GCR-Nibble bilden 

Wert merken 

Binäräquivalent holen, 

mit vorigem Byte verknüpfen 

und Wert merken 
Datenblockkennzeichen zurückholen 
mit richtigem Wert (normal 7) vergleichen 
verzweige, wenn falsch 

sonst Prüfsumme über Datenblock berechnen 
und mit abgespeichertem Wert vergleichen 
verzweige, wenn richtig 

sonst Nummer für '23, READ ERROR' 
nächsten Befehl überspringen 
Nummer für '22, READ ERROR' 
nächsten Befehl überspringen 
Nummer für 'OK' 

(Fehler)Meldung ausgeben; Ende 








970£ 

DT0E as 2 
9711 85 6 
3113 as 3 
e315 85 7 
0117 a0 00 
3713 bI 32 
971b 85 8 
971d c8 


2126 45 7 
9728 45 8 
972a 45 9 





9128 20 34 f£9 





Blockheader mit gegebenen Parametern suchen. Diese 
steht analog bei $£f510 für 1541. 
ID 1 holen 

und für Suche setzen 

ID 2 holen 

und für Suche setzen 

Zeiger in Jobspeicher setzen 
Tracknummer des Jobs holen 
und übernehmen 

Zeiger erhöhen 

Sektornummer des Jobs holen 
und übernehmen 

Startwert für Prüfsumme 

mit ID 1 verknüpfen 

mit ID 2 verknüpfen 

mit Tracknummer verknüpfen 
mit Sektornummer verknüpfen 
und Prüfsumme merken 
Blockheader in GCR umrechnen 
90 Leseversuche maximal 
setzen 





Routine 
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Tal 


97 
00 
18 


lc 





SYNC-Signal abwarten 

Byte des Blockheaders 

warten, bis 

Byte von Diskette eingelesen 

Byte vom Diskcontroller vergleichen 
verzweige, wenn ungeicr 

sonst Zeiger erhöhen 

und mit 8 (letztes Headerbyte) vergleichen 
weitermachen, wenn noch nicht fertig 
sonst Ende; alles ok 

Zähler für Leseversuche minus 1 

und weitermachen, wenn ungleich Null 
Nummmer der Fehlermeldung 

'20, READ ERROR' ausgeben 


Wartet ein SYNC-Signal auf Diskette ab Diese Routine stehht 


le 


99 
lc 


analog bei $f£556. 

Zähler für Leseversuche Hi 

Zähler für Leseversucne Lo (3840 Versuche) 
SYNC-Signal aufgetreten? 

verzweige, wenn ja 

sonst Zähler Lo vermindern 

und weitersuchen 

Zähler Hi vermindern 

und weitersuchen 

Nummer der Fehlermeldung 

'21, READ ERROR' ausgeben 

Byte lesen; Diskcontroller freimachen 
Index löschen 

Ende 





98 
£5 





Prüft auf Jobcode für Schreiben und schreibt ggf. den 


aktuellen Block als GCR-Sektor auf die Diskette. Analog zu 


sf56e bei der 1541. 

Jobcode für Schreiben? 

verzweige, wenn ja 

sonst Jobcode weiter prüfen 
Prüfsumme über Datenblock berechnen 
und abspeichern 
Steuerport des Diskcontrollers lesen und 
auf Schreibschutz testen 

verzweige, wenn kein Schreibschutz 

sonst Nummer der Fehlermeldung 

'26, WRITE PROTECT' ausgeben; Ende 
Pufferinhalt in GCR umwandeln 
Blockheader suchen 

Anzahl der Bytes, 

die überlesen 

werden müssen, um 

hinter den 

Blockheader zu 

kommen 

Schreib-/Lesekopf auf Ausgang 

schalten 

PCR laden und 

Elektronik auf 

Schreiben 

umschalten 
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97a8 a9 lda #S£ff Bytewert für SYNC 

97aa a0 05 ldy #505 Byte muß fünfmal geschrieben werden 

97ac 8d 01 Ic sta $1col Byte an Diskcontroller 

YTaf 2e DE 18 bit S180£ und 

37b2 30 & bmi S97af Schreibvorgang abwarten 

9704 22 00 le bit S1c00 Flag für BYTE READY löschen 

97b7 88 dey Anzahl der Bytes vermindern 

9768 a0: £5 bne SY97af und weitermachen 

97ba a0 bb ldy #S$bb Zeiger auf Ausweichpuffer 

97bc b9 00 01 lda 50100,y Byte holen 

97b£ 2c 0£ 8 bit S180£ warten, bis Diskcontroller 

97c2 3urE bmi S97b£E bereit für Schreiben 

97c4 8d 01 [e) sta S1c0l Byte an Diskcontroller übergeben 

97c7 c8 iny Zeiger auf nächstes Byte 

971c8 do £ bne $97bc und weitermachen 

97ca bl 30 lda ($30),y Byte aus Puffer holen 

97cc Ze s0E 8 bit S180£ warten, bis Diskcontroller bereit 

YIck sg € bmi $97cc zum Schreiben 

97al 8d 01 c sta S1c0l Byte an Diskcontroller übergeben 

97d4 c8 iny Zeiger auf nächstes Byte 

9745 do £ bne $97ca und weitermachen 

9747 2c 0£ 8 bit S180£ warten, bis 

97da 30: = bmi 59747 Diskcontroller bereit 

97dc ad 0c c lda $S1c0c und PCR lesen, 

Y9T7af 09 e0 ora #S$e0 um die Elektronik auf Lesebetrieb 

97el 8d 0c © sta Slc0c umzuschalten 

97e4 a9 00 lda #500 Schreib-/Lesekopf auf Eingang 

97e6 8d 03 (e) sta $1c03 schalten 

97e9 20 £9 97 jsr SI7EI Puffer von GCR in Binär umwandeln 

97ec a4 3£ ldy Ss3£f Puffernummer 

97ee b9 00 00 lda 50000,y Jobcode für Puffer 

SIEL 49 30 eor #530 in Jobcode für Verify umwandeln 

97£3 99 00 00 sta s0000,y und wieder übergeben 

97£6 4c 4f 94 jmp SY44£ Verify ausführen; Ende 

97£9 Routine wandelt den Inhalt des Ausweichpuffers und des 
aktuellen Puffers vom GCR-(5 Bit)-Format wieder in das 
Binär-(4 Bit)-Format um. Analog zu $£f5£2 bei der 1541. 

97£9 a9 00 lda #500 Pufferadresse Lo 

97£b 85 2e sta S2e setzen 

STEa 85 30 sta s30 setzen 

YITEE 85 4f sta Ssaf und Pufferzeiger setzen 

9801 a5 31 lda 531 Pufferadresse Hi 

9803 85 4e sta S4e setzen 

9805 a9. 91 lda #501 Pufferadresse Hi für Ausweichpuffer 

9807 85. 3 sta 531 setzen 

9809 85 2£ sta Ss2£ setzen 

980b a9 bb lda #S$bb Pufferadresse Lo für Ausweichpuffer 

9804 85 34 sta 534 als Pufferzeiger setzen 

980£f 85 36 sta 536 setzen 

9811 20 d9 98 jsr 59849 5 GCR-Bytes in 4 Binärbytes konvertieren 

9814 a5 52 lda 552 erstes Binärbyte 

9816 85 38 sta 538 ist Datenblockkennzeichen 

9818 a4 36 ldy 536 Pufferzeiger holen 

98la a5 53 lda $53 zweites Binärbyte 

98lc 91 2e sta ($2e),y in Puffer schreiben 


98le c8 iny Zeiger auf nächstes Byte 
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98lf 
2821 
9823 
9824 
9826 
9828 
9829 
982b 
982e 
9830 
4932 
9834 
9835 
9837 
9839 
983a 
983cC 
983€ 
984 
984 
984 
984 
984 
984 
984 
984 
984 





Ho oavooauwmro 


oo 
oo © 
[un SS 
Pr 


9853 
9854 
9856 
9859 
985b 
9854 
28SE 
9860 
9862 
9864 
9865 
9867 
9869 
986a 
986c 
986€ 
986£f 
9871 
28373 
2319 
9877 
9879 
987b 
987dA 
BBTE 
9881 
9883 
9884 
9886 


54 
Ze 


98 


98 











$54 
($2e),y 


$55 
($2e),y 


36 
s98d9 
36 

52 
($2e),y 


$53 
($2e),y 


s984a 
$54 
($2e),y 


$55 
($2e),y 


536 
s982b 
54 
(830),y 


$55 
(830),y 


536 
s98d9 
536 

52 
(830),y 


$53 
(830),y 


$54 
(830),y 


$55 
(830),y 


536 
#S$bb 
59856 
#545 
S2e 

s31 

Ss2£ 
#S$ba 
($30),y 
(S2e),y 


SIY8T7£ 
(830),y 


drittes Binärbyte 

in Puffer schreiben 
Zeiger auf nächstes Byte 
viertes Binärbyte 

in Puffer schreiben 
Zeiger auf nächstes S;.te 
merken 
5 GCR-Bytes in 4 Binärbytes konvertieren 
Pufferzeiger holen 

erstes Binärbyte 

in Puffer schreiben 

Zeiger auf nächstes Byte 

zweites Binärbyte 

in Puffer schreiben 

Zeiger auf nächstes Byte 

verzweige, wenn Ende erreicht 

drittes Binärbyte 

in Puffer schreiben 

Zeiger auf nächstes Byte 

viertes Binärbyte 

in Puffer schreiben 

Zeiger auf nächstes Byte 

merken 
und weitermachen, bis Ende 
drittes Binärbyte 

in aktuellen Puffer schreiben 
Zeiger auf nächstes Byte 
viertes Byte 
in aktuellen Puffer schreiben 
Zeiger auf nächstes Byte 
merken 
5 GCR-Bytes in 4 Binärbytes konvertieren 
Pufferzeiger holen 

erstes Binärbyte holen 

und in aktuellen Puffer schreiben 

Zeiger auf nächstes Zeichen 
zweites Binärbyte 
in aktuellen Puffer schreiben 
Zeiger auf nächstes Byte 
drittes Binärbyte 

in aktuellen Puffer schreiben 
Zeiger auf nächstes Byte 
viertes Binärbyte 

in aktuellen Puffer schreiben 
Zeiger auf nächstes Byte 
merken 
schon Ende erreicht? 





























verzweige, 


wenn nein 


Pufferadresse 


Lo 


neu setzen; zweiter Teil 


Pufferadresse 





Hi 


übernehmen 

Zeiger in Puffer 

und Pufferinhalt 

nach hinten verschieben 
weitermachen 

bis alles verschoben 
letztes Byte 
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01 


($2e),y 
#Sbb 

$0100,x 
(830),y 


s988cC 
s50 


ebenfalls verschieben 

Zeiger in Ausweichpuffer 

Zeichen aus Ausweichpuffer holen 

und in aktuellen Puffer verschieben 
Zeiger auf nächstes Zeichen 

setzen 

und weitermachen 

0; Flag für Puffer im Binärformat setzen 
Ende 








18 


le 


97 





Prüft auf Jobcode für Verify und vergleicht ggf. die Daten 
im Puffer mit denen auf der Diskette. Analog dazu auch 
sf691 für 1541. 

Jobcode für Verify? 

verzweige, wenn ja 

unbedingter Sprung 

Prüfsumme über Datenblock berechnen 
und merken 

Datenblock in GCR-Format umwandeln 
Blockheader suchen 

Zeiger in Ausweichpuffer 

Zeichen holen 

Lesevorgang des Diskcontrollers 
abwarten 

und Byte vergleichen 

verzweige, wenn ungleich 

Zeiger auf nächstes Byte 

und weitermachen 

Byte aus aktuellem Puffer 
Lesevorgang des Diskcontrollers 
abwarten 

und Byte vergleichen 

verzweige, wenn ungleich 

Zeiger auf nächstes Byte 

Ende erreicht? 

verzweige, wenn nein 

unbedingter Sprung 

nächsten Blockheader suchen 

Nummer für 'OK' 

nächsten Befehl überspringen 
Nummer für '25, WRITE ERROR' 
(Fehler)Meldung ausgeben; Ende 


Wandelt 5 GCR-(5 Bit)-codierte Werte aus dem Puffer in 4 
Binär-(4 Bit)-Bytes um und legt diese dann nach $56 bis $59 
ab. 

Pufferzeiger 

GCR-Byte aus Puffer holen 

und merken 

Bits 0 bis 2 isolieren 

und merken 

Zeiger auf nächstes Byte 

verzweige, wenn ungleich Null 

Pufferadresse Hi des aktuellen Puffers 

setzen 

Pufferadresse Lo als Zeiger 

GCR-Byte aus Puffer holen 

und merken 
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98£0 
98£2 
98£4 
98£6 
98£8 
98fa 
98£c 
98fd 
98ff 
9900 
2302 
9904 
9906 
9907 
9909 
990b 
990c 
990e 
9910 
9912 
9914 
2916 
29318 
991la 
291G 
991d 
OILE 
2921 
9923 
2925 
2927 
2929 
992b 
2924 
992£ 
2931 
922 
9934 
9936 
9939 
993b 
993€ 
9940 
9942 
9945 
9947 
994a 
994c 
994e 
29931 
9953 
9956 
9958 
995a 
995d 
995£ 
9962 
9964 


a0 


or 


al 


Fr 


GE 


a2 


9£ 


a3 


and 
ora 
sta 
lda 
and 
sta 
iny 
lda 
tax 
and 
ora 
sta 
txa 
and 
sta 
iny 
lda 
sta 
and 
ora 
sta 
lda 
and 
sta 
iny 
bne 
lda 
sta 
ldy 
sty 
lda 
sta 
and 
ora 
sta 
iny 
sty 
ldx 
lda 
ldx 
ora 
sta 
ldx 
lda 
ldx 
ora 
sta 
ldx 
lda 
ldx 
ora 
sta 
ldx 
lda 
ldx 
ora 
sta 
rts 





#5c0 
$57 
$57 
$58 
#501 
$59 


($830),y 


#S£0 
559 
559 


#S0£ 
$5a 


(530),y 
$5b 
#580 
$5a 

$5a 

$5b 
#503 
$5c 


59927 
S4e 

s31 

Ss4f 

$30 
(530),y 
$5d 
#S$e0 
$5c 

$5c 


534 
556 
Sa00d,x 
$57 
SI9£0A,x 
52 
558 
Sal0d,x 
559 
SIEOF,x 
553 
$5a 
SIELA,x 
s5b 
$a20d,x 
554 
$5c 
$S9f2a,x 
$5d 
Sa30d,x 
$55 


Bits 6 und 7 isolieren 

und mit Bits 0 bis 2 des ersten ertes verbinden 
1. GCR-Byte merken 

GCR-Byte holen 

und Bit 0 isolieren 

Wert merken 

Zeiger auf nächstes GCR-alte 

GCR-Byte aus Puffer hc e 

und merken 

Bits 4 bis 7 isolieren 

und mit vorigem Bit 0 verknüpfen 

2. GCR-Byte merken 

Wert zurückholen 

und Bits 0 bis 3 isolieren 

und merken 

Zeiger auf nächstes Byte 

GCR-Byte aus Puffer holen 

und merken 

Bit 7 isolieren, 

mit vorigen Bits 0 bis 3 verknpfen 

und 3. GCR-Byte merken 

Wert zurückholen 

Bits 0 und 1 isolieren 

und merken 

Zeiger auf nächstes Byte 

verzweige, wenn ungleich O0 

sonst aktuelle Pufferadresse Hi holen 

und übernehmen 
Pufferadresse Lo als Zeiger 
merken 
GCR-Byte aus Puffer holen 
und merken 
Bits 5 bis 7 isolieren 

und mit vorigen Bits 0 und 1 verknüpfen 
4. GCR-Byte merken 

Zeiger auf nächstes Byte 

merken 
1. GCR-Nibble 
Binäräquivalent holen 
2. GCR-Nibble 
Binäräquivalent holen und 
erstes Byte merken 

4. GCR-Nibble 
Binäräquivalent holen 
5. GCR-Nibble 
Binäräquivalent holen und 
zweites Byte merken 

7. GCR-Nibble 
Binäräquivalent holen 
8. GCR-Nibble 
Binäräquivalent holen und 
drittes Byte merken 

9. GCR-Nibble 
Binäräquivalent holen 
10. GCR-Nibble 
Binäräquivalent holen und 
viertes Byte merken 

Ende 
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9965 Ausweichpuffer $01bb bis $O1ff von GCR nach Binär 
umwandeln. Bytes werden dann im aktuellen Puffer abgelegt. 
Analog zu $f8eO. 
































9965 a9 00 lda #500 Pufferzeiger auf 0 

9967 85 34 sta 534 setzen 

9969 85 2e sta $2e Pufferadresse Lo 

996b 85 36 sta 536 Pufferzeiger 

996d #93. Q1 lda #501 Pufferadresse Hi 

996£f 85 4e sta S4e setzen 

9971 a9 ba lda #S$ba Puffer adresse Lo 

9973 85 4£ sta S4f setzen; ergibt $01ba 

9975 a5 31 lda s31 Pufferadresse Hi 

9977 85 22T sta Ss2£ übernehmen 

9979 20 d9 98 jsr 59849 5 GCR-Bytes in 4 Binärbytes konvertieren 

9970 a5 52 lda 552 erstes Byte 

997e 85 38 sta 538 als Kennzeichen des Datenblocks nehmen 

9980 a4 36 ldy 536 Pufferzeiger holen 

2982 20-58 lda 553 zweites Byte 

9984 91 2e sta ($2e),y in Puffer schreiben 

9986 c8 iny Zeiger auf nächstes Byte 

9987 a5 54 lda 554 drittes Byte holen 

9989 91 2e sta ($2e),y in Puffer schreiben 

998b c8 iny Zeiger auf nächstes Byte 

998C a5 55 lda $55 viertes Byte holen 

998€ 91 2e sta ($2e),y in Puffer schreiben 

9990 c8 iny Zeiger auf nächstes Byte 

9991 84 36 sty 536 merken 

9993 20 d9 98 jsr 59849 5 GCR-Bytes in 4 Binärbytes konvertieren 

9996 a4 36 ldy 536 Pufferzeiger holen 

9998 ab: 52 lda 552 erstes Byte der Umwandlung 

999a 91 2e sta ($2e),y in Puffer schreiben 

9996 c8 iny Zeiger auf nächstes Byte 

9994 £0O 11 beq 599b0 verzweige, wenn Null 

3I9IE a5 53 lda 553 zweites Byte der Umwandlung 

99al 91 2e sta ($2e),y in Puffer schreiben 

99a3 c8 iny Zeiger auf nächstes Byte 

99a4 a5 54 lda 554 drittes Byte der Umwandlung 

9936 91 2e sta ($2e),y in Puffer schreiben 

99a8 c8 iny Zeiger auf nächstes Byte 

99a9 a9. 08 lda $55 viertes Byte der Umwandlung 

99ab 91 2e sta ($2e),y in Puffer schreiben 

9Y9ad c8 iny Zeiger auf nächstes Byte 

99ae d0 el bne 59991 und weitermachen 

99b0 a5 2£ lda s2£ Pufferadresse Hi 

9352 > Sl sta s31 wieder setzen 

99b4 60 rts Ende 

99b5 Ausgang der 1571-Jobschleife mit Übergabe der Fehlernummer 
in A. Analog zu $£f969. 

99b5 a4 3£ ldy s3f Puffernummer 

99b7 99 00 00 sta s0000,y Rückmeldung in Jobspeicher 

99ba as 90 lda s50 Flag für Puffer enthält GCR-Bytes 

99bc £f0 03 beq s99c1 verzweige, wenn nicht gesetzt; alles ok 

99be 20 £9 97 jsr S9Y7£9 sonst Puffer nach Binär umwandeln 

sIel 20 8£ £9 jsr SfY98f Zähler für Ausschalten des Drivemotors setzen 

99c4 a6 49 ldx 549 Stackpointer zurückholen 
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und wieder setzen 
zurück zur Jobabfrage; 


99ca ad 07 lc 
99cd sa 05 16 
99dA0 ad 00 Ic 


99db ad ab 02 


99e4 8d ab 02 
29327 20 64 87 





99£0 ce ab 02 


99£fb 20 70 87 
99fe ad fe 02 


9a09 84 Fe. .02 





9al2 8d fe 02 
9al5 4c 56 9a 


9a23 4c c9 9a 


9a39 20 70 87 














Kontrollroutine für Diskcontroller des DOS. Hier erfolgt 
die Steuerung des Steppermotors und des Drivemotors. Analog 
zu $£f99c der 1541. 

Timer neu setzen; IRQ-Status 

löschen 

auf Diskettenwechsel 

testen 

wurde die Diskette gewechselt? 

Status merken 

verzweige, wenn ja 

Zählbyte für Motorverzögerung 

verzweige, wenn ungleich Null 

unbedingter Sprung; Motor ist aus 

Zähler für automatisches Anlaufen des Motors 
bei Diskettenwechsel setzen 

Drivemotor einschalten 

Flag für Diskettenwechsel 

setzen 

unbedingter Sprung 

Zähler für Motorverzögerung vermindern 
verzweige, wenn ungleich Null 

sonst Flags für Drivestatus holen 

otor aus? 

verzweige, wenn nein 

sonst Drivemotor ausschalten 

Byte für Kopfdejustierung bei Leseproblemen 
verzweige, wenn Kopf genau auf Track steht 
wurde Kopf gerade wieder auf Track gestellt? 
verzweige, wenn nein 

Flag für Kopf steht wieder auf Track 

setzen 

unbedingter Sprung 

Kopf steht auf einer Halbspur; also muß 

der Kopf eine Halbspur bewegt werden, um wieder 
richtig zu stehen 

Kopfbewegung ausführen 

Drivenummer für Jobschleife 

verzweige, wenn Drive inaktiv 

sonst Flags für Drivestatus lesen 

und merken 

otor an und Drive bereit? 

verzweige, wenn nein 

sonst zurück aus IRO-Programm 
Verzögerungszähler für Drivemotor 
verzweige, wenn ungleich Null 

Flags für Drivestatus holen 

verzweige, wenn Drive bereit 

sonst Flag für Drive bereit 

setzen 

und Flag für Motor in Ausschaltphase 
verzweige, wenn nicht gesetzt 

sonst Ausschaltverzögerung minus 1 

und weiter, wenn ungleich Null 

Motor ausschalten 

Flag für aktives Drive 
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Ya3e 85 3e sta $3e löschen 

9a40 a9 00 lda #500 Drivestatus auf 'inaktiv' 

9a42 85 20 sta 520 setzen 

9a44 £0 dd beq $9a23 unbedingter Sprung 

9a46 98 tya Flags für Drivestatus holen 

9a47 29 40 and #540 Steppermotor in Aktion? 

9a49 do 03 bne SYade verzweige, wenn ja 

9a4b 4c c9 9a jmp $S9ac9 $9ac9 sonst zurück aus IRQ-Programm 
Jade a5 62 lda 562 aktuelle Stepperroutine in Aktion? 

9a50 do 50 bne S9aa2 verzweige, wenn ja 

9a52 a5 4a lda S4a Anzahl der Schritte für Steppermotor 
9a54 £0 43 beq 59399 verzweige, wenn keine Kopfbewegung 

9a56 Steuerung der Kopfbewegung. 

9a56 a5 4a lda $S4a Anzahl der Schritte 

9a58 10 59 bpl $9ab3 verzweige, wenn Bewegung nach innen 
Ya5a 98 tya Flags für Drivestatus 

9a5b 48 pha merken 

Ya5c a0 63 ldy #563 Dauer einer Kopfbewegung in Schleifendurchläufen 
Ya5e ad 0£f 18 lda S180£ Steuerport lesen 

9a6l sa ror Zustand der lichtschranke bei Track 0 ins Carry 
9a62 08 php Zustand merken 

9a63 ad 0£ 18 lda S180£ Steuerport lesen 

9a66 sa EL Zustand der lichtschranke bei Track 0 
9a67 6a ror ins Bit 7 des Akku schieben 

9a68 28 plp vorigen Zustand zurückholen 

9a69 29 80 and #580 und auf Nullanschlag testen 

Yabb 90 04 bcec S9a7l verzweige, wenn Anschlag beim 1. Test 
Yabd 10 1d bpl SY9a8c verzweige, wenn Anschlag beim 2. Test 
Yabf 30 02 bmi 59a73 unbedingter Sprung; kein Anschlag 

9a7l 30 19 bmi SY9a8c verzweige, wenn kein Anschlag im 2. Test 
9a73 88 dey Zähler vermindern; Kopf noch in Bewegung? 
9a74 d0 e8 bne SYa5e verzweige, wenn ja 

9a76 bo 14 bcs SY9a8c sonst verzweige, wenn kein Anschlag 
9a78 a5 7b lda $7b Kopf n:ben Track.positioniert? 

Ya7Ta d0O 10 bne SY9a8c verzwelge, wenn Ja 

Y9aTrc ad 00 I1c lda $1c00 Steuerport des Diskcontrollers 

YaTf 29 03 and #503 Steppermotor eingeschaltet? 

Yasl do 09 bne SY9a8c verzweige, wenn ja 

9a83 68 pla sonst Flags für Drivestatus holen 

9a84 a8 tay und merken 

9a85 a9 00 lda #500 Anzahl der Schritte 

9a87 85 4a sta S4a zurücksetzen; keine Bewegung mehr 

9489 4c c9 9a jmp 59ac9 zurück aus IRQ-Programm; Ende 

Yasc 68 pla Flags für Drivestatus zurückholen 

Yasd a8 tay und merken 

Yase e6 4a inc S4a Schrittzähler vermindern (Invers, da negativ) 
9a90 ad 00 I1c lda $1c00 Steuerport lesen 

9a93 38 sec und 

9a94 e9 01 sbc #501 neue Ansteuerung für Steppermotorspulen 
9496 4c bb 9a jmp SYabb setzen 

9a99 a9 02 lda #502 Verzögerungszähler 

9a9b 85 48 Ssra 548 für weitere Bewegung setzen 

Ya9d 85 62 sta 562 Flag für langsamen Steppermodus setzen 
Yayf 4c c9 9a jmp s9ac9 zurück aus IRQ-Programm; Ende 

Yaa2 c6 48 dec 548 Zähler für Bremsen des Steppermotors 
Yaad d0 23 bne $9ac9 verzweige, wenn ungleich Null 


9aa6 a5 20 lda 520 Flags für Drivestatus 
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Steppermotor auf inaktiv 
setzen 
Flag für Stepper 
inaktiv setzen 
zurück aus IRQ-Programm; Ende 


Kopf eine Halbspur nach innen bewegen. 
Schrittzähler minus 1 

Steuerport des Diskcontrollers lesen 
und 

Stepperspulen für Bewegung neu setzen 





Steuerbits für die Steppermotorspulen je nach Kopfbewegung 
setzen. Die Bits 0 und 1 bestim- men dabei die 
Bewegungsrichtung. Nehmen sie die Werte 00/01/10/11/... an, 
so bewegt sich der Kopf nach innen; bei der Folge 
11/10/01/00/... bewegt sich der Kopf nach außen. 

Steuerbits isolieren 

und merken 

Steuerport lesen 

und Steuerbits isolieren 

neuen Bitstatus setzen 

und Steppermotor ansteuern 

Ende 








Steuerbytes für das Ausmessen einer Spur beim Formatieren. 
Jedem Zählwert für die Spurgröße ist dabei ein Wert für die 
Anzahl der Leerby- tes zwischen den Sektoren zugeordnet: 
Leerbytes 

Leerbytes 

Leerbytes 

Leerbytes 

Leerbytes 

Leerbytes 

Leerbytes 

Leerbytes 

Leerbytes 











and 

sta 

lda 

sta 

9a jmp 

dec 

le lda 

eLc 

adc 

and 

sta 

Ic lda 

and 

ora 

lc sta 

rts 
Bytes 
Bytes 
Bytes 
Bytes 
Bytes 
Bytes 
Bytes 
Bytes 
Bytes 

ldy 

ldx 

9A jsr 

9b jsr 

fe jsr 

ldy 

ldx 

lc bit 

bpl 

dex 

bne 

dey 

bne 

lda 

9a jmp 


Track für das Formatieren ausmessen, damit die Sektoren 
möglichst gleichmäßig verteilt werden. Hierbei wird die 
Größe einer Spur festgestellt. 

zähler Lo 

Zähler Hi; ergibt 7168 

Track mit 7168 mal $55 vollschreiben 

Track mit 5120 mal $£ff£f vollschreiben 

auf Lesen umschalten 

Zähler Hi setzen 

Zähler Lo setzen 

auf SYNC testen 

verzweige, wenn SYNC-Signal gefunden 

sonst Zähler vermindern 

und weitermachen 

Zähler Hi vermindern 

und weitermachen 

Nummer der Fehlermeldung 

'20, READ ERROR' ausgeben; Ende 
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Yafd a0 00 ldy #500 Zähler Lo setzen 

Yaff a2 00 ldx #500 Zähler Hi setzen 

9501 2200 Le bit S1c00 auf SYNC-Signal prüfen 

904 10 £b bpl 5901 warten, bis SYNC-Bereich zu Ende 

9b06 ad 00 I1c lda $1c00 Steuerport lesen 

909 c8 iny Zähler Lo erhöhen 

9b0a do 01 bne S9b0A verzweige, wenn ungleich 0 

9b0c e8 inx Zähler Hi erhöhen 

9b0dA 29 80 and #580 und auf SYNC-Signal prüfen 

I9b0£ d0 £5 bne 59b06 und auf SYNC-Signal warten 

9b11 a9 00 lda #500 sonst Zwischenspeicher 

9b13 85 3b sta $3b löschen 

9b15 8a txa Zähler gibt Größe des Feldes ohne SYNC an 
9b16 a2 08 ldx #508 Index auf größten Bytewert 

9b18 dd ca 9a cmp S9aca,x und Trackgröße feststellen 

9blb £0 05 beq 59b22 verzweige, wenn richtigen Tabellenwert gefunden 
9bld ca dex sonst Index auf nächsten Wert 

9ble 10 £8 bpl 59b18 und weitersuchen 

9b20 30 d6 bmi SYaf8 unbedingter Sprung; Fehler 

9b22 bd d3 9a lda $9ad3,x zugehörige Größe der Sektor lücke holen 
9b25 8d 26 06 sta 50626 und abspeichern 

9b28 60 rts Ende 

9b29 GCR-Formatierung einer Diskette. Jobroutine. 
9b29 a5 51 lda s51 Formatierung schon im Gange? 

9b2b 10 2b bpl 59b58 verzweige, wenn ja 

9b2d a9 60 lda 560 sonst Drivestatus auf Beginn eines Zugriffs 
9%b2£ 85 20 sta 520 stellen 

9531 ad b2 01 lda 501b2 Flag für Diskettenseite abfragen 

9b34 d0 03 bne 5939 verzweige, wenn Seite 1 formatiert werden soll 
9b36 a9 01 lda sol sonst Anfangstrack 1 für Seite 0 setzen 
9b38 2E .byte $2c nächsten Befehl überspringen 

9b39 a9 24 lda 524 Anfangstrack 36 für Seite 1 setzen 

9b3b 852122 sta 522 Tracknummer übernehmen 

Y9b3d 85. 51 sta s51 und für Formatierung setzen 

3b3£ c9 24 cmp 524 mit 36 vergleichen 

9b41 20° £3..893 jSE 593£3 Hardware entsprechend Seite 0 oder 1 setzen 
944 a9 a4 lda Sad Anzahl der Schritte für Nullanschlag setzen, 
9b46 85 4a sta S4a damit Kopf auf Startposition gebracht wird 
9b48 ad 00 Ic lda $1c00 Steuerport lesen 

9b4b 29 fe and Ste Bits für Steppermotor löschen 

9b4d 8d 00 Ic sta $1c00 und an Diskcontroller übergeben 

9550 a9 0a lda S0a 10 Versuche für Formatieren, bevor mit 

9b52 8d 20 06 sta 50620 Fehlermeldung abgebrochen wird, setzen 

9b55 4c ca 99 jmp 599ca zur Jobschleife, um Diskcontroller zu starten 
9b58 a0 00 ldy 500 Zeiger in Jobspeicher 

9b5a Bi. 32 lda (32), % Tracknummer holen 

9b5c es. 84 cmp s51 mit Track für Formatierung vergleichen 

I9b5e £0 07 beq 59b67 verzweige, wenn gleich 

9b60 as Sl lda s51 sonst Track für Formatierung 

9b62 91. 32 sta ($32),y übernehmen 

9b64 4c ca 99 jmp $99ca und Kopf positionieren 

9b6 7 ad 00 Ic lda S1c00 Steuerport lesen 

9b6a 293.19 and #510 Schreibschutz aktiviert? 

9b6c d0O 1b bne 59b89 verzweige, wenn nein 

9b6e a9 08 lda #508 Nummer der Fehlermeldung 

9b70 Ac- 51 94 jmp s9d51 '26, WRITE PROTECT ON' 
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18 


lc 
lc 


Einen Track mit $f£ff-Bytes beschreiben. 
Zähler Hi auf 20 setzen 

Bytewert für Schreiben 

warten, bis Diskcontroller 

bereit ist 

Byte auf Diskette schreiben 

und Rückmeldung für Ende des Schreibens lesen 
Zähler Lo vermindern 

und weitermachen 

Zähler Hi vermindern 

und weitermachen 

Ende 


vu vv vv vv vv vv vv oo vv vv vv vv vv vv vv vv vv vv vn DL DD DD 0 0 0 0 0 0 0 0 oo 





9a 
06 


06 


06 





(832),y 








s00 
(832) ,y 


50628 
(832) ,y 


s51 
(832) ,y 


$13 
(832) ,y 


$s12 
(832),y 


#50£ 
(832) ,y 


($832),y 


#507 
#500 
$3a 


(532),y 
$3a 
$3a 


Fortsetzung der Formatierroutine... 
sollen Sektoren gleichmäßig auf der Spur ver- 
teilt werden ('partial format')? 
ja, Track ausmessen; Kapazität feststellen 
Ergebnis der Ausmessung (unsinniger Befehl) 
(unsinniger Befehl) 
Pufferadresse Hi 
setzen 
Pufferadresse Lo 
setzen 
Nummer des ersten Sektors setzen 
Index in Puffer setzen 
Kennzeichen für Blockheader 
in Puffer schreiben 
Zeiger auf nächstes Zeichen 
Platzhalter für Prüfsumme (kommt später) 
in Puffer schreiben 
Zeiger auf nächstes Zeichen 
Sektornummer 
in Puffer schreiben 
Zeiger auf nächstes Byte 
Tracknummer 
in Puffer schreiben 
Zeiger auf nächstes Byte 
ID 2 
in Puffer schreiben 
Zeiger auf nächstes Byte 
ID 1 
in Puffer schreiben 
Zeiger auf nächstes Byte 
Füllbyte 
in Puffer schreiben 
Zeiger auf nächstes Byte 
Füllbyte nochmal in Puffer schreiben 
Zeiger auf nächstes Byte 
und 
merken 
Zähler für Anzahl der Bytes im Blockheader 
Startwert für Prüfsumme 
setzen 

Zeiger auf nächstes Byte im Blockheader 
Byte aus Blockheader holen, 
Prüfsumme bilden 
und merken 
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voveewvuvuvuuv6vv1vu vu vo 0 0 0 
oO 
® 
oo 








06 
06 


fe 


01 


£5 


E71 


9d 


18 


le 


Ile 


18 


le 
lc 








sI9bd0 
(832) ,y 


50628 
50628 
$43 
$9bal 
$03 
s31 
sfe30 
Sba 
(532),y 
45 
32 
(532),y 
s00 
$32 


sff 
SIbfl 
$44 
$Olbb,y 
($32),y 








$9c04 


#503 
#502 
s31 

#500 


($830),y 


$9c16 
sf5e9 
$3a 
SfeT8£ 
#500 
$1b 
#506 
59463 
#505 
S180£ 
$9c2e 
#S££ 
$1c0l 
$1c00 


$9c2e 
#50a 
$1b 
S180£ 
$9c42 
(532),Yy 
$1c0ol 
$1c00 


Zähler vermindern 

und weitermachen, bis Prüfsumme fertig 

Prüfsumme in Puffer schreiben 

Pufferzeiger zurückholen 

und wieder setzen 

aktuelle Sektornummer erhöhen 

und 

mit der maximalen Nummer vergleichen 
weitermachen, wenn kleiner 

Pufferadresse Hi 

setzen 

Blockheader von Binär- in GCR-Werte umwandeln 
Zeiger für Puffer setzen 

Byte aus Puffer holen 

Pufferadresse Lo 

neu setzen 

und Byte an anderer Position wieder in Puffer 
Pufferadresse Lo 

wieder auf alten Wert 

Pufferzeiger vermindern 

und alle Bytes verschieben, um 

Platz zu schaffen 

Pufferzeiger auf ersten, jetzt leeren Pufferteil 
Byte aus Ausweichpuffer 

in den leeren Pufferteil übernehmen 

Zeiger auf nächstes Byte 

und weitermachen, bis alle Bytes übertragen 
(unsinnige Operation) 

(unsinnige Operation) 

(unsinnige Operation); heißt normal lda #805 
Pufferadresse Hi auf $05 

Wert für Leerinhalt der Sektoren 

Index in Puffer setzen 

Leerbyte in Puffer 

auf nächstes Byte 

und ganzen Puffer füllen 

Prüfsumme über Puffer berechnen 

und abspeichern 

Puffer in GCR umwandeln 

Zeiger auf aktuellen Blockheader 

auf ersten Header setzen 

1536 mal $55 

auf Diskette schreiben 

Zähler für SYNC-Markierung 

warten, bis 
Diskcontroller bereit zum Schreiben 
Byte für SYNC-Markierung 

auf Diskette schreiben 

SYNC-Flag löschen 
und alle 5 Bytes 
auf Diskette schreiben 
Zähler für Blockheader 
Zeiger auf aktuellen Header 
warten, bis 
Diskcontroller bereit zum Schreiben 
Headerbyte aus Puffer holen 

und auf Diskette schreiben 
SYNC-Status löschen 
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9c4£ 
9c50 
9c51 
Bess 
9c55 
9c58 
9c5a 
9ce5c 
I9c5f 
9c62 
9c63 
9c65 
9c67 
9c69 
I9c6c 
I9c6be 
9c71 
9c74 
9275 
9c77 
2073 
I9cTc 
9cT7e 
9c8l 
9c84 
9c87 
9c88 
9c8a 
I9c8d 
Ic8f 
9c91 
9c94 
9097 
9c98 
9c9a 
9c9c 
I9c9£ 
9ca2 
9cad 
9ca7 
9caa 
9cab 
I9cad 
I9caf 
9cb0 
9cb2 
9chb4 
9cb7 
9cb3 


I9cbc 
Ichbf 
9ccl 
9cc4 
9cc7 
9cc9 
I9cecc 
I9cck 








18 


lc 
lc 





lc 
le 


06 


Ic 


18 


Le 
18 


lc 
fe 


iny 
dex 
bne 
ldy 
bit 
bmi 
lda 
sta 
bit 
dey 
bne 
lda 
ldy 
bit 
bmi 
sta 
bit 
dey 
bne 
ldy 
bit 
bmi 
lda 
sta 
bit 
iny 
bne 
bit 
bmi 
lda 
sta 
bit 
iny 
bne 
lda 
ldy 
bit 
bmi 
sta 
bit 
dey 
bne 
lda 
celc 
adc 
sta 
dec 
beq 
jmp 





bit 
bmi 
bit 
bit 
bmi 
bit 
jsr 
lda 





$9c42 
#509 

S180£ 
$9c55 
#555 

$1col 
$1c00 


59e55 
#Sff 

#505 

S180£ 
59c69 
$1col 
$1c00 


59c69 
#S$bb 
S180£ 
$9c79 
50100,y 
$1c0l 
$1c00 


$9c79 
S180£ 
$Ic8a 
($30),y 
$1c0l 
$1c00 


$Ic8a 
#555 

50626 
S180£ 
$Ic9£ 
$1col 
$1c00 


$Ic9£ 
S1b 


#50a 
$1b 
50628 
$Ichc 
$9c2c 


S180£ 
$Ichbc 
$1c00 
S180£ 
$9cc4A 
$1c00 
sfe00 
#508 


Zeiger auf nächstes Headerbyte 

Zähler vermindern 

und weitermachen, bis Header geschrieben 
Zähler für Lücke nach Blockheader 
warten, bis 
Diskcontroller bereit für Schreiben 
Füllbyte für Lücke 

auf Diskette schreiben 

SYNC-Status löschen 

Zähler vermindern 

und nächstes Lückenbyte schreiben 
Wert für SYNC-Markierung 

Anzahl der Bytes pro SYNC-Markierung 
warten, bis 
Diskcontroller bereit für Schreiben 
SYNC-Byte auf Diskette schreiben 
SYNC-Status löschen 

Zähler vermindern 
und weitermachen, bis SYNC fertig 

Zeiger in Ausweichpuffer 

warten, bis 

Diskcontroller bereit für Schreiben 

Byte aus Ausweichpuffer 

als Datenbyte auf Diskette schreiben 
SYNC-Status löschen 

Zeiger auf nächstes Byte 

und gesamten Puffer auf Diskette schreiben 
warten, bis 
Diskcontroller bereit für Schreiben 

Byte aus Puffer holen 

und als Datenbyte auf Diskette schreiben 
SYNC-Status löschen 

Zeiger auf nächstes Byte 

und gesamten Puffer auf Diskette schreiben 
Füllbyte für Lücke zwischen den Sektoren 
Anzahl der Lückenbytes 

warten, bis 
Diskcontroller bereit für Schreiben 

Füllbyte auf Diskette schreiben 

SYNC-Status löschen 

Zähler für Lücke vermindern 

und weitermachen 

Zeiger auf aktuellen Blockheader 

plus 10 addieren 

damit er auf den Anfang des nächsten Headers 
zeigt 

Anzahl der Sektoren vermindern 

verzweige, wenn Null 

sonst weitermachen; Blöcke schreiben 























warten, bis 

Diskcontroller bereit 
SYNC-Status löschen 

warten, bis 

Diskcontroller bereit 
SYNC-Status löschen 

auf Lesen umschalten 

Anzahl der Versuche bei Verify 
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9cdl 
I9cd4 
9cd6 
9cd8 
I9cda 
9cdd 
I9ce0 
9ce2 
9ce4 
9ce6 
9ce9 
9ceb 
9cee 
SEEN 
Sc£l 
9c£2 
I9c£4 
9c£5 
9c£7 
IcE8 
öckh 
Icfe 
9dA01 
9403 
9405 
9408 
9dA0b 
9dA0d 
9d10 
9413 
9415 
9418 
Y9dla 
9dlb 
Y9dld 
Yalf 
9422 
9424 
9427 
9429 
Y9d2a 
9d2c 
Y9a2£ 
9431 
9433 
9435 
9438 
Y9dA3a 
9dA3c 
YdA3d 
9a3f 
9441 
9444 
9446 
9448 
Yd4a 
9d4c 
9d4e 





06 


06 
97 


18 


lc 


9d 
06 


9d 
97 


01 
18 


iKo: 


18 


Te 


06 


01 


99 


99 


sta 
lda 
sta 
lda 
sta 
jsr 
ldx 
ldy 
lda 
bit 
bmi 
cmp 
bne 
iny 
dex 
bne 
clc 
lda 
adc 
sta 
jmp 
dec 
bne 
lda 
jmp 
jSE 
ldy 
lda 
bit 
bmi 
cmp 
bne 
iny 
bne 
lda 
bit 
bmi 
cmp 
bne 
iny 
bne 
dec 
bne 
inc 
lda 
bit 
bmi 
cmp 
.byte 
cmp 
bcs 
jmp 
lda 
sta 
lda 
sta 
lda 
jmp 





50623 
#500 
$1b 
$43 
50628 
59754 
#50a 
$1b 
(532),Yy 
S180£ 
$9Ice6 
$1c0ol 
$Icfe 


$I9ce4 


$1b 
#50a 
$1b 
59408 
50623 
$Y9cd4 
#506 
$s9a5l 
59754 
#Sbb 
s0100,y 
S180£ 
$9dA10 
$1c0l 
$Icfe 


sI9aA0d 
($30),y 
S180£ 
SIalf 
$1col 
$Icfe 


SYald 
50628 
SIcdd 
s51 
s51 
$01lbl 
$Y9aA3d 
524 
$2c 
547 
59444 
$99ca 
Ss££ 
s51 
$00 
$50 
sol 
$99b5 








setzen (200) 

Zeiger auf aktuellen Blockheader 

löschen 

Anzahl der Sektoren des Tracks 

als Zähler setzen 

SYNC-Signal abwarten 

Zähler für Anzahl der Bytes des Blockheaders 
Zeiger auf aktuellen Blockheader 

Byte aus Puffer 

warten, bis 

Byte eingelesen 

Byte mit Pufferinhalt vergleichen 

verzweige, wenn ungleich 

sonst Zeiger in Puffer erhöhen 

und Zähler für Header vermindern 
weitermachen, bis ganzer Header verglichen 
Addition vorbereiten 

und Zeiger auf aktuellen Blockheader 

auf nächsten Blockheader 

setzen 
weiter; Datenblock vergleichen... 
Zähler für Versuche vermindern 

und weiter probieren, wenn ungleich 0 
sonst Nummer der Fehlermeldung 

'24, READ ERROR' ausgeben 

SYNC-Signal abwarten 
Zeiger in Ausweichpuffer setzen 
Byte aus Ausweichpuffer 

warten, bis 
Byte von Diskette eingelesen 

und Byte mit Pufferinhalt vergleichen 
verzweige, wenn ungleich 

sonst Zeiger in Puffer erhöhen 

und weiter vergleichen 

Byte aus Puffer 

warten, bis 

Byte eingelesen 

Byte mit Pufferinhalt vergleichen 

verzweige, wenn ungleich 

Zeiger auf nächstes Byte 

und weitermachen, bis ganzer Puffer verglichen 
Zähler für Sektoren vermindern 

und weitermachen, bis ganze Spur geprüft 
Tracknummer erhöhen 

und 

je nach Diskettenseite 

mit 

dem Maximalwert 36 oder 

(nächsten Befehl überspringen) 

mit dem Maximalwert 71 vergleichen 

in jedem Fall verzweigen, wenn größer 

sonst zur Jobschleife; Kopf auf nächsten Track 
Flag für laufende Formatierung 

löschen 

Flag für Pufferinhalt im GCR-Format 

löschen 

Nummer der Meldung 

'00, OK' ausgeben; Ende 
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06 


99 


Fehlerausgang beim Formatieren. 

Zähler für Versuche vermindern 
verzweige, wenn kein Versuch mehr 
sonst zur Jobschleife und weitermachen 


andernfalls Flag für laufende Formatierung 


löschen 
und 
Flag für Puffer im GCR-Format löschen 


Fehlernummer in A übergeben; Ende 





PCR lesen 
und auf 


umschalten 

Port für Schreib-/Lesekopf 
auf Ausgang schalten 

üllbyte 

Zähler Lo 

warten, bis 

Diskcontroller bereit für Schreiben 
SYNC-Status löschen 

Byte auf Diskette schreiben 

Zähler Lo vermindern 

und weitermachen 

Zähler Hi vermindern 

und weitermachen 

Ende 














40 


02 


18 


18 


02 


02 


lc 


lc 


9d 
18 





Sa00d 
#508 
$SY9dba 
S02af 
$SY9dba 
S180£ 
520 
S180£ 
Sde 
502a9 
s9a 
S02aa 
s40 
$1c07 
$1c05 
$00 
62 
$Ydea 
51804 
502 








IRO-Routine für die Floppy im 1541-Modus. 
Akku retten 

X.Register 

retten 

V-Register 

ebenfalls retten 

Steuerport für seriellen Bus lesen 
wurde ein Byte eingelesen? 

verzweige, wenn nein 

Flag für 1571-IRQ gesetzt? 

verzweige, wenn nein 

sonst Steuerregister lesen 

und Elektronik auf 1571-Modus 

(2 MHz) umschalten 

Adresse Lo für IRQ-Routine 

setzen 

Adresse Hi 

setzen; $9dde Vektor für 1571-Routine 
Timer 

auf 8 ms Takt 

setzen und starten 

Flag für Steppermotor in Aktion 
löschen 

weiter zur 1571-IRQ-Routine 

Flags für IRQ lesen 

und isolieren; IRQ vom seriellen Bus? 


Füllbytes $55 auf Diskette schreiben. X bestimmt dabei die 
Anzahl der 256-Byte-Blöcke, die geschrieben werden sollen. 
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9dabf £0 03 beq $9dc4 verzweige, wenn nein 

9dcl 20 53 e8 jsr $e853 zur Behandlung des seriellen Bus 

9dcA ad Od Ic lda S1c0d Flags für IRQ lesen 

9dc7 0a asl und isolieren 

94c8 10 03 bpl SYdcd verzweige, wenn kein IRQ vom Diskcontroller 
9dca 20 bo £2 jsr Sf2b0 sonst zur Jobschleife 

9dcd ba tsx Stackpointer merken 

9dce bda 04 01 lda 50104,x Prozessorstatus vom Stack holen 

Yddl 29 10 and #510 und auf IRQ wegen BRK-Kommando testen 
9ddA3 £0 03 beq $Y9Ad8 verzweige, wenn kein BRK 

9dd5 20 bo £2 SE Sf2b0 sonst zur Jobschleife 

9Ad8 68 pla Y-Register zurückholen 

9dd9 a8 tay und setzen 

Ydda 68 pla X-Register zurückholen 

Y9ddb aa tax und setzen 

9ddce 68 pla Akku zurückholen 

Yddd 40 rti und Ende des IRQ 

Y9dde IRQ-Routine für Floppy im 1571-Modus. 
9dde 48 pha Akku retten 

Ydaf 8a txa X-Register 

9de0 48 pha retten 

9del 98 tya Y-Register 

9de2 48 pha ebenfalls retten 

9de3 ad 0d 40 lda 54004 Steuerregister für seriellen Bus lesen 
9de6 29 08 and 508 wurde ein Byte eingelesen? 

9de8 £f0 08 beq SIaf£2 verzweige, wenn nein 

Idea a5 37 lda 537 sonst Flags für Busbetrieb holen und 
9dec 09 40 ora s40 Flag für schnellen Busmodus 

9dee 85 37 sta 537 setzen 

9aAfO do 22 bne S9el4 unbedingter Sprung 

Y9df2 ad Od 18 lda s1804 IRO-Flags von Buscontroller holen 
9a£5 29 02 and 502 kam Interrupt vom seriellen Bus? 

94£7 £ 07 beq SI9e00 verzweige, wenn nein 

YaAf9 20: 01. 18 bit s1801 sonst IRO-Flag löschen 

Ydfc a9 01 lda sol und Flag für ATN 

9dfe 85 Tc sta STc setzen 

9e00 ba car Stackpointer merken 

9e0l bad 04 01 lda 50104,x Prozessorstatus holen 

9e04 29 10 and s10 und auf IRQ durch BRK-Kommando prüfen 
9e06 = 03 beq S9e0b verzweige, wenn kein BRK 

9e08 20 ba 92 jsr 592ba sonst Jobschleife aufrufen 

9e0b ad Od Ic lda S1lc0d IRQ-Flags von Diskcontroller holen 
Jede 0a asl und auf IRQ vom Diskcontroller testen 
geüf 0: 93 bpl S9el4 verzweige, wenn nicht aufgetreten 
gell 20 ba 92 jsr 592ba sonst Jobschleife aufrufen 

Jel4 68 pla Y-Register zurückholen 

9el5 a8 tay und setzen 

9el6 68 pla X-Register zurückholen 

9el7 aa tax und setzen 

9el8 68 pla Akku zurückholen 

9e19 40 rti Ende 

9ela ff... unbenutzter 


IEIC. m ER Leerbereich 
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vu vo vo 0 0 0 0 
hRhhhhhhhhhıı 
0 
jo 





mHoohhhho$omnmoh 
h 








Tabelle für die Umwandlung von GCR-(5 Bit)- ibbles in die 
entsprechende Binärnibbles. Die Tabelle ist hierbei für die 
Umwandlung der Nibbles 2, 4, 5 und 7 zuständig. $ff 
bezeichnet dabei die illegalen GCR-Werte. 








ff 09 Da Ob ff 
60 AD a0 50 e0D 
Fe.60. 01 70 EL 
et e0 05 80 E£ 
Ef ££ 03 ER £E 
e£ ff 07 00 20 
ee 22.06 EEE 
FE 22.22.19 30 
Er FESEE GE € 

70 90 b0 d0 £ 

b5 00 30 fc 60 








Routine erzwingt die Ausführung eines Jobs durch den BRK- 
Befehl, der einen IRO auslöst. Aus Platzersparnis wurde 
diese kleine Routine in die Umwandlungstabelle gelegt, wo 
sonst normalerweise $ff-Bytes stehen würden. Nach Aufruf 
wird das Ende des Jobs abgewartet und die Rückmeldung in 
den Akku übernommen. 
Kommando zum Auslösen eines IRQ 
Rückkehr nach Ende des IRQ nach $9£fbB 
Rückmeldung aus Jobspeicher 

warten, bis Job beendet 

Ende 























ff Er 
40 40 50 
0a De 80 
20 20 30 
Da Da £O 
60 60 70 
0b £f£ 90 
a0 a0 bO 
EL. EE.dU 
e0 e0 05 


Er Bee € 


GCR-Binär-Umwandlungstabelle für 1. GCR-Nibble. 
ff 09 0a Ob ff 

60 40 a0 50 e0 
Ff£ 60 01 70 ££ 
ff e0 05 80 ff 
80 80 80 80 80 
0 10 10 10 10 
ei ed 50.20 co 
50 50 50 50 50 
80 80 80 80 80 
30 30 30 30 30 
£0 £O £O £O £0O 
70 70 70 70 70 
90 90 90 90 90 
b0O bO bO bO bO 
d0 dO dO dO dO 
05 05 05 50 70 
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al0d GCR-Binär-Umwandlungstabelle für 3. GCR-Nibble. 
load. EL: EL LEE .FE-Er EE-ER EEET:EE EEE CE EEE Er 
alld £ff £f£f 80 80 00 00 10 10 ££ £f£ c0 c0 40 40 50 50 
al2d ££ ff ££ £f£f 20 20 30 30 ££ £f £O £O 60 60 70 70 
al3d ff £f£ 90 90 a0 a0 bO bO f£ f£ d0O d0 e0 e0 ff ff 
alAd. Ef. Er EL LEER, LE ER LEITE EEE DE EEE ER EEE 
al5d ff £f£f 80 80 00 00 10 10 ££ £f£ c0 c0 40 40 50 50 
al6d £ff £f£ ££f £f£ 20 20 30 30 ££ ££ £O £O 60 60 70 70 
al7d £f ££ 90 90 a0 a0 bO bO f£ f£ d0O d0 e0 e0 ff ff 
alsd! ££ EEE ER.E£E ££ EL ER £r Ei EEE FE FE FREE EEE 
al9d £ff £f£ 80 80 00 00 10 10 ££ £f£ c0 c0 40 40 50 50 
alad £ff £f£ ££f £f£ 20 20 30 30 ££ ££ £O £O 60 60 70 70 
alba £ff ff 90 90 a0 a0 bO bO ff £f£ d0O d0 e0 e0 ff ff 
aled. E£ Ef Ef LE Ef ER EEVfE LEE EEE LE CE TE ee € 
aldd ff £f£f 80 80 00 00 10 10 £f£ £f£ c0 c0 40 40 50 50 
aled ff £f£f ££f £f£ 20 20 30 30 ££ ££ £O £O 60 60 70 70 
alfd ff £f£ 90 90 a0 a0 bO bO f£ £f£ d0O d0 e0 e0 ff £ 
a20d GCR-Binär-Umwandlungstabelle für 6. GCR-Nibble. 
a20d ff £f £ 

a2ld ££f ff £ 

a22d ££ ff £ 

a23d ff ff £ 

a24d ££f ff £ 

a25d ff ff £ 

a26d ff ff £ 

a2Tıda £f£f ff £ 

a28d ff £f £ 

a29d ff £f £ 

azad ££f ff £ 

a2ba ff ff £ 

azed ff ff £ 

a2dda ff £ff £ 

a2ed ff ff £ 

a2fd ££f ff £ 

a30d GCR-Binär-Umwandlungstabelle für 8. GCR-Nibble. 
a30d £f ££ ££ ££ ££ ££ ££ ££ ££ 08 00 01 £f£ 0c 04 05 
aald ff £f£ 02 03 ££ 0£ 06 07 ££ 09 0a Ob ££f Od Oe £ 
a32d £f ££ ££ ££ ££ ££ ££ ££ ££ 08 00 01 £f£ 0c 04 05 
a33d ff £f£ 02 03 ££ 0£ 06 07 ££ 09 Oa Ob ff Od De £ 
as4d £f ££ ££ ££ ££ ££ ££ ££ ££ 08 00 01 £f£ 0c 04 05 
a35d ff £f£ 02 03 ££ 0£ 06 07 ££ 09 Oa Ob ff Od De £ 
a36d ff ££ ££ ££ ££ ££ ££ ££ ££ 08 00 01 £f£ 0c 04 05 
a37d ff £f£ 02 03 ££ 0£ 06 07 ££ 09 0a Ob ££f Od Oe £ 
a38d ff ££ ££ ££ ££ ££ ££ ££ ££ 08 00 01 £f£ 0c 04 05 
a39d ff £f£ 02 03 ££ 0£ 06 07 ££ 09 0a Ob ff Od Oe £ 
a3ad ff ££ ££f ££ ££ ££ ££ ££ ££ 08 00 01 £f£ 0c 04 05 
a3ba ff £f£ 02 03 ££ 0£ 06 07 ££ 09 Oa Ob ff Od Oe £ 
a3ed ff ££ ££f ££ ££ ££ ££ ££ ££ 08 00 01 £f£ 0c 04 05 
aadd ff £f£ 02 03 ££ 0£ 06 07 ££ 09 Oa Ob ££f Od De £ 
a3ed ff ££ ££f ££ ££ ££ ££ ££ ££ 08 00 01 £f£ 0c 04 05 
aafd ff £f£ 02 03 ££ 0£ 06 07 ££ 09 0a Ob £f Od De £ 
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a40d 

a40d a9 
*]l a40f8d 
*0 a4a0f8d 
a4l2 a9 
a4l4 20 
a4l7 a2 
a419 a9 
a4lb 8d 
a4dle a9 
a420 85 
a422 93 
a424 20 
a427 e9 
a429 b0 
a42b a0 
a42d a9 
aa2f 85 
a4s3l a9 
a433 85 
a435 a9 
a437 95 
a439 20 
a43c c9 
a43e 90 
a440 88 
adal 10 
a443 b0 
*]l a445 a9 
*0 a44560 
*0 a446ea 
a4a7 8d 
adda a9 
a44c 85 
ad4e 95 
a450 20 
a453 c9 
a455 b0 
a457 a0 
a459 a9 
a45b 85 
a45sd a9 
a4asf 85 
a46l a9 
a463 95 
a465 20 
a468 c9 
adba b0 
a46c 60 
a46d 88 
a4be 10 
a470 a2 
a472 Ze 
a475 se 
a478 10 
a4Tla 60 
a47b 4c 


02 
fe 


d6 


01 


IE 


IE 


01 


9£ 


IE 


02 
02 


e6 

















Formatieren einer Diskette im GCR-Format. 
Anzahl der zu formatierenden Tracks 
setzen 

(gilt nicht für 1570) 

Puffernummer 

Parameter für Diskcontroller setzen 
Puffernummer 

Diskettenseite 0 

setzen 

Jobcode für Formatieren einer Diskette 
setzen 

und an Diskcontroller übergeben 

Job ausführen und Ende abwarten 
Fehler? 

verzweige, wenn ja 

4 Leseversuche setzen (3+1, da Zählung mit 0) 
Tracknummer 1 

für Puffer 3 in Jobspeicher 
Sektornummer 0 

für Puffer 3 in Jobspeicher 

Jobcode für Block lesen 

an Diskcontroller übergeben 

Job ausführen und Ende abwarten 
Fehler? 

verzweige, wenn nein 

Zähler für Versuche vermindern 

und noch einmal probieren 

unbedingter Sprung; Fehler 
Diskettenseite 1 

keine Behandlung für zweite Diskettenseite 
(Rest) 

setzen 

Jobcode für Formatieren einer Diskette 
setzen 

und an Diskcontroller übergeben 

Job ausführen und Ende abwarten 
Fehler? 

verzweige, wenn ja 

Anzahl der Leseversuche (3+1) 
Tracknummer 36 

für Puffer 3 in Jobspeicher 
Sektornummer 0 

für Puffer 3 in Jobspeicher 

Jobcode für Block lesen 

an Diskcontroller übergeben 

Job ausführen und Ende abwarten 
Fehler? 

verzweige, wenn ja 

Ende; alles ok 

Zähler für Versuche vermindern 

und nochmal probieren 

Flag für Fehler setzen 

vorherigen Fehlerstatus prüfen 

neuen Status setzen 

verzweige, wenn Fehlerbehandlung erfolgen soll 
sonst Ende; alles ok 

zur Fehlerbehandlung; Ende 
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Verzögerungsschleife von ca. 30 Taktzyklen. 
X-Register merken 

Zählwert für Verzögerung 

unbedingter Sprung; weiter... 


Verzögerungsschleife von ca. 70 Taktzyklen. 
X-Register merken 

Zählwert für Verzögerung 

Zähler vermindern 

und weitermachen 

X-Register zurückholen 





Pufferzeiger für BAM retten. 
Pufferzeiger Lo 

merken 
Pufferzeiger Hi 
merken 





Pufferzeiger für BAM wieder holen. 
Pufferzeiger Lo 

wieder setzen 
Pufferzeiger Hi 
wieder setzen 
Ende 











00 


a4 








Erweiterung der Routine zum Setzen des BAM- Zeigers auf ein 
bestimmtes Bitmuster für die zweite Diskettenseite. 
aktuelle Drivenummer 

Drivestatus holen 

verzweige, wenn in Ordnung 

sonst Nummer der Fehlermeldung 
‘74, DRIVE NOT READY' ausgeben 
Kanalnummer für BAM holen 

BAM von Diskette lesen 

BAM 'dirty' Flag 

verzweige, wenn nicht gesetzt 
sonst setzen 

und wieder abspeichern 
unbedingter Sprung 

BAM auf Diskette schreiben 
Pufferzeiger für BAM merken 

neuen Pufferzeiger setzen 
aktuelle Tracknummer 

minus 36 

um Absolutwert für zweite Seite 
zu erhalten 

entsprechenden Eintrag holen 

und merken 

Pufferzeiger für BAM wieder holen 
BAM-Eintrag zurückholen 

Ende 





unbenutzter 
Leerbereich 
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unbenutzter Leerbereich 
bei der 1571 


steve la 


a5 


01 
ef 


01 





#524 


Sa5db,y 


sel 
#507 


SO146,y 
Sefe9,x 


$S0146,y 


BAM-Belegung eines Sektors holen. Erweiterung für zweite 
Diskettenseite. 

aktuelle Tracknummer 

minus 36 

für Absolutwert der Tracknummer 

setzen 
aktuelle Sektornummer 

geteilt durch 8, 

da ein Byte für 

8 Sektoren zuständig ist 

Byteposition 

plus Trackposition in der BAM 

als Index 

Sektornummer 

auf 0 bis 7 begrenzen 

und als Index 

Bitmuster aus BAM holen 

und entsprechendes Sektor-Bit isolieren 
Bit merken 

Bitmuster nochmal holen 

und Bit-Status zurückholen 

Ende 





a4 
a5 


Anzahl der freien Blöcke eines Tracks in der BAM nach 
Freigeben eines Blocks erhöhen. 

Pufferzeiger für BAM merken 

neuen Pufferzeiger setzen 

aktuelle Tracknummr 

minus 36, 

um den Absolutwert 

für die zweite Diskettenseite zu bekommen 

und 

entsprechende Anzahl der freien Blöcke der Spur 
um eins 

erhöhen 

Pufferzeiger für BAM wieder holen; Ende 





4d 04 
a5 80 
38 
e9 24 
a8 
a5 81 
4a 
4a 
4a 
18 
79- dk 
a8 
a5 81 
29 07 
aa 
b9 46 
3d e9 
08 
b9 46 
28 
60 
20 8b 
20 34 
a5 80 
38 
e9 24 
a8 
18 
bl 6d 
69 01 
91 6d 
4c 96 
20 8b 
20 34 
a5 80 
38 
e9 24 
a8 
38 
bl 6d 
e9 01 
91 6d 
4c 96 


Anzahl der freien Blöcke eines Tracks in der BAM nach 
Belegen eines Blocks vermindern. 

Pufferzeiger für BAM merken 

neuen Pufferzeiger setzen 

aktuelle Tracknummer 

minus 36, 

um den Absolutwert 

für die zweite Diskettenseite zu bekommen 

und 

entsprechende Anzahl der freien Blöcke der Spur 
um eins 

vermindern 

Pufferzeiger für BAM wieder holen; Ende 
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a534 Pufferzeiger für BAM setzen. 

a534 a2 0d ldx #50A Kanalnummer 13 

a536 b5 a7 lda Sa7,x zugehörige Puffernummer holen 

a538 29 DE and #S0f und isolieren 

a53a aa tax als Index 

a53b bda e0 fe lda Sfee0,x Pufferadresse Hi holen 

a53e 85 6e sta S6e und setzen 

a540 a9 dd lda #S$dd Pufferadresse Lo holen 

a542 85 6d sta S6d und setzen 

a544 60 rts Ende 

a545 BAM der zweiten Diskettenseite auf Richtigkeit der Angaben 
über die freien Blöcke überprüfen. 

a545 a5 6£ lda Ss6£f Wert aus Zwischenspeicher 

a547 48 pha merken 

a548 a5 80 lda s80 aktuelle Tracknummer 

a54a 38 sec minus 36, um 

a54b e9 24 sbc #524 den BAM-Absolutwert 

a54d a8 tay zu erhalten 

a5b4e 48 pha Wert merken 

ab4f 20 8b a4 jSE Sa48b Pufferzeiger der BAM merken 

a552 20 34 a5 jsr Sa534 neuen Pufferzeiger setzen 

a555 bl 6d lda ($S6dA),Yy Anzahl der freien Blöcke des Tracks 

a557 48 pha merken 

a558 a9 00 lda s00 ersten Additionswert 

a55a 85 6f sta Ss6£f setzen 

a55c a9 01 lda sol Pufferadresse Hi für erweiterte BAM 

a55e 85 6e sta S6e der zweiten Diskettenseite setzen 

a560 b9 db a5 lda Sa5db,y Position des Bitmusters in der BAM holen 

a563 18 clc und 

a564 69 46 adc 546 auf die Pufferadresse ($0146 bis $01ba) 

a566 85 6d sta S6d umrechnen 

a568 a0 02 ldy 502 Anzahl der Bitmuster pro Track minus 1 

a56ba a2 07 ldx 507 Anzahl der Bits pro Byte minus 1 

a56c bl 6d lda ($6d),y Bitmuster holen 

a56be 3d e9 ef and Sefe9,x und aktuelles Bit isolieren 

a57l £ 02 beq $a575 verzweige, wenn Block belegt 

a573 e6 6£ ine Ss6£f sonst Anzahl der freien Blöcke erhöhen 

a575 ca dex Zähler für Bits vermindern 

a576 0 £4 bpl Sa56c und nächstes Bit untersuchen 

a578 88 dey Zähler für Bytes vermindern 

a579 0 ef bpl Sa56a und nächstes Byte untersuchen 

a57b 68 pla Anzahl der freien Blöcke des Tracks 

a5T’c c5 6£f cmp Ss6£f mit neu errechnetem Wert vergleichen 

a57e £ 05 beq $a585 verzweige, wenn richtig 

a580 a9 71 lda #571 sonst Nummer der Fehlermeldung 

a582 20 45 e6 jsr $e645 '71, DIR ERROR' ausgeben 

a585 68 pla aktuelle Tracknummer wieder holen 

a586 a8 tay und als Index 

a587 68 pla Zwischenspeicherwert zurückholen 

a588 85 6f sta Ss6£f und wieder setzen 

a58a 4c 96 a4 jmp $a496 Pufferzeiger der BAM zurückholen; Ende 

a58d BAM auf Diskette schreiben. Erweiterung für zweiseitigen 
Diskettenbetrieb. 

a58d ad 0£ 18 lda S180£ Steuerregister lesen 


a590 29 20 and #520 Floppy im 1541-Modus? 
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d5 
02 
fe 


DZ 
d5 
a4 


ef 
£0 


01 


a4 
d5 


fe 


d5 


$a597 
sd58a 
S02ac 
Sfed7 
#525 
$a594 
s£9 
5025b,x 


$d58a 
Sa48b 
Sef3a 
S£f008 
s£9 


#535 
506,x 
#568 
$S0146,y 
(S6d),y 


Sa5ba 
$a496 
$sd58a 
$s£9 


Sfe85 
506,x 
$d586 


sf9 
5025b,x 


verzweige, wenn nein 

sonst BAM schreiben (für 1541); Ende 
maximale Tracknummer der Diskette 
maximale Tracknummer holen 

mit 35 vergleichen 

verzweige, wenn kleiner 

sonst Puffernummer holen 

und Jobcode holen 

Jobcode merken 

BAM für Seite 0 auf Diskette 
Pufferzeiger für BAM merken 

BAM von Diskette lesen 

BAM-Puffer löschen 

Puffernummer 

mal 2 

als Index 

Track 18 auf Seite 1 (insgesamt Track 53) 
in Jobspeicher 

Pufferzeiger auf Ende der 1571-BAM 
Byte aus BAM holen 

und in aktuellen Puffer schreiben 
nächstes Byte 

weitermachen, bis ganzer Puffer übertragen 
Pufferzeiger für BAM wieder holen 
BAM auf Diskette schreiben 
Puffernummer 

mal 2 

als Index 

Tracknummer der BAM holen (18) 

und in Jobspeicher 

BAM von Diskette lesen 

Jobcode wieder holen 

Puffernummer 

und Jobcode wieder setzen 

Ende 








Tabelle mit den Positionen der einzelnen BAM-Einträge für 


jeden Track. 


02 Ve. DE 12 13 18 12 le 21 24 27 22 29 
39 3c 3f 42 45 48 4b 4e 51 54 57 5a 5d 


a592 do 
a594 4c 
*1 a597 ad 
*) 3597 ad 
a59a c9 
a59c 90 
a59e a6 
a5a0 ba 
a5a3 48 
a5a4 20 
a5a7 20 
a5aa 20 
a5ad 20 
a5b0 a5 
a5b2 0a 
a5b3 aa 
a5b4 a9 
a5b6 95 
a5b8 a0 
a5ba b9 
a5bd 91 
a5bf 88 
a5c0 10 
a5c2 20 
a5c5 20 
a5c8 a5 
a5ca 0a 
a5cb aa 
a5cc ad 
ascf 95 
a5dıl 20 
a5d4 68 
a5d5 a6 
a5d7 Ele! 
a5da 60 
a5db 

a5db 00 03 
a5eb 30 33 
a5fb 60 63 
a5fe 

a5fe ad 
a601l 29 
a603 £0 
a605 a0 
a607 a2 
a609 a9 
a60b 8d 
a60e 20 
a6ll 4c 
a6l4 a9 
a616 20 
a619 4c 


18 


02 
e3 
e7 


c2 
e7 











Erweiterung des &-Befehls für zweiseitigen 
Diskettenbetrieb. 

Steuerport lesen 

Floppy im 1541-Modus? 

verzweige, wenn nein 

(unsinniger Befehl) 

(unsinniger Befehl) 

Zeiger für Beginn des INPUT-Puffers 
setzen 

Drivenummer holen und setzen 

zurück zur &-Routine 

ASCII-Code für 'SHIFT RETURN" 
Endezeichen im Befehlsstring suchen 
zurück zur &-Routine; Ende 
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Erweiterte Routine zum Analysieren und Ausführen von 
Befehlen im Befehlsstring. 

Befehl analysieren und ausführen 

seriellen Bus auf Eingang 

Flags für Busbetrieb 

auf langsamen 1541-Bus 

stellen 

zur Systemwarteschleife 


Ausschaltverzögerung für Drivemotor setzen. 
Zähler Lo 

setzen 

Zähler Hi 

setzen 

Ende 


02 
87 


Drivemotor einschalten, wenn die Diskette gewechselt wurde, 
um sie zu zentrieren 

verzweige, wenn Diskette gewechselt wurde 

Zähler für Anlaufen des Motors prüfen 

verzweige, wenn Motor schon läuft 

unbedingter Sprung 

Zähler für Anlaufen bei Zentrierung 

setzen 

Drivemotor einschalten 

Flag für Diskettenwechsel 

setzen 

unbedingter Sprung 

Zähler für Motor bei Zentrierung vermindern 
verzweige, wenn ungleich Null 

sonst Flags für Drivestatus holen 

verzweige, wenn Flag für laufenden Motor gesetzt 
sonst Motor ausschalten 

zurück zur Jobschleife für Kopfsteuerung 


oo 


Buscontroller für RESET initialisieren. 

DATA OUT-Leitung auf Lo 

setzen 

Floppy auf 1571-Modus; Diskseite 0; seriellen 
Bus auf Eingang schalten 

zurück zur RESET-Routine 


a6lc 

a6lc 20 
a6lf 20 
a622 a5 
a624 29 
a626 85 
a628 4c 
a62b 

a62b a9 
a62d 85 
ab2f a9 
a63l 85 
a633 60 
a634 

a634 do 
a636 ad 
a639 {el} 
a63b £0 
a63d a9 
a63f 8d 
a642 20 
a645 a9 
a647 85 
a649 do 
a64b ce 
a64e d0 
a650 a5 
a652 do 
a654 20 
a657 4c 
ab5a 

ab5a a9 
ab5c sd 
a65f a9 
a66l 8d 
a664 4c 
a667 

a667 ad 
abba 29 
ab6c d0 
a66be 4c 
*1 a67lad 
*0 a67lad 
a6 74 c9 
a676 90 
a678 20 
a67b a9 
a67d 85 
a6T7f a6 
a68l bad 





a4 


fe 





BAM von Diskette lesen. Erweiterung für zweiseitigen 
Diskettenbetrieb. 

Steuerport lesen 

Floppy im 1541-Modus? 
verzweige, wenn nein 

zur Routine für 1541; BAM lesen 
maximale Tracknummer holen 
maximale Tracknummer holen 

mit 35 vergleichen 

verzweige, wenn kleiner 
Pufferzeiger für BAM merken 
Pufferzeiger für BAM 

auf Null setzen 

Puffernummer 

Pufferadresse Hi holen 





B.3 Der Diskcontroller WD 1770 


287 





02 


d5 


01 


01 


02 


fe 


d5 


02 
fe 
a4 


e6 
d6 


01 





$6e 
#Sff 
50298 
s£9 


$35 
506,x 
$d586 
502 


$80 
$80 
Solaf 
Sa6bac 
$68 
(S6A),y 
$S0146,y 








Saba 
#S£ff 
50298 
$s£9 


Sfe85 
506,x 
$d586 
#502 

Sa6dl 


#524 

S02ac 
Sfed7 
$a496 


Se60a 
5d644 
#503 
($6d),y 
Solaf 
Sa6dd 
#524 
$2c 
#547 


und setzen 

Flag für Fehler ignorieren 

$0298 setzen 

Puffernummer 

mal 2 

als Index 

53; Track 18 der Diskettenseite 1 

in Jobspeicher 

Block von Diskette lesen 

Fehler? 

Ergebnis in Bit 7 des Akkus 

auf Fehler testen 

und Fehlerbit invertieren 

Fehlerstatus merken (0 heißt Fehler) 
verzweige, wenn Fehler aufgetreten 

sonst Zeiger auf Ende der 1571-BAM 

Byte aus aktuellem Puffer 

in BAM-Puffer für zweite Seite übertragen 
Zeiger auf nächstes Byte 

und gesamten Puffer übertragen 

Flag für Fehler ignorieren 

setzen 

Puffernummer 

mal 2 

als Index 

Tracknummer der BAM (18) holen 

und in Jobspeicher 

Block von Diskette lesen 

Fehler? 

verzweige, wenn nein 

Fehlernummer merken 

Track 36 als Maximum 

setzen 

(nur für 1571) 

Pufferzeiger für BAM wieder holen 
Fehlermeldung wieder holen 

und Fehlermeldung ausgeben; Ende 

ggf. durch BUMP neuen Leseversuch 
Pufferzeiger auf Diskettenkennzeichen ($80) 
Kennzeichen holen 

und mit erstem Leseversuch auf Fehler prüfen 
verzweige, wenn beides in Ordnung 

sonst anzeigen ‚daß Diskette nur einseitig 
nächsten Befehl überspringen 

anzeigen, daß Diskette zweiseitig beschrieben 
maximale Tracknummer setzen 

(nur für 1571) 

Pufferzeiger für BAM wieder holen; Ende 











a684 85 
a686 a9 
a688 8d 
a68b a5 
a68d 0a 
a68e aa 
a6sf a9 
a691 93 
a693 20 
a696 c9 
a698 sa 
a699 29 
a69b 49 
a69d 8d 
aba0 10 
aba2 a0 
aba4 bl 
aba6 99 
a6a9 88 
abaa 10 
abac a9 
abae 8d 
a6bl a5 
a6b3 0a 
a6b4 aa 
a6b5 ad 
a6b8 95 
abba 20 
abbd c9 
a6bf 90 
a6cl aa 
a6c2 a9 
*1l a6c48d 
*0 a6c48d 
a6c7 20 
abca 8a 
a6chb 20 
a6ce 4c 
a6dl a0 
a6d3 bl 
a6d5 2d 
a6d8 30 
abda a9 
a6dc 2e 
a6bdd a9 
*1 a6df &8d 
*0 a6bdf&8d 
abe2 4c 
abe5 

abe5 20 
abe8 48 
abe9 c9 
abeb b0 
abed ad 
a6f0 29 
a6f2 £0 


18 


Diskette auf zweiseitige Formatierung untersuchen. 
Jobcode an Diskcontroller und Job ausführen 
Rückmeldung merken 

Fehler aufgetreten? 

verzweige, wenn ja 

Steuerport lesen 

Floppy im 1541-Modus? 

verzweige, wenn ja 
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a6f4 a9 47 lda #547 sonst maximale Tracknummer für 1571 (71) 

*1l a6f68d ac 02 sta S02ac setzen 

*0 abf68d d7 fe sta Sfed7 (nur für 1571) 

a6f9 49 ££ lda #S£ff Flag für Fehler ignorieren 

a6sfb 8d 98 02 sta 50298 setzen 

a6fe a5 16 lda 516 ID 1 aus Blockheader holen 

a700 48 pha und merken 

a701l a5 17 lda 517 ID 2 holen 

a703 48 pha und merken 

a704 a5 £9 lda Ss£f9 Puffernummer 

a706 0a asl mal 2 

a707 aa tax als Index 

a708 a9 35 lda #535 Track 53; entspricht 18 für Seite 1 

a70a 95 06 sta 506,x in Jobspeicher 

a70c a9 b0 lda #S$b0 Jobcode für 'SEEK' 

a70e 20 8c d5 jsr Sd58c übergeben und Job ausführen 

a7ıl c9 02 cmp #502 Fehler? 

a713 68 pla ID 2 zurückholen 

a714 a8 tay und merken 

a715 68 pla ID 1 zurückholen 

a716 aa tax und merken 

a717 b0O 0b bcs $a724 verzweige, wenn Fehler aufgetreten 

a719 e4 16 cpx s16 alte ID 1 mit neuer vergleichen 

a7lb d0 07 bne Sa724 verzweige, wenn ungleich 

a7rld c4 17 cpy 517 alte ID 2 mit neuer vergleichen 

a7rlf d0 03 bne Sa724 verzweige, wenn ungleich 

a72l a9 47 lda #547 maximale Tracknummer auf 71 

a723 2c .byte $2c nächsten Befehl überspringen 

a724 a9 24 lda #524 maximale Tracknummer auf 36 

*] a726 84 ac. 02 sta S02ac setzen 

*0 a7268d d7 fe sta Sfed7 (nur für 1571) 

a729 84 17 sty 517 neue ID 2 setzen 

a72b 86 16 SCH 516 neue ID 1 setzen 

a72d a5 £9 lda Ss£f9 Puffernunrner 

a72f 0a asl mal 2 

a730 aa tax als Index 

a731 ad 85 fe lda Sfe85 Tracknummer für BAM (18) 

a734 95 06 sta 506,x in Jobspeicher holen 

a736 68 pla Rückmeldung zurückholen 

a737 60 rts Ende 

a738 BAM-Puffer für erweiterte 1571-BAM löschen. 

a738 20 3a ef ISE Sef3a Pufferzeiger für BAM setzen 

a73b ad Of 18 lda S180£ Steuerport lesen 

a73e 29 20 and #520 Floppy.im 1541-Mdus? 

a740 £f0O 0a beq Sa74c verzwelge, wenn Ja 

a742 a9 00 lda #500 Füllwert 

a7a4a a0 68 ldy #568 Index in Puffer 

a746 99 46 01 sta $S0146,y Byte in Puffer schreiben 

a749 88 dey bis der gesamte Puffer 

a7rda 10 fa bpl $a746 geleert ist 

a7ac 4 08 £0 jmp S£f008 BAM-Hauptpuffer löschen; Ende 

aTaf Bei Tracknummern größer als 35 werden diese in die 
physikalischen Tracknummern kleiner als 36 umgewandelt. 

araf 48 pha Tracknummer merken 





a750 ad 0f£ 18 lda S180£ Steuerregister lesen 
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Floppy im 1541-Modus? 
verzweige, wenn ja 
Tracknummer zurückholen 
und mit 36 vergleichen 
verzweige, wenn kleiner 
sonst 35 abziehen 
nächsten Befehl überspringen 
Tracknummer zurückholen 

Anzahl der Diskettenzonen holen 
Ende 





neue BAM im Speicher herstellen. 
BAM.Puffer löschen 
Steuerregister lesen 

Floppy im 1541-Modus? 
verzweige, wenn nein 
maximale Tracknummer 36 
nächsten Befehl überspringen 
maximale Tracknummer 71 
setzen 

(nur für 1571) 

neue BAM herstellen; Ende 


18 


des Directory. 

Steuerregister lesen 

Floppy im 1541.Modus? 

verzweige, wenn nein 

Diskette einseitig langsam formatieren; Ende 
Diskette zweiseitig schnell formatieren; Ende 














RESET für seriellen Bus. 
Datenrichtungsregister für 

den seriellen Bus 

setzen 

ca. 70 Taktzyklen warten 

RQ-Status 

löschen; Maske setzen 

Timer auf 'one shot' 

Timer A setzen 

T[imer B setzen 

Timer A Hi 

löschen 

Timer A Lo 

auf 6 Taktzyklen setzen (für Schieberegister) 
Timer A 

starten 

seriellen Bus auf Eingang schalten 
auf ATN-Signal prüfen; Ende 








a753 23 
a755 £0 
a757 68 
a758 c9 
a75a 90 
a75c e9 
a75e 24 
a75s£f 68 
a760 ae 
a763 60 
a764 

a764 20 
a767 ad 
a76a 29 
a76c d0 
a76e a9 
a770 2 
a77l a9 
*1 a773 84 
*0 .a773:84 
a776 4c 
a779 

a779 ad 
a7Tc 29 
a7Te do 
a780 4c 
a783 4c 
a786 

a786 ad 
a789 29 
a78b sd 
a78e 20 
a791 a9 
a793 8d 
a796 a9 
a798 sd 
a79b 8d 
a79e a9 
a7a0 8d 
a7a3 a9 
a7a5 8d 
a7a8 a9 
alaa 8d 
alad 20 
a7b0 4c 
a7b3 

*] 3763 ad 
*0 a7b3 20 
a7b6 29 
a7b8 £0 
a7ba 4c 
a7bd 4c 


80 
e8 


ATN-Bedienung des seriellen Bus im 1571-Modus. 
Steuerregister lesen 

Steuerregister lesen 

Floppy im 1541.Modus? 

verzweige, wenn ja 

sonst Kommando vom 1571-Bus übernehmen 
Kommando vom 1541-Bus übernehmen 


Formatieren einer Diskette im GCR-Format ohne Aufbringen 
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a7c0 Fortsetzung der RESET-Routine. 

a7c0 78 sei Diskcontroller inaktivieren 

a’cl a2 45 ldx #545 Stackpointer 

a7c3 9a txs setzen 

a7c4 4c 25 eb jmp Seb25 und weiter in RESET-Routine 

a7c7 Neue BAM im Speicher erzeugen. Erweiterung für zweiseitigen 
Diskettenbetrieb. 

*1 a7c7ad Of 18 lda S180£ Steuerregister lesen 

*0 a7c74c ce a7 jmp SaTce immer 1541-BAM erzeugen 

alca 29-20 and #520 Floppy im 1541-Modus? 

alcc d0O 09 bne Sa7d7 verzweige, wenn nein 

a’ce a0 03 ldy #503 Pufferzeiger auf Diskettenkennzeichen 

a7d0 a9 00 lda #500 Kennzeichen für 1541-Diskette 

a7d2 91 6d sta ($6d),y in Puffer schreiben 

a7d4 4c b7 ee jmp Seeb7 BAM für 1541 erzeugen; Ende 

* 1 -a747:ä4. ac ,ı02 lda S02ac maximale Tracknummer holen 

*0 a7d7ad d’7 fe lda Sfed7 maximale Tracknummer (36) holen 

a7da 29-25 cmp 525 mit 37 vergleichen (Fehler: eigentlich 36) 

a7dc 90 £0 bcec Sa’ce verzweige, wenn kleiner 

a7de a0 01 ldy sol Nummer des ersten Tracks 

a7e0 a2 00 ldx s00 Nummer des ersten Sektors 

ale2 c0 12 cpy 512 Track 18 erreicht? 

ale4 £0 34 beq Sasla verzweige, wenn ja 

a7e6 8a txa Sektornummer 

ale? 48 pha merken 

a7e8 a9 00 lda s00 Register für 

alea 85.5 sta Ss6£ Bitmuster 

alec 85 70 sta 570 eines Tracks 

alee 85.07 sta s71 löschen 

a7f£fo b9 2b 94 lda $942b,y Anzahl der Sektoren des Tracks holen 

a7f£3 aa tax und merken 

a7f4 38 sec Zustand für Sektor frei 

a7f5 26 6£ rol Ss6£f in das 

a7rf£f7 26 70 rol 570 Bitmuster der BAM 

a7f9 26 71 rol 571 eintragen 

a7fb ca dex nächsten Sektor 

arfc d0 £6 bne Sa7fa ebenso behandeln 

a’rfe 68 pla Sektornummer zurückholen 

arlff aa tax und wieder merken 

a800 a5 6£f lda Ss6f erstes Byte des Bitmusters 

a802 94 46 01 sta 50146,x in BAM-Puffer schreiben 

a805 a5 70 lda 570 zweites Byte 

a807 9a: A + OT sta 50147,x in BAM-Puffer schreiben 

a80a a5 71 lda 571 drittes Byte des Bitmusters 

a80c 94 48 01 sta 50148,x ebenfalls in BAM-Puffer schreiben 

as0f e8 inx Pufferzeiger 

a8l0 e8 inx plus 3, um 

asıl e8 inx auf den Start des nächsten Bitmusters zu kommen 

a812 e0 33 cpx #533 schon Eintrag für Track 18 erreicht? 

a8l4 d0o 04 bne Sasla verzweige, wenn nein 

a816 e8 inx sonst Track 18 

a817 e8 inx mit dem Pufferzeiger 

a818 e8 inx überspringen 

a819 c8 iny ebenso die 

asla c8 iny Tracknummer auslassen 


a8lb c0 24 cpy #524 schon 36 erreicht? 
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aslf 20 b7 ee 


a82c bd 2c 94 


SaTe2 
Seeb7 
#503 
#580 
($6d),y 
#S£E 
#522 
$942c,x 
($6d),y 


$a82c 
#S$ee 


weitermachen, wenn nein 

BAM für Diskseite 0 ebenfalls anlegen 
Pufferzeiger auf Diskettenkennzeichen 
Kennzeichen für 1571-Format 

in Puffer schreiben 

Pufferzeiger 

setzen 

und Anzahl der freien Blöcke jedes Tracks 
in den Puffer schreiben 

Pufferzeiger 

vermindern 

und weitermachen 

Pufferzeiger auf Track 18; Seite 1 
Anzahl der freien Blöcke gleich 0 

setzen 

Anzahl der freien Blöcke berechnen; Ende 








Einen Block in der BAM freigeben. 
Steuerregister lesen 

Floppy im 1541-Modus? 

verzweige, wenn nein 

Zeiger in Bitmuster für Block holen 
Block freigeben; Ende 

aktuelle Tracknummer 

kleiner als 36? 

verzweige, wenn ja 

Zeiger in Bitmuster für Block holen 
zuständiges Bit aus BAM holen 
verzweige, wenn Sektor frei 

sonst Block freigeben 

und Bitmuster wieder eintragen 

BAM 'dirty' Flag setzen 

Anzahl der freien Blöcke plus 1 
aktuelle Tracknummer 

gleich 53; Track 18 von Seite 1 
verzweige, wenn ja 

Drivenummer 

mal 2 

als Index 

Anzahl der freien Blöcke erhöhen; Ende 
Flag für Fehler; Block schon frei 
Ende 


as6d 0a 

as8be aa 

a86f 4c If ef 
a872 38 

a873 60 

a874 


Block in der BAM belegen. 
Steuerregister Lesen 

Floppy im 1541-Modusl 

verzweige, wenn nein 

Zeiger auf Bitmuster für Block holen 
und Block belegen; Ende 

aktuelle Tracknummer 

kleiner als 361 

verzweige, wenn ja 

Pufferzeiger auf Bitmuster holen 
und Bit des Blocks holen 
verzweige, wenn Block schon belegt 
sonst Block belegen 

und in BAM eintragen 

BAM 'dirty' Flag setzen 
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a898 20 le a5 jsr Sa5le Anzahl der freien Blöcke vermindern 

a89b a5 80 lda s80 aktuelle Tracknummer 

a89d e9. 35 cmp #535 gleich_53; Track.18 von Seite 1? 

asygf 0.097 beq Sa8a8 verzwelge, wenn ja 

asal a5 7£ lda ST£ Drivenummr 

a8a3 0a asl mal 2 

a8a4 aa tax als Index 

a8a5 4c b2 ef jmp Sefb2 Anzahl der freien Blöcke minus 1; Ende 

a8a8 60 rts Ende; Fehler: Block war schon belegt 

a8a9 Nächsten freien Sektor eines Tracks suchen. 

a8a9 ad 0£ 18 lda S180£ Steuerregister lesen 

a8ac 29 20 and #520 Floppy.im 1541-Modus? 

asae d0O 06 bne Sa8b6 verzweige, wenn nein 

a8b0 20 11 £0 SE. s£foll Pufferzeiger für BAM setzen 

a8b3 4c fd £1 jmp Seflfd freien Block suchen; Ende 

a8b6 a5 80 lda s80 aktuelle Tracknummer 

a8b8 c9 24 cmp #524 kleiner 36? 

asba 90 £4 bec Sa8b0 verzweige, wenn ja 

asbc 20 al a4 Sr Sadal Zeiger auf BAM-Eintrag des Tracks setzen 

asbf 20 45 a5 jr Sa545 auf freien Block prüfen 

a8c2 b9 2c 94 lda $942c,y Anzahl der Sektoren des Tracks 

a8c5 8d 4e 02 sta S024e übernehmen 

a8c8 a5 81 lda sel Sektornummer 

adca cd 4e 02 cmp S024e mit Maximum vergleichen 

ascd bo 09 bes Sa8d8 verzweige, wenn größer 

ascf 20 e7 a4 SE Sade7 Bit des Sektors in der BAM holen 

a8d2 do 06 bne Sasda verzweige, wenn Sektor frei 

a8d4 e6 81 inc sel sonst nächste Sektornummer 

a8d6 do £o bne Sa8c8 und weitersuchen 

a8d8 a9 00 lda #500 Flag für alles belegt 

a8da 60 rts setzen; Ende 

a8db Erweiterung zum Suchen eines freien Sektors für den 
doppelseitigen Diskettenbetrieb. 

a8db ad 0f£ 18 lda S180£ Steuerregister lesen 

asde 293 20 and #520 Floppy.im 1541-Mods? 

ase0 d0O 06 bne Sasde8 verzwelge, wenn neln 

ade2 a5 6£f lda Ss6£f Anzahl der freien Blöcke des Tracks 

a8e4 48 pha merken 

a8e5 4c 30 £1 jmp s£f130 zurück zur Behandlung im 1541-Modus 

ade8 a5 80 lda s80 aktuelle Tracknummer 

adea c9 24 cmp #524 kleiner 36? 

adec 90 £4 bec Sa8de2 verzweige, wenn ja 

aßee c9 35 cmp #535 mit 53; Track 18 für Seite 1 vergleichen 

asf0 £f0O 0e beq sa900 verzweige, wenn gleich 

asf2 a5 6£f lda Ss6£f Anzahl der freien Blöcke des Tracks 

asf4 48 pha merken 

asf5 20 al a4 jsE Sadal Zeiger in BAM für Bitmuster setzen 

a8f8 a8 tay Anzahl der freien Blöcke merken 

asf9 68 pla Zwischenspeicher 

asfa 85 6f sta Ss6£ wieder setzen 

asfc 98 tya Anzahl der freien Blöcke 

asfd 4c 38 £1 jmp $£f138 und nächsten freien Block holen 

a900 a9 00 lda #500 Suche auf Nachbarspur generieren und 


a902 4c 38 £1 jmp $£f138 dort nächsten freien Block holen; Ende 
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£0 
£1 


Bitmuster für Block aus BAM holen 
Steuerport lesen 
Floppy im 1541-Modus? 
verzweige, wenn nein 
Zeiger in BAM setzen 
Bitmuster holen; Ende 
Tracknummer 

kleiner 36? 
verzweige, wenn ja 
Zeiger in BAM setzen 
Bitmuster holen; Ende 


ZU 
£l 


Nächsten freien Block holen. 
Steuerport lesen 

Floppy im 1541-Modus? 
verzweige, wenn nein 

Zeiger in Bitmuster setzen 
und freien Block holen; Ence 
Tracknummer 

kleiner 36? 

verzweige, wenn ja 

Zeiger in Bitmuster der BAM setzen 
freien Block holen; Ende 





02 
fe 








Gültigkeit der Angaben in der BAM prüfen. 
Steuerport lesen 

Floppy im 1541-Modus? 
verzweige, wenn nein 
Blockangaben überprüfen; Ende 
maximale Tracknummer holen 
maximale Tracknummer (36) holen 
kleiner als 37? 

verzweige, wenn ja 

aktuelle Tracknummer 

kleiner als 36? 

verzweige, wenn ja 

Angaben in der BAM prüfen; Ende 








a905 

a905 ad 
a908 29 
a90a d0 
a90c 20 
a9y0f 4c 
a912 a5 
a914 c9 
a916 90 
a918 20 
a91b 4c 
a9le 

a9le ad 
a921 29 
a923 do 
a925 20 
a928 4c 
a92b a5 
a92d c9 
a92£f 90 
a931l 20 
a934 4c 
a937 

a937 ad 
a9y3a 29 
a93c d0 
a93e 4c 
*1 a94lad 
*0 a94lad 
a9g44 c9 
a946 90 
a948 a5 
a9y4a c9 
a94c 90 
a94e 4c 
a951 

a951 efe! 
a954 ad 
a957 29 
a959 £0 
a95b ad 
a95e c9 
a960 90 
a962 20 
a965 20 
a968 a0 
a9ba ad 
a96d 18 
a96be 7ı 
a970 8d 
a973 90 
a975 ee 
a978 88 





02 
18 


fe 


a4 


a5 


02 


02 


02 


Anzahl der freien Blöcke auf der Diskette berechnen. 
Erweiterung für doppelseitige Disketten. 
freie Blöcke Lo setzen 

Steuerport lesen 

Floppy im 1541-Modus? 

verzweige, wenn ja 

maximale Tracknummer holen 

kleiner als 37? 

verzweige, wenn ja 

Pufferzeiger für BAM merken 

Pufferzeiger auf Eintrag für Track setzen 
Zähler für Trackanzahl 

Anzahl der freien Blöcke Lo 

zu 

der Anzahl des aktuellen Tracks addieren 
und merken 

verzweige, wenn kein Übertrag 

sonst Anzahl der freien Blöcke Hi erhöhen 
Zähler für Tracks vermindern 
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a979 10 £2 bpl Sa96d 
a97b 4c 96 a4 jmp $a496 
a9T7e 60 rts 

aygTEf 

agT7£ 95.55 sta $b5,x 
a98l 99: DE sta Sbb,x 
a983 a9 00 lda #500 
a985 94 44 02 sta 50244,x 
a988 60 rts 

a989 

a989 20 Od a4 jsr Sa40d 
a98c a0 00 ldy #500 
a98e Be 98 02 sty 50298 
a991 60 rts 

a992 ££ 

a99c . ££ 

a99d 

a99d a9 00 lda #500 


a9ac 

a9ac ad 0f£ 18 lda S180£ 
a9af 29 20 and #520 
a9bl £0 03 beq Sa9b6 


a9b9 

a9b9 48 pha 

a9ba 86 £9 stx Ss£f9 
a9bc ad 0£ 18 lda S180£ 
a9bf 29 20 and #520 
a9cl £0 0£ beq Sa9d2 
a9c3 24,37 bit 537 
a9c5 10 0b bpl Sa9d2 
a9c7 an 37 lda $37 
a9c9 297, SIE: and #5 7£ 
a9chb 85 37 sta 537 
a9cd 68 pla 

a9ce aa tax 


a9ck 4c 99 91 jmp 59199 
a9d2 4c 0d e6 jmp Se60d 


und weitermachen, bis alle Tracks addiert 
Pufferzeiger für BAM wieder holen; Ende 
Ende 


Anzahl der Blöcke einer Datei löschen. 
Anzahl der Blöcke Lo löschen 

Anzahl der Blöcke Hi löschen 
Endekennzeichen des Puffers 

50244,x löschen 

Ende 


Diskette im 1571-Format formatieren. 
Diskette formatieren; ohne Directory 
Flag für Fehler ignorieren 

löschen 


unbenutzter 
Leerbereich 





Drivestatus für ok setzen. 
Code für OK 

als Drivestatus setzen 
zurück 





Drivestatus anhand Y-Register setzen. 
Status übernehmen 

und setzen 

zurück 


Steuerport lesen 

Floppy im 1541-Modus? 
verzweige, wenn ja 
Busbedienung für 1571; Ende 
Busbedienung für 1541; Ende 


und Klartext. 

Fehlernummer merken 

Puffernummer setzen 

Steuerport lesen 

Floppy im 1541-Modus? 

verzweig wenn ja 

Flags für Busbetrieb 

verzweige, wenn langsamer Busbetrieb 
Flags für Busbetrieb 

Bus auf langsamen Betrieb 
umschalten 

Fehlernummer zurückholen 

und setzen 

Burst-Statusbyte zum Computer; Ende 
Klartextmeldung ausgeben; Ende 





Bedienung des seriellen Bus nach Auftreten eines ATN. 


Erweiterte Fehlerbehandlung für 1571 mit Burst-Statusbyte 
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a9d5 Fehlerbehandlung für 1541/1571 bei LOAD. 
a9d5 48 pha Fehlernummer merken 

a9d6 ad 0£f 18 lda S180£ Steuerport lesen 

a9d9 29 20 and #520 Floppy im 1541-Modus? 

a9db £0 17 beq Sa9f4 verzweige, wenn ja 

a9dd 24 37 bit $37 Flags für Busbetrieb 

aydf 10» 13 bpl Sa9f4 verzweige, wenn langsamer Busbetrieb 
agel as 37 lda 537 sonst Flags für Busbetrieb 

a9e3 29. IE and #5 7£ auf langsamen Busbetrieb 

a9e5 85 37 sta 537 umschalten 

a9e7 78 sei Diskcontroller inaktivieren 

a9e8 a2 02 1dx #502 Nummer für 'FILE NOT FOUND' 

a9ea 20 28 92 SE 59228 Burst-Statusbyte an Computer; Ende 
aged a9 00 lda #500 Sekundäradresse für LOAD 

agef 85 83 sta 583 setzen 

a9gfl 20 c0 da jsr SdacO0 File schließen 

a9f4 68 pla Fehlernummer zurückholen 

a9g£5 4c 45 e6 jmp Se645 Fehlermeldung ausgeben; Ende 

ay9f8 Drivestatus auf inaktiv stellen 
ayf8 a9 00 lda #500 Status auf Drive inaktiv 

a9fa 85 20 sta 520 stellen 

a9fc ad 0c Ic lda Slc0c Steuerregister holen 

aygff 4c 66 £2 jmp Sf266 und zurück 

aa02 Behandlung des neuen U0-Befehls für 1571. 
aa02 ad 00 02 lda 50200 erstes Byte aus Befehlsstring 

aa05 0a. 38 cmp #555 mit 'U' vergleichen 

aa0? d0 07 bne SaalO verzweige, wenn ungleich 

aa09 ad 01 02 lda 50201 zweites Zeichen aus Befehlsstring 
aa0c e9 30 cmp #530 mit '0' vergleichen 

aale £0o 04 beq Saal4 verzweige, wenn gleich 

aalO b9 00 02 lda 50200,y aktuelles Zeichen aus Befehlsstring 
aal3 2c .byte $2c nächsten Befehl überspringen 

aald a9 00 lda #500 Wert 0 als Flag für U0-Kommando 
aal6 60 rts Ende 

aal? aktuellen Drivestatus holen. 

aal? a6 7£ ldx ST£ Drivenummer 

aal9 bd £f£f 00 lda So0ff,x Flags für Drivestatus holen 

aalc 60 Des Ende 





aald Flags für Drivestatus setzen. 
aald 95. LE sta $s1c,x Flag für Diskettenwechsel setzen 
aalf 94 ££f 00 sta So0ff,x Flags für Drivestatus setzen 
aa22 4c 75 do jmp 54075 zurück 

















aa25 Flags für Drivestatus holen. 

aa25 a6 7£ ldx ST£ Drenummer 

aa27 bd ff 00 lda So0ff,x Flags für Drivestatus holen 

aa2a 4c 1b £0 jmp Sf0Olb zurück 

aa2d USER-Befehle ausführen (außer U0). 
aa2d a5 75 lda 575 Adresse Lo der USER-Routine 

aazf 09-01 cmp #567 auf Jobschleife prüfen 

aas3l d0 09 bne Saasc verzweige, wenn nein 

aas33 a5 76 lda 576 Adresse Hi der USER-Routine 
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aa35 c9 fe cmp #Sfe gleich Adresse der IRQ-Routine? 
aa37 d0O 03 bne Saa3c verzweige, wenn nein 

aa39 00 brk sonst Jobschleife aufrufen 

aasa ea nop Rückkehr nach $aa3b 

aa3b 60 rts Ende 

aaac 6c 75 00 jmp ($0075) Sprung auf USER-Routine; Ende 

*] ‚dase EL u: unbenutzter 

A1lraa08: 0. EE Leerbereich 

*0 aa3f Rückmeldung nach Job prüfen. 

*0 aa3fc9 02 cmp #502 Fehler? 

*0 aa4190 07 bcec Saada verzweige, wenn nein 

*0 aa43c9 Of cmp #S0f 'DRIVE NOT READY'? 

*0 aa45£f0 03 beq Saada verzweige, wenn ja 

*0 aa474c 6b d3 jmp Sd36b zurück 

*0 aadadc 73 d3 jmp 54373 Fehler ausgeben; Ende 

*0 aadd Diskette im 1570-Format formatieren. 
*0 aa4d85 51 sta s51 Tracknummer für Formatierung setzen 
*0 aa4f20 7c 87 jsr 5877c lED am laufwerk einschalten 

*0 aa5220 89 a9 jsr 5a989 Diskette formatieren 

*0 aa55 48 pha Rückmeldung merken 

*0 aa5620 88 87 jsr 58788 lED am laufwerk ausschalten 

*0 aa59 68 pla Rückmeldung zurückholen 

*0 aa5a60 rts Ende 

*0 aa5b Filetyp auf Programmfile (PRG) testen. 
*0 aa5ba5 e7 lda Se7 Filetyp 

*0 aa5d29 07 and #507 reinen Filetyp isolieren 

*) aabfc9 02 cmp #502 und mit 2 (PRG) vergleichen 

*0 aa6160 rts Ende 

*0 aa62 Steuerport lesen. 

*0 aab2ad Of 18 lda S180£ Steuerport lesen 

*0 aa652c 01 18 Bit s1801 und seriellen Bus initialisieren 

*0 aa6860 rts Ende 

aa69 ff... unbenutzter 

beff ... £f Leerbereich 

b£OO Systemsprungvektoren (werden nicht benutzt). 
b£OO 4c 88 9d jmp 59488 IRO-Routine für 1541 

bf03 4c de 9d jmp SYdde IRQO-Routine für 1571 

bf£06 4c bO £ jmp Sf2b0 Jobschleife für 1541 

bf09 4c ba 92 jmp 592ba Jobschleife für 1571 

bf0c 4 93 £ jmp $£f393 Pufferzeiger setzen für 1541 

bfOf 4c di 93 jmp s93dl Pufferzeiger setzen für 1571 

bf12 4c 69 £ jmp 5f969 Ausgang der Jobschleife für 1541 
bf15 4c b5 99 jmp 599b5 Ausgang der Jobschleife für 1571 
bf18 4c 00 f£e jmp sfe00 auf Lesen umschalten 

bflb 4c 34 £ jmp 5f934 Blockheader in GCR umwandeln 

bfle 4c 56 £ jmp sf556 SYNC-Signal abwarten für 154 

b£f21 4c 54.97 jmp 59754 SYNC-Signal abwarten für 157 

bf24 4c e0 £ jmp Ssf8e0 Ausweichpuffer von GCR nach Binär für 1541 
bf27 4c 65 99 jmp 59965 Ausweichpuffer von GCR nach Binär für 1571 
bf2a 4c e9 £5 jmp Ssf5e9 Prüfsumme über Datenblock berechnen 
bf2d 4 e6 £ jmp Sf7e6 5 GCR-Bytes in 4 Binärwerte für 1541 
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000000000000000000000000 


5 ger-Bytes in 4 Binärwerte für 1571 
Verzögerung von ca. 70 Taktzyklen 
Verzögerung für seriellen Bus für 1541 
Verzögerung für seriellen Bus für 1571 
BAM-Puffer löschen 

Tracknummer für BAM holen 

Befehl analysieren und ausführen 
Befehlsstring durchsuchen 

Tabellen und Zeiger initialisieren 
Zeiger für Dateien löschen 

zentrale MFM-Steuerroutine 

Drivemotor anschalten 

Drivemotor ausschalten 

(zeigt nicht auf Routine!!!) 

Puffer für Diskbetrieb setzen 
ON-Befehl von seriellem Bus 
CLOSE-Befehl 

Fehlerbehandlung nach Befehl 
FAST-LOAD-UTILITY; File schnell laden 
Prüfsumme über das ROM bilden 
Diskcontroller initialisieren für 1541 
Jobschleife für Drivemotoren für 1541 
Jobschleife für Drivemotoren für 1571 
(zeigt nicht auf Routine!!!) 











unbenutzter 
Leerbereich 
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c100 Routine schaltet die LED am aktuellen Laufwerk ein und am 
anderen Laufwerk (nicht vorhanden!) aus. 

c100 78 sei Diskcontroller inaktivieren 

c101 a9 £7 lda #S£7 Bit 3 des Diskcontrollers (LED für Drive 0) 

c103 2d 00 Ic and S1c00 löschen 

c106 48 pha Bitwert merken 

c107 as. TE lda STE aktuelles Laufwerk (immer 0) 

c109 £0 05 beq $c110 unbedingter Sprung 

c10b 68 pla LED-Wert zurückholen 

c10c 09 00 ora #500 bei Laufwerk 0 keine Funktion 

c1l0e do 03 bne $c113 unbedingter Sprung 

c110 68 pla LED-Wert zurückholen 

elll 09 08 ora #508 LED-Bit setzen (Bit 3) 

c113 8d 00 Ic sta S1c00 LED an 

c116 58 cli Diskcontroller wieder aktivieren 

e1‘17 60 rts Ende 

c118 Routine schaltet LED an Laufwerk 0 durch Setzen von Bit 3 
ein. 

c118 78 sei Diskcontroller inaktivieren 

cL19 a9 08 lda #508 LED-Bit für Laufwerk 0 

c1llb 0d 00 Ic ora S1c00 setzen 

clle 8d 00 Ic sta S1c00 LED einschalten 

c121 58 cli Diskcontroller wieder aktivieren 

c122 60 rts Ende 

c123 Löschen der Flags des Fehlerstatus; dadurch wird der 


Fehlerzustand der Floppy gelöscht. Die LED wird beim 
nächsten Jobschleifendurchlauf ausgeschaltet. 














e123 a9 00 lda #500 Flags löschen: 

125 8d 6c 02 sta 5026c Fehlernummer = 0 

c128 8d 6d 02 sta 50264 Flag für LED-Blinken = O0 

c12b 60 rts Ende 

cl2c Initialisierung des LED-Blinkens bei Auftreten eines 
Fehlers. Aktiviert werden dabei die Fehlerflags des 
Diskcontrollers, um der Jobschleife mitzuteilen, daß ein 
Fehler aufgetreten ist. 

cl2c 78 sei Diskcontroller inaktivieren 

cl2d 8a txa X-Registerinhalt 

cl2e 48 pha retten 

cl2£ a9 50 lda #550 Fehlernummer 

c131 84 Be ‚02 sta 5026c setzen 

c134 a2 00 ldx #500 ndex 

c136 bda ca fe lda Sfeca,x Defaultwert für LED-Bit ($08) 

c139 8d 6d 02 sta 50264 Blinkflag der LED setzen 

134 0d 00 Ic ora S1c00 LED-Bit setzen 

c13£ 8a 00 Ice sta S1c00 LED einschalten 

c142 68 pla X-Wert 

c143 aa tax zurückholen 

c144 58 cli Diskcontroller wieder aktivieren 

c145 60 rts Ende 
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48 8d £f9 02 
4b ad 8e 02 


50 20 bc e6 


5d 4c b4A d7 
60 20 53.22 


65 8d 75 02 


sa bd 89 fe 
6d ed 7502 





70 £ 08 
12 ca 
73 0" E85 


aaaaaaaaaıana aa aan aaa aaa a nnaaaana aaa an 


#50 
#S0£f 
$c160 
$d7b4 
$c2b3 
($a3),y 
50275 
#50b 
sfe89,x 
50275 
$c17a 


$c160 





Scl6a 
#531 
$Sclc8 
5022a 
#509 
$c184 
Sclee 
$022a 
S$Sfe95,x 
Ss6£ 
Sfeal,x 
s70 
($S006E£) 


Wertet den Befehlsstring vom Computer aus und springt ggf. 
zu den entsprechenden Routinen. Ansonsten wird eine 
Fehlermeldung ausgegeben. Eine entsprechende vorherige 
Fehleranzeige wird gelöscht. 

Flag für 'BAM nicht auf Diskette schreiben' 

löschen 

Standard Laufwerksnummer 

als aktuelles Laufwerk speichern 

'OK'-Meldung bereitstellen 

Sekundäradresse 

verzweige, wenn Befehl anliegt 

Sekundäradresse auf 15 begrenzen 

Kommandokanal (15)? 
verzweige, wenn ja 
OPEN-Routine, da Kanalnummer ungleich 15 
Flags für Befehsübernahme setzen 

Zeichen ab $0200 holen 
und abspeichern 
in der Tabelle der Befehlsworte 
nach Kommando suchen 

und vergleichen 

verzweige, wenn gefunden 

Zeiger auf nächstes Kommando 

und weitersuchen 

Nummer der Fehlermeldung 

'31, SYNTAX ERROR' ausgeben 
Nummer des Kommandos abspeichern 
Test auf Kommando mit Dateinamen 
im Befehlsstring 

wenn ja, Befehlsstring prüfen 
Nummer des Befehls holen und 
dessen Sprungadresse nehmen 
Adresse Lo speichern 

Adresse Hi 
ebenfalls speichern 
Sprung auf Befehl; Ende 








c194 

c194 a9 00 
c196 8d £9 02 
e199 ad 6c 02 
c19c d0 2a 
c19e a0 00 
cla0 98 

clal 84 80 
cla3 84 81 
cla5 84 a3 
cla7 20 c7 e6 
claa 20 23 ci 
clad a5 7£ 
claf 8d 8e 02 
clb2 aa 

c1b3 4c 9d a9 
c1b6 ea 


Abschluß eines Befehls. Stellt die 'OK'-Meldung bereit, 
sofern das Fehlerflag in $026c = 0 ist. Ansonsten erfolgt 
der Aufruf der Fehlerroutine. 

Flag für 'BAM nicht auf Diskette schreiben' 

löschen 

Fehlerflag prüfen und 

zur Fehlerbehandlung, wenn ungleich Null 

Flags löschen: 

Fehlernummer löschen 

Spurnummer löschen 
Sektornummer löschen 

Zeiger in INPUT-Puffer löschen 
'oK'-Parameter setzen 
Fehlerflags löschen 
Standardwert für Laufwerk neu 
setzen 
Flag für "Laufwerk aktiv' 
löschen 
(Rest aus 1541-ROM) 
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INPUT-Puffer löschen ($0200-0228) 
interne Kanäle löschen 


#528 
#500 
s0200,y 


Sclcl 


löscht den INPUT-Puffer von $0200 bis $0228 durch 
Überschreiben mit 0. 

Index auf 40 Zeichen 

Füllwert 

in Puffer schreiben 

nächstes Byte 

und weitermachen, bis Puffer leer 

Ende 


Fehlermeldung ausgeben, wobei Track- und Sektornummer 
gleich Null gesetzt werden. Fehler- nummer muß bei 
Finsprung in Astehen. 

Index löschen 

Spurnummer 

Sektornummer 

1571 Fehlerbehandlung; Ende 





Untersucht den Befehlsstring auf einen Doppelpunkt ':'. 
Wird einer gefunden, so steht seine Position in Y und wird 
minus 2 nach $027a ge- speichert. Anschließend wird die 1ED 
am lauf- werk eingeschaltet. 

Zeiger auf Filetabelle 





löschen 

ASCII Wert für ':' 

Befehlsstring auf ':' durchsuchen 
verzweige, wenn nicht gefunden 
Zeiger auf ':' in Y 

Zeiger vor ':' setzen 


zeigt dann auf laufwerksnummer 
Laufwerksnummer setzen; LED an; Ende 


Sucht nach einem Doppelpunkt ':' im Befehlsstring. 
Stelle für Suchbeginn 

Anzahl der gefundenen Kommas 

ASCII-Code für ':' 

Befehlsstring durchsuchen 





c1b7 20 baovel 
clba 4c da d4 
clbd 

clbd a0 28 
clbf a9 00 
clci1 3% 00 DZ 
clc4 88 

elc5 10 fa 
clc7 60 

clc8 

clc8 a0 00 
clca 84 80 
celcc 84 81 
clce 4c d5 a9 
cldl 

cldl a2 00 
cld3 8e 7a 02 
c1d6 a9 3a 
c1d8 20: 68002 
cldb £0 05 
cldd 88 

clde 88 

cldf 8c 7a 02 
cle2 4c 68 c3 
cle5 

cle5 a0 00 
cle7 a2 00 
cle9 a9 3a 
cleb 4c 68 c2 
clee 

clee 20 e5 cl 
eIEl do 05 
eif3 a9 34 
cl£5 de 8. el 
c1f8 88 

elf8 88 

clfa 8c 7a 02 
clfd 8a 

clfe d0 £3 


c202 20 68 c2 


Prüft die Eingabezeile auf die Bestandteile von 
mehrteiligen Befehlen oder Sonderzeichen ('wild cards'). 
Sucht nach ':' in Befehlsstring 

verzweige, wenn gefunden 

Nummer der Fehlermeldung 

'34, SYNTAX ERROR' ausgeben 

Index auf 

Position der Drivenummer 

setzen 

Komma vor dem Doppelpunkt? 

ja, dann 'SYNTAX ERROR' 

ASCII-Code für '=' 

Zeile auf '=' durchsuchen 

Komma gefunden? 

verzweige, wenn nein 
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c208 a9 40 lda #540 sonst setze Bit 6 

c20a 09 21 ora #521 setze Bit 0 und 5 (Funktion s.u.) 
c20c 8d 8b 02 sta 5028b Flags für Befehlssyntax 

c20£f e8 inx Position des Kommas plus 1 

c210 8e 7702 stx 50277 Länge von Filename 1 setzen 

€213 8e 78 02 SCH 50278 Länge von Filename 2 gleichsetzen 
c216 ad 8a 02 lda s028a Joker (*) Flag; Joker gefunden? 
c219 £f0O 0d beq $5c228 verzweige, wenn nein 

c2lb a9 80 lda #580 Vorhandensein von '*' anzeigen 
c2ld 0d 8b 02 ora 5028b durch Setzen von Bit 7 

c220 8d 8b 02 sta 5028b als Flag für Befehlssyntax 

©223 a9 00 lda #500 Jokerflag 

c225 8d 8a 02 sta 5028a löschen 

c228 98 tya wurde ein '=' gefunden? 

c229 £0 .:29 beq 5c254 verzweige, wenn nein 

c22b 9A Ta 02 sta 5027a,x Zeiger auf Filetabelle 

c22e ad 77 02 lda 50277 Länge von Filename 1 

e231 8a 73 02 sta 50279 als Zeiger auf Name 2 speichern 
c234 a9 8d lda #58A Zeilenendekennzeichen 

c236 20 68 c2 jsr 5c268 Zeile bis zum Ende durchsuchen 
233 e8 inx Anzahl der Kommas 

c23a 8e 78 02 stx 50278 merken 

c23d ca dex Originalwert wiederherstellen 
c23e ad 8a 02 lda s028a '*x' als Joker vorhanden 

c241 £0 02 beq $c245 verzweige, wenn nein 

c243 a9 08 lda #508 Bit 3 als Flag setzen 

c245 ec 7702 cpx 50277 Noch weitere Kommas vorhanden? 
c248 £0 02 beq Sc24c verzweige, wenn nein 

c24a 09 04 ora #504 Bit 2 als Flag setzen 

c24c 09 03 ora #503 Bit 0 und 1 als Flags setzen 
c24e 4d 8b 02 eor 5028b Status ändern 

c251 8d 8b 02 sta 5028b Neue Flags für Syntax abspeichern 
c254 ad 8b 02 lda 5028b Flags für Befehlssyntax 

@251 ae 2a 02 ldx 5022a Nummer des auszuführenden Befehls 
c25a 3d a5 fe and Sfea5,x Prüfen auf Standardsyntax 

c25d do 01 bne 5c260 verzweige, wenn fehlerhaft 

c25f 60 LES Ende 

c260 8d 6c 02 sta 5026c Fehlerflag setzen 

c263 a9 30 lda #530 Nummer der Fehlermeldung 

c265 4c c8 ci jmp $c1lc8 '30, SYNTAX ERROR'ausgeben 

c268 Durchsucht den Befehlsstring auf ein bestimmtes Zeichen (in 





Akku). Y bestimmt die Startposition beim Suchen; X enthält 
den Zeiger in die Tabelle der Filenamenzeiger. Es wird auf 
die Sonderzeichen im Befehlsstring, z.B. '*', '?" und ','" 
geachtet. Wenn das gesuchte Zeichen gefunden wird, wird das 
Z-Flag gesetzt. 


c268 8d 75 02 sta 50275 gesuchtes Zeichen 

c26b cc 74 02 cpy 50274 Länge der Befehlszeile erreicht? 
c26e b0O 2e bes $c29e verzweige, wenn ja 

c270 bl a3 lda ($Sa3),y Zeichen aus INPUT-Puffer holen 
c272 c8 iny Index auf nächstes Zeichen 

273 cd 75 02 cmp 50275 mit gesuchtem Zeichen vergleichen 
c276 £f0 28 beq Sc2a0 verzweige, wenn identisch 

c278 c9 2a cmp #52a vergleiche auf '*' 

c27a £0 04 beq 5c280 verzweige, wenn ja 


c27c e9- 2 3E cmp #S3£ vergleiche auf '?' 
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c27e d0O 03 bne 5c283 verzweige, wenn nein 

c280 ee 8a 02 inc s028a Jokerflag setzen 

c283 e9: 22€ cmp #$2c vergleiche auf ',' 

c285 d0O e4 bne $c26b verzweige, wenn nein 

c287 98 tya augenblickliche Position 
c288 94 7b 02 sta 5027b,x des Kommas in Tabelle 
c28b ad 8a 02 lda 5028a Jokerflag 

c28e 29 IE and STE gesetzt? 

c290 £0 07 beq 50299 verzweige, wenn nein 

c292 a9 80 lda 580 Bit 7 

c294 95 e7 sta Se7,x als Flag für Joker merken 
©2386 8d 8a 02 sta 5028a und in Jokerflag abspeichern 
c299 e8 inx Anzahl der Kommas erhöhen 
c29a e0 04 cpx 504 schon 4 Kommas? 

c29c 90 cd bcec $c26b weitermachen, wenn nein 
c29e a0 00 ldy s00 ndex löschen 

c2a0 ad 74 02 lda 50274 Länge der Befehlszeile 
c2a3 9d4 7b 02 sta s02T7b,x als Flag in Tabelle 

c2a6 ad 8a 02 lda s028a Jokerflag abfragen 

c2a9 29. IE and STE Bits 0-6 auswählen 

c2ab £0O 04 beq $c2bl verzweige, wenn kein Joker 
c2ad a9 80 lda S80 Flag für Joker als Bit 7 
c2af 95 e7 sta Se7,x in Tabelle setzen 

c2bl 98 tya Länge der Befehlszeile 
c2b2 60 rts Ende 

c2b3 nitialisiert alle Kommandotabellen und -zeiger und prüft 








die Länge der Eingabezeile. Setzt alle Variablen und Zeiger 
zurück. Gibt bei zu langer Zeile eine Fehlermeldung aus. 
Sollen nur die Parameter gelöscht werden, so erfolgt der 
Einsprung bei $c2dc. 








c2b3 a4 a3 ldy Sa3 Zeiger in INPUT-Puffer 

C2b5 £ 14 beq $c2cb verzweige, wenn jetzt Null 
c2b7 88 dey Zeiger vermindern 

c2b8 = 10 beq $Sc2ca verzweige, wenn Eins 

c2ba 20 02 aa SE Saa02 auf 'UD' testen; Zeichen aus String holen 
c2bd c9 0d cmp #50A Marke für Zeilenende? 

c2b£f £ 0a beq Sc2cb verzweige, wenn ja 

ezeıl: 88 dey Zeiger in Puffer vermindern 
c2c2 20 02 aa jsr Saa02 auf 'U0' testen; Zeichen holen 
c2c5 c9 0d cmp #504 Marke für Zeilenende? 

c2c7 £ 02 beq Sc2cb verzweige, wenn ja 

c209 c8 iny Zeiger auf alten ert 

c2ca c8 iny setzen 

c2cb 8c 74 02 sty 50274 und als Zeilenlänge speichern 
c2ce c0 2a cpy #52a mit max. Länge (42) vergleichen 
c2d0 a0 ££ ldy #S£f£f Index setzen 

c2d2 90 08 bec $c2dc verzweige, wenn kleiner als 42 
c2d4 8c 2a 02 sty 5022a Befehlsnummer löschen 

c2d7 aa 932 lda #532 Nummer der Fehlermeldung 

c2d9 4c c8 ci jmp $c1lc8 '32, SYNTAX ERROR' ausgeben 
c2dc a0 00 ldy #500 Index löschen 

c2de 98 tya Füllwert für Flags; Speicherstellen löschen 
c2df 85 a3 sra Sa3 Zeiger auf INPUT-Puffer LO 

c2el 8a .58 ‚DZ sta 50258 Recordlänge 


c2e4 8d 4a 02 sta 5024a gerade behandelter Filetyp 
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02 


02 
02 
02 
02 
02 


02 


02 
02 


iletyp 

Zeiger auf ersten Filenamen 
Zeiger auf zweiten Filenamen 
Länge des ersten Filenamens 
Länge des zweiten Filenamens 
Jokerflag 

Fehlerflag 

ndex für 5 Zeichen setzen 
Zeiger auf Filetabelle 

Zeiger auf Directory-Sektoren 
Zeiger auf Directory-Einträge 
Tabelle der Laufwerksnummern 
Tabelle der Jokerflags 
Spurnummern der Files 
Sektornummern der Files 
nächstes Zeichen 

und weitermachen 

Ende 





e2 


78 
ea 


02 





Laufwerksnummern holen und setzen. 
Länge des zweiten Filenamens 
Länge des erster Filenamens 
Wert 1 

Länge von Filename 2 

Zeiger auf Filename 2 

zuletzt benutztes Laufwerk 

ndex löschen 

Zeiger auf Filenamen 1 

Position des x-ten Filenamens 
Laufwerksnummer holen 

Zeiger auf Filename 1 

Position des Namens abspeichern 
Laufwerksnummer 

in Tabelle abspeichern 

nächster Wert 

alle Nummern geholt? 

verzweige, wenn nein 





01 


02 


02 


02 


#500 
#53a 
50201,x 
$c352 
50200,x 
$c361 


#501 


50200,x 


Holt die Drivenummer aus dem Befehlsstring oder setze 


ansonsten den Standardwert (0). A enthält bei Einsprung den 


Zeiger in den INPUT-Puffer auf die Drivenummer. 
Zeiger merken 

Index setzen 

r.r 

Doppelunkt hinter Nummer? 
verzweige, wenn ja 
Doppelpunkt an dieser Stelle? 
verzweige, wenn nein 

nächster Wert 

Laufwerksnummer 

auf 0 und 1 beschränken 

und nach Y 

Position zurückholen 

Ende 

Laufwerksnummer holen 

Zeiger um 2 
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erhöhen 

vergleiche mit '0' 

verzweige, wenn ja 

vergleiche mit '1' 

verzweige, wenn ja 
unbedingter Sprung 
Standardwert setzen 

Flag setzen, daß Standardwert 
benutzt werden muß 
unbedingter Sprung 


02 
02 


E3 


02 


02 


02 


Setzt aktuelle Drivenummer und schaltet die LED am Laufwerk 
ein. 
Befehlssyntaxflag 

löschen 

Position der Laufwerksnummer 
Zeichen aus Befehlsstring holen 
auf gültige Laufwerksnummer testen 
verzweige, wenn gültig 

Zeiger erhöhen 

Länge der Befehlszeile 

verzweige, wenn Ende erreicht 
Länge der Befehlszeile 

minus 1 

Laufwerksnummer suchen 

Flags für nicht gefunden setzen 
Standardwert für Laufwerk 
isolieren und 

setzen 

LED einschalten; Ende 








Schaltet die Drivenummer in $7£ durch Inversion von Bit 0 
um. 

Drivenummer holen 

Bit 0 invertieren 

andere Werte ausschließen 

neue Nummer abspeichern 

Ende 





fe 


02 





$027a,y 
(Sa3),y 
#504 
Sfebb,y 
$c3b8 
$c3b0 


50296 


Zeiger für Filenamen setzen und Filetyp holen und setzen. 
Index löschen 

Ende des ersten Filenamens 

evt. gleich Position des 2. Namens? 
ja, dann nur ein Filename vorhanden 
Zeiger herstellen 

und holen 

Zeiger auf Filenamen holen 

als Index benutzen und 

Filetyp aus Befehlsstring holen 
Index in Filetyptabelle setzen 
zeigt auf "St, Dr. TUT; TR! 
verzweigt, wenn Filetyp gefunden 
Zähler erniedrigen 

und weiter versuchen 

Nummer des Filetyps oder $00 

merken 

Ende 
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02 


02 


c4 


02 


02 


c6 


c3 


02 


c6 


[eHl 
c3 




















Testet auf Drivenummer. Wird werder 0 noch 1 gefunden, 
wird in A das Bit 7 gesetzt, ansonsten werden alle 
ungültigen Bits gelöscht. 

Drive 0? 

verzweige, wenn ja 

Drive 1? 

verzweige, wenn ja 

sonst Bit 7=1 

andere Werte ausschließen 

Ende 


Geeignete Vorkehrungen zum Suchen einer Datei treffen. 


Null in den 

Zwischenspeicher schreiben 

Flag für Leseversuche setzen 
Akkuinhalt retten 

Anzahl der Drivenummern zum Prüfen 
Akkuinhalt zurückholen 

mit Zwischenwert verknüpfen 
Schleife zum Prüfen aller vorhan- 
denen Drivenummern auf korrekte 
Verarbeitung; das Ergebnis dieser 
Verknüpfung wird als Index verwen- 
det, um den richtigen Wert aus der 
Suchtabelle ab $C440 zu lesen. 
verzweige, wenn positiv 

Wert 

mal 4 nehmen 

Drivenummer 0 oder 1? 

verzweige bei Drivenummer 0 

Wert mal 8 

verzweige, wenn ungleich Null 
vorigen Wert zurückholen 
Akkuinhalt als Index 

Wert aus Suchtabelle lesen 

und auf Stack retten 

Alle Bits außer 0 und 1 löschen 
Anzahl der nötigen Lesezugriffe 
Akkuinhalt zurückholen 

Auf Bit 6=1 testen 
verzweige, wenn Bit 6=0 war 
erste Drivenummer zum Lesen holen 
andere Werte ausschließen 
und als aktuelle Nummer abspeichern 
Anzahl der nötigen Lesezugriffe 
verzweige, wenn kein Zugriff 

Drive, wenn nötig, initialisieren 
verzweige, wenn Status ok 

auf anderes Drive umschalten 

Anzahl der Lesezugriffe 

löschen 

Drive, wenn nötig, initialisieren 
verzweige, wenn Status ok 

Nummer der Fehlermeldung 

‘74, DRIVE NOT READY' ausgeben 

auf anderes Drive umschalten 











so 
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3d 


c6 jsr Sc63d 





php 
&3 jsr Sc38E 
plp 
beq 5c439 
lda #500 
02 sta 5028c 
beq 5c439 
c6 jsr Sc63d 
bne $c41lb 
(eh jmp $c100 
rol 
c4 jmp 5c400 


Drive, wenn nötig, initialisieren 
Drivestatus merken 

auf anderes Drive umschalten 
Drivestatus zurückholen 
verzweige, wenn Status ok 

Anzahl der Lesezugriffe 

löschen 

unbedingter Sprung 

Drive, wenn nötig, initialisieren 
verzweige bei Fehler 

LED für aktuelles Drive einschalten 
zweite Drivenummer in A schieben 
nächsten Zugriff vorbereiten 


8 


01 01 01 01 81 

















Sucht alle Files, die im Befehlsstring gefordert werden und 
stellt danach die erforderlichen Zeiger zur weiteren 
Bearbeitung her. Aussprung mit RTS, wenn File gefunden 
wurde. 

Drive(s) auf Zugriff vorbereiten 

Suche nach gültigem File 

anzeigen 

Zeiger setzen und Suchen beginnen 

verzweige, wenn Eintrag gefunden 

Anzahl der Zugriffe vermindern 

verzweige, wenn noch Zugriffe nötig 

Ende 

Flag für Lesezugriff 

setzen 

auf anderes Drive umschalten 

LED für aktuelles Drive einschalten 

und Suche fortsetzen 

nächsten gültigen Eintrag suchen 

aufhören, wenn nicht gefunden 

Fileeinträge prüfen 

Fileeinträge gefunden? 

verzweige, wenn nein 

alles gefunden, also Ende 

Flag für gesuchten Eintrag gefunden 

verzweige, wenn nicht gefunden;A=$SFF 

unbedingter Sprung 

Einträge alle gefunden? 

weiter suchen, wenn nein 

alles gefunden, also Ende 








42 42 42 42 
e3 jsr Sc3ca 
lda #500 
02 sta 50292 
c5 jsr Sc5ac 
bne $c475 
02 dec 5028c 
bpl 5c462 
res 
lda #501 
02 sta 50284 
c3 jsr Sc38E 
cl jsr Sc100 
c4 jmp $c452 
c6 jr $c617 
beq 5c485 
c4 jsr $c4d8 
02 lda s028£ 
beq $c47e 
rts 
02 lda 50253 
bmi $5c470 
bpl $c475 
02 lda so28£ 
beq Sc45c 
rts 
c6 jsr 5c604 
beq Sc4aa 
bne Sc4ba 
lda #501 
02 sta 50284 
c3 jsr Sc38Ef 
cl jsr $c100 


Sucht den nächsten Filenamen im Directory. Wird er auf 
einem Laufwerk nicht gefunden, so wird auf das andere 
umgeschaltet. 

Zeiger setzen und Suchen beginnen 

verzweige, wenn nicht gefunden 

unbedingter Sprung 

Flag für Lesezugriff 

setzen 

auf anderes Drive umschalten 

LED für aktuelles Drive einschalten 


B.3 Der Diskcontroller WD 1770 307 








02 
c5 


02 
02 


02 


c6 


c4 


02 


02 


02 


02 








Suche nach gültigem File 
anzeigen 
Zeiger setzen und Suche beginnen 

verzweige, wenn Filename gefunden 


Flag für Einträge gefunden setzen 
Flag für Fileeinträge gefunden 
verzweige, wenn alle Namen gefunden 
Zähler für Zugriffe vermindern 
verzweige, wenn Zugriff noch nötig 
Ende 
Nächsten gültigen Eintrag suchen 
kein weiterer Eintrag mehr? 
gesuchte Einträge gefunden? 

Flag für gesuchten Eintrag gefunden 
verzweige, wenn Eintrag gefunden 
Flag für Einträge gefunden 
weitersuchen, wenn nicht gefunden 
Eintrag gefunden; Erde 

Filetyp überprüfen 

kein Filetyp; Ende 

Parameter aus Tabelle holen 

Filetyp aussondern 

mit gefundenem vergleichen 
weitersuchen, wenn ungleich 

File gefunden; Ende 


02 
02 
c5 


c5 


02 


02 


c6 


c5 
02 














set 
xX= 


zen 
s00 


Vergleichen aller Fileeinträge im Directory mit denen im 
Befehlsstring; Gleichheit anzeigen. 
Flag für Eintrag gefunden 


Jokerflag löschen 
Tabelle durchsuchen 
verzweige, wenn noch ein Name fehlt 





näc 
Bit 
ver 
näc 


lau 


näc 





Ende; all 
Zeiger für nächstes File setzen 
kein weiteres File; dann Ende 
Drivenummer holen und mit der des 


hsten 
0 ins 
Zweige 


Test auf 


hsten 


£fwerk, 





hsten 


e Files gefunden 


Filenamens vergleichen 
Carry-Flag schieben 

‚ wenn Nummer identisch 
Standarddrivenummer 
Fintrag suchen 


kein Eintrag mehr auf Standard- 


also Suche auf anderem 


Drive fortsetzen 





Filenamen prüfen und 


Startwert für Suche setzen 

Ende des Namens im Befehlsstring suchen 
Y ist Index in die Eingabezeile 
Eingabezeile weiter prüfen 


Zeichen im INPUT-Puffer mit 
gefundenem Eintrag vergleichen 
verzweige, wenn gleich 
vergleiche mit '?' 

verzweige, wenn ungleich 
Zeichen aus Directorypuffer 
Name schon zu Ende? 
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c519 
c51b 
c5lc 
c5ld 
c520 
522 
525 
c527 
529 
c52b 
c52d 
c52£f 
es3H 
€533 
3535 
6538 
c53b 
c53d 
east 
c542 
c545 
c547 
c549 
c54b 
c54d 
c54f 
c550 
c551 
533 
c555 
536 
c558 
c55a 
es5c 
c55e 
c560 
c562 
c564 
c566 
c568 
c56a 
c56c 
c56e 
c570 
c572 
c574 
c577 
c578 
c57a 
c57d 
c580 
c582 
c584 
c586 
c589 
c58b 
c58e 
c591 





cc 


02 
02 


02 
02 


02 


02 











Sc4e7 


50276 
$c52b 
50200,x 
#52a 
$c535 
$c50a 
#513 
$c535 
(594),y 
#S$a0 
Sc4e7 
50279 
50253 
Se7,;X 
#580 
5028a 
50294 
Sdd,x 
sel 
$d8,x 
$00 
(594),y 


s40 
s6f 


Ssdf 
$c55c 
520 
27 
Ss6£ 

Ss6£ 

$80 
Se7,x 
Ss6£ 
Se7,x 
Se2,x 
#580 
STE 
Se2,x 
(594),y 
50280,x 








(894) ,y 
50285,x 
50258 
$c589 
#515 
(894) ,y 
50258 
#Sff 
so28f 
50278 
50279 


verzweige, wenn ja 

Zeiger in INPUT-Puffer erhöhen 
Zeiger in Directorypuffer erhöhen 
Ende des Namens schon erreicht? 
verzweige, wenn ja 

nächstes Zeichen holen 

'*x' Joker? 

verzweige, wenn ja 

weitersuchen 

Ende des Directoryeintrags? 
verzweige, wenn ja 

Zeichen aus Directorypuffer 
'Shift Space'; Ende des Namens? 
verzweige, wenn nein 

Position des gefundenen Namens 
merken 

Filetypangabe holen 

Bit 7 absondern 

und als Joker-Flag abspeichern 
Zeiger auf Eintrag holen 

und in Tabelle abspeichern 
Sektornummer des Fileeintrages 

in Tabelle eintragen 

Index zurücksetzen 

Filetyp holen 

Zeiger auf nächstes Zeichen 
Filetyp auf Stack retten 

Bit 6 für Scratch-Schutz 
isolieren und abspeichern 

Filetyp zurückholen 

Bit 5 löschen 

verzweige, wenn File geschlossen 
Bit 5 wieder setzen 
Bits 3,4,6 ud 7 löschen 
Bit 6 zurückholen 
Ergebnis in Zwischenspeicher 
alle unwichtigen 
Bits in der 
Tabelle werden gelöscht und 

das Ergebnis wieder abgespeichert 
Drivenummerntabelle auf 

die gleiche Art 

bereinigen 

und setzen 

Tracknummer des Files holen 

und ersten Track abspeichern 
Zeiger auf nächstes Zeichen 
Sektornummer des Files holen 

und als ersten Sektor abspeichern 
Recordlänge 
verzweige, wenn schon geholt 
Zeiger setzen 
und Recordlänge aus Puffer holen 
als aktuelle Länge abspeichern 
Flag für Fileeinträge gefunden 
setzen 

Anzahl der Filenamen 

setzen und 
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c594 ce 79 02 


c59a ae 79 02 


csal bd 80 02 


vermindern 

verzweige, wenn größer oder gleich Null 
kein Filename mehr; Ende 
Anzahl der Filenamen 

File schon gefunden? 

nein, wenn Bit 7 noch gesetzt 
Tracknummer schon geholt 

ja, wenn ungleich Null 

Flag 

zurücksetzen und 

Ende, da alle Namen gefunden 





c5fd ec 92 02 


c604 ad 85 fe 








Vorbereitung zum Suchen im Directory. Setzen aller 
Standardwerte. 

Sektor des ersten Directoryeintrags 
setzen 

Y = SFF 

Flag für Fileeintrag gefunden 

Wert 18; Directorytrack 

als aktuellen Track übernehmen 
Sektor 1 

als aktuellen Sektor setzen 

Flag für letzten Sektor im File 
angegebenen Sektor lesen 

wurde der letzte Sektor gelesen? 
verzweige, wenn nein 

Ende 

Zähler für Fileeinträge 

setzen 

erstes Byte (Tracknummer) 

aus dem Puffer holen und 
abspeichern 

Zeiger in aktuellen Puffer setzen 
Directoryzähler vermindern 

erstes Byte (Filetyp) 

aus dem Direetory lesen 

verzweige, wenn kein DEL File 

wurde schon ein DEL File gefunden? 
ja, weiter im Directory suchen 
sonst Track' und Sektornummer holen 
Sektornummer 

übernehmen 

Pufferzeiger Lo als Zeiger 

auf ersten Directoryeintrag 

setzen 

verzweige, wenn Zeiger gleich Null 
Suche erledigt; also Ende 

gültiger Eintrag gefunden 

war gültiger Eintrag verlangt? 
verzweige, wenn ja 

es wird nach einem DEL File gesucht; also weiter 
Wert 18; Directorytrack 

als aktuelle Tracknummer speichern 
Sektornummer des aktuellen Direc' 
toryblocks speichern 

gewünschten Block lesen 

50294 Zeiger auf aktuellen Fileeintrag 
Zeiger auf Eintrag setzen 
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c617 a9 £f£f lda #S£ff Flag für Eintrag gefunden 

c619 8d 53 02 sta 50253 setzen 

c6lc ad 95 02 lda 50295 Zähler für Fileeinträge 

c6lf 30 08 bmi 50629 schon alle Einträge geprüft? 

c621 a9 20 lda #520 nein 

c623 20. 28.41 jsr $Sdlc6 Pufferzeiger um 32 erhöhen 

c626 4c d7 c5 jmp $c5d7 und weitersuchen 

c629 20 4d da jsr Sd44d nächsten Directoryblock lesen 

c62c 4c c4 c5 jmp $c5c4 und auf Eintrag untersuchen 

c62£ a5 94 lda 594 Directoryzeiger Lo 

c631 8d 94 02 sta 50294 aktueller Pufferzeiger 

c634 20 3b de jsr Sde3b Track- und Sektornummer holen 

c637 a5 81 lda sel Sektornummer als aktuellen Wert 

c639 8d 90 02 sta 50290 des Directoryblocks merken 

c63c 60 rts Ende 

c63d Testet auf Diskette im Laufwerk und initiali- siert, wenn 
die Diskette gewechselt wurde. 

c63d a5 68 lda 568 Flag zum Sperren des Initialisierens 

c63£f d0 28 bne 5c669 ungleich Null, dann Ende 

c641 a6 7£ ldx ST£ aktuelle Drivenummer 

c643 56 Le lsr Sie,X wurde Diskette gewechselt? 

c645 90 22 bcec 5c669 nein, dann Ende 

c647 89 ..E£ lda SEE Job-Fehlerflag 

c649 8d 98 02 sta 50298 setzen 

c64c 20 0e do jst Sd00e auf Diskette im Laufwerk prüfen 

c64f a0 f££f ldy S£f£ Fehlerflag in Y setzen 

ee. e3, D2 cmp 502 SYNC-Signal gefunden? 

c653 £f0O 0a beq Sc65f Fehlermeldung, wenn nein 

c655 c9 03 cmp 503 Blockheader gefunden? 

c657 £f0O 06 beq Sc65f Fehlermeldung, wenn nein 

c659 EINOE cmp Sof Laufwerk ansprechar? 

c65b £f0 02 beq Sc65f Fehlermeldung, wenn nein 

c65d a0 00 ldy s00 alles ok; Fehlerflag löschen 

c65f a6 7£ ldx STE aktuelle Drivenummer 

c661 4c a5 a9 jmp Sa9a5 Drivestatus setzen; zurück mit jmp $c664 

c664 d0O 03 bne 5c669 verzweige, wenn Fehler 

c666 20 42 do jsr 54042 Drive initialisieren 

c669 a6 7£ ldx STE aktuelle Drivenummer 

c66b 4c 17 aa jmp Saal? Drivestatus holen; Ende 

c66e Schreibt Filenamen aus dem Befehlsstring in den 
Directorypuffer. A enthält die Länge des Namens; X enthält 
die Position im Befehlsstring und Y enthält die 
Puffernumner. 

c66e 48 pha Länge des Filenamens retten 

c66£ 20 a6 c6 Bes Sc6a6 Ende der Eingabezeile suchen 

c672 20 88 c6 jSr 5c688 durch X festgelegten Teil in Puffer 

c675 68 pla Y schreiben und Länge wieder holen 

c676 38 sec Subtraktion vorbereiten und Länge 

c677 ed 4b 02 sbc 5024b mit maximaler Länge vergleichen 

c67a aa tax Ergebnis nach X 

c67b £f0O 0a beq 5c687 Länge gleich maximaler Länge? 

c67d 90 08 bec 5c687 nein; gröBer? dann verzweigen 

c67£f a9 a0 lda #$a0 kleiner, dann den Rest mit 

c681 91 94 sta ($94),y 'shift Space' auffüllen 

c683 c8 iny nächstes Byte 


c684 ca dex Zähler minus 1 
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weitermachen, wenn ungleich Null 
Ende 


c687 60 
c688 

c688 98 
c689 0a 
c68a a8 


c68b b9 99 00 


c690 b9 9a 00 


c697 bd 00 02 





c69c c8 
c69d4 £ 06 
c69f e8 


c6a0 ec 76 02 


50099, y 
s94 
5009a,y 
$95 
#500 
50200,x 
(594),y 


$c6a5 


50276 
$c697 


Schreibt den Inhalt des INPUT-Puffers in einen anderen 
Puffer. Y enthält die Nummer des anderen Puffers; X enthält 
die Position des ersten Zeichens im INPUT-Puffer. 
Puffernummer nach A 

mal 2 

als Index verwenden 

Pufferzeiger Lo aus Tabelle 

als Zeiger in Directorypuffer Lo 

Pufferzeiger Hi aus Tabelle 

als Zeiger in Directorypuffer Hi 

Zeiger auf Null 

Zeichen aus INPUT-Puffer holen 

und in neuen Puffer schreiben 

Zeiger auf nächstes Zeichen 

Ende, wenn Y größer 255 

zähler plus 1 

letztes Zeichen bereits erreicht? 

weitermachen, wenn nein 

Ende, da alle Zeichen geschrieben 








c6ba8 8d 4b 02 


cbad bd 00 02 


c6b8 ee 4b 02 


c6be cd 4b 02 


c6c3 ec 74 02 


c6c8 8e 76 02 


Ende des Namens im Befehlsstring suchen, dessen 
Anfangsposition im INPUT-Puffer sich in X befindet. 
Länge des Namens 

setzen 

Position des ersten Zichens 
auf Stack retten 

Zeichen aus INPUT-Buffer holen 
mit ',' vergleichen 

Ende, wenn gleich 

mit '=' vergleichen 

Ende, wenn gleich 

Länge des Namens erhöhen 

ndex erhöhen 

Wert 15 

mit Länge vergleichen 

Ende, wenn Länge größer 

mit Zeilenende vergleichen 
weitermachen, wenn kleiner 
Ende des Namens abspeichern 
Anfangsposition zurückholen 
und als Index 





c6cb 68 
c6cc aa 
c6cd 60 
c6ce 


c6d0 48 

c6dl a5 82 
c6d3 48 

c6d4 20 de c6 
c6d7 68 

c6d8 85 82 
c6da 68 


Holt einen Fileeintrag aus dem Directory über den internen 
Lesekanal; Sekundäradresse 17. 

aktuelle Sekundäradresse 

auf Stack 

aktuelle Kanalnummer 

auf Stack 

Eintrag über den Lesekanal holen 

Kanalnummer zurückholen 

und setzen 

Sekundäradresse zurückholen 
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und setzen 
Ende 





 oaaTov suwnhH 








02 


02 


c7 


02 


fe 








Sc7ac 
(594),y 


$c74a 
#$3c 
502b2,x 
#S0£ 


Sfec5,y 


Routine zum Holen der Fileeinträge. 
7 als Sekundäradresse für internen 
Lesekanal setzen 

Kanal suchen und zum Lesen öffnen 
Directorypufferzeiger neu setzen 
Flag für Eintrag vorhanden 

letzter Eintrag? 

ja, Flag für Zugriff auf anderes 
Laufwerk testen 

Kein weiterer Zugriff; BLOCKS FREE 
eldung schreiben und 

Ende 

Zugriff auf anderes Drive? 
verzweige, wenn nein 

Flag vermindern; noch ein Zugriff? 
verzweige, wenn ja 

Flag nochmals vermindern 

auf anderes Drive umschalten 

BLOCKS FREE Meldung schreiben 

Flag für Umschalten setzen 

auf anderes Drive umschalten; Ende 
Anzahl der Blöcke Hi 

setzen 

Flag für Diskettenzugriff löschen 
Directoryüberschrift schreiben 

Flag für weitere Einträge setzen 
Ende 

24; Länge eines Directoryeintrags 
Position des Hi Bytes der Filelänge 
Anzahl derBlöcke Hi 

in Zwischenspeicher schreiben 
verzweige, wenn Länge Null 

22; Länge des Eintrags minus 2 
zeigt auf Anzahl der Blöcke Lo 
Anzahl der Blöcke Lo holen 

und in Zwischenspeicher 

Länge minus 2 
verzweige, wenn X gleich $16 
vergleiche Blockzahl Lo mit 10 
verzweige, wenn kleiner 

Länge minus 1 
vergleiche Blockzahl Lo mit 100 
verzweige, wenn kleiner 

Länge minus 1 
Directorypuffer löschen 
Y=0; Hole Filetyp 
auf Stack 

teste auf Bit 6; Bit 7 ins Carry 
verzweige, wenn nicht gesetzt 
'kleiner' Zeichen für Scratch Schutz 
hinter den Filetyp in Puffer 

Filetyp zurückholen 

Bits 0 bis 3 absondern 

als Index in Filetypentabelle 

3. Buchstaben holen 
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02 


fe 
02 


fe 
02 


02 


02 


02 


02 


02 


02 


02 
02 


c4 











und in Puffer schreiben 
nächstes Zeichen 
2. Buchstaben holen 

und in Puffer schreiben 
nächstes Zeichen 
1. Buchstabe holen 

und in Puffer schreiben 
Zeiger 
minus 2 
verzweige, wenn File geschlossen 
'*! als Zeichen 
vor Filetyp in den Puffer schreiben 
'Shift Space' 
in den Puffer schreiben 

nächstes Zeichen 

Endeposition des Filenamens 
Filenamen aus aktuellem Puffer 

in Directorypuffer schreiben 
Zeiger auf 

nächstes Zeichen 

schon 3 Zeichen? 

weitermachen, wenn nein 

"" Anführungszeichen 

vor Filenamen in Puffer schreiben 
Zeiger auf nächstes Zeichen 

32; Länge des Fileeintrags 

Ende schon erreicht? 

Zeichen aus Directorypuffer holen 
mit '"' vergleichen 

verzweige, wenn gleich 

mit 'Shift Space' vergleichen 
verzweige, wenn ungleich 

durch '"' ersetzen 

und schreiben 

nächstes Zeichen 

Ende des Namens schon erreicht? 
verzweige, wenn ja 

Bit 7 

in den restlichen Zeichen 

löschen 

unbedingter Sprung 

nächsten Directoryeintrag suchen 
Flag für weitere Einträge setzen 
Ende 





02 


#S1b 
#520 
502b0,y 


$c7b0 


Löschen des Puffers für den Namen im Directory durch Füllen 


mit $20 ('Space'). 

Länge des Directorypuffers 
'Space' 

in den Puffer schreiben 
nächstes Zeichen 

und weitermachen; 27 mal 
Ende 


C Das dokumentierte ROM-Listing der 1570/71 






































c7b7 Kopf des Directory für Anzeige erzeugen und in den 
Directory-Puffer $02b0o-$02d4 schreiben. 

c7b7 20 19 £1 ser $f119 Zeiger für BAM setzen 

c7ba 20 df £0 jsr Sfodf BAM, wenn nötig, von Diskette lesen 

c7bd 20 de 17 jsr Sc7lac Directorypuffer löschen 

c7c0 a9 f£f£ lda #S£ff Zwischenspeicher 

2702 85 6f£f sta Ss6£f setzen 

c7c4 a6 7£ ldx STE aktuelle Drivenummer 

c7c6 8e 72 02 stx 50272 als Blockanzahl Lo in Specher 

E69 a9 00 lda #500 Null 

cT’cb 8d 73 02 sta 50273 als Blockanzahl Hi 

c’ce a6 £9 ldx s£9 aktuelle Puffernummer 

c7d0 bd e0 fe lda Sfee0,x Pufferadresse Hi als aktuellen 

c7d3 85 95 sta $95 Pufferzeiger Hi setzen 

c7d5 ad 88 fe lda Ssfe88 144; Position des Diskettennamens 

c7d8 85 94 sta 594 als Pufferzeiger Lo merken 

c7da a0 16 dy 16 Anzahl der Zeichen im Namen 

c7dc bl 94 Lda ($94),y Zeichen des Namens aus Puffer holen 

c7de c9 a0 cmp Sa0 'Shift Space'? 

c7e0 d0O 0b bne Scled verzweige, wenn nein 

cTe2 a9 31 da 531 ASCII-Code für '1' 

cT7e4 2 byte $2c nächsten Befehl überspringen 

c7e5 bl 94 lda ($94),y Zeichen aus Puffer holen 

c7e7 c9 a0 cmp Sa0 'Shift Space' ? 

c7e9 d0 02 bne Sc7led verzweige, wenn nein 

c7eb a9 20 da 520 "Space! 

cTed 9% 53: W2 sta 502b3,y in den Directorypuffer schreiben 

c7E£O 88 dey Zeiger auf nächstes Zeichen 

c7£l 10: £2 bpl $c7e5 weitermachen, bis Puffer voll 

c7£3 a9 12 Lda $12 'RVS ON! 

eIES 8d bl. 02 sta s02bl in den Puffer schreiben 

c7£8 a9 22 Lda 522 1111 

c7fa 8d b2 02 sta 502b2 vor und 

c7fd 8d c3 02 sta 502c3 hinter den Namen schreiben 

c800 a9 20 Lda 520 "Space! 

c802 8d c4 02 sta 502c4 als letztes Zeichen des Namens 

c805 60 rts Ende 

c806 Zeile mit 'BLOCKS FREE' erzeugen und in den Di- 
rectorypuffer schreiben. 

c806 20. ac. 07 jsr Sc7lac Directorypuffer löschen 

c809 a0 0b ldy #50b 12 Bytes 

c80b b9 17 c8 lda $5c817,y 'BLOCKS FREE.' holen und 

c80e 99 :»bL 02 sta 502bl,y in den Puffer schreiben 

c8ll 88 dey nächstes Zeichen 

c812 10.637 bpl $c80b und weitermachen, bis alles übertragen 

c814 4c 4d ef jmp Sef4d Anzahl der freien Blöcke holen; Ende 

c817 Bytes für 'BLOCKS FREE' 

c817 42 4c 4f 43 4b 53 20 46 52 45 45 2e 

c823 SCRATCH-Befehl (S-Befehl). 

c823 20 98 c3 jsr 5c398 Filetyp ermitteln und Werte setzen 

c826 20 20 c3 jsr 50320 Drivenummer aus Befehlsstring holen 

c829 20: car 63 jsr Sc3ca Zugriff auf Laufwerk vorbereiten 

c82c a9 00 lda #500 Anzahl der gelöschten Files 

c82e 85 86 sta 586 setzen 

c830 20 9d c4 jSE Sc49d Ersten Directoryeintrag suchen 
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c833 30 3d bmi 5c872 verzweige, wenn nicht gefunden 
c835 20 b7 dd jsr Sddb7 File ordnungsgemäß geschlossen? 
c838 90°-:33 bec Sc86d verzweige, wenn nein; kein SCRATCH 
c83a a0 00 ldy #500 Zeiger auf Fileeintrag 
c83c bl 94 lda ($94),y Filetyp holen 
c83e 29 40 and #540 Bit 6 isolieren; SCRATCH-Schutz? 
c840 d0O 2b bne Sc86d verzweige, wenn ja; kein SCRATCH 
c842 20 b6 c8 jsr $c8b6 Filetyp = $00 setzen; BAM schreiben 
c845 a0 13 ldy #813 Index auf 19. Zeichen 
c847 bl 94 lda ($94),y Tracknummer des ersten Side-Sektors 
c849 £f0 0a beq $c855 verzweige, wenn nicht vorhanden 
c84b 85 80 sta S80 Tracknummer übernehmen 
c84d c8 iny nächstes Zeichen 
c84e bl 94 lda ($94),y Sektornummer holen und 
c850 85 81 sta sel ebenfalls übernehmen 
c852 20 74 c8 jsr $5c87d Side-Sektoren löschen 
c855 ae 53 02 ldx 50253 Nummer der gefundenen Datei 
c858 a9 20 lda #520 Bit. 5 
c85a 35 e7 and Se7,x in Tabelle testen 
c85c d0 0d bne Sc86b verzweige, wenn gesetzt; File offen 
c85e bd 80 02 lda 50280,x Tracknummer des Files holen und 
c861 85 80 sta s80 übernehmen 
c863 bd 85 02 lda 50285,x Sektornummer 
c866 85 81 sta sel ebenfalls übernehmen 
c868 20 74 c8 jsr $5c87d Datei löschen; BAM neu schreiben 
c86b e6 86 inc 586 Anzahl der gelöschten Files erhöhen 
c86d 20 8b c4 jsE 5c48b nächsten Dateieintrag suchen 
c870 103 z€3 bpl 5c835 verzweige, wenn vorhanden; SCRATCH 
c872 a5 86 lda 586 Anzahl der gelöschten Files 
c874 85 80 sta s80 für die Ausgabe bereitstellen 
c876 a9 01 lda #501 Nummer der (Fehler)Meldung 
c878 a0 00 ldy #500 Nummer des Sektors 
c87a 4c a3 ci jmp S$Scla3 '01, FIlES SCRATCHED' ausgeben 
c87d Datei löschen und Blöcke in der BAM wieder freigeben; BAM 

schreiben. 
c87d 20 5f£f ef jSE Sef5f Ersten Dateiblock wieder freigeben 
c880 20 75 d4 jsr $d475 internen Lesekanal öffnen (Sekundäradresse 17) 
c883 20 19 £1 jsr Sf119 Puffernummer für BAM nach X holen 
c886 b5 a7 lda Sa7,x aktuelle Kanalnummer 
c888 c% \EE cmp #S£f£ ist der Puffer inaktiv? 
c88a £0 08 beq 5c894 verzweige, wenn ja 
c88c ad £9 02 lda 502£9 Flag für BAM nicht auf Diskette 
c88f 09 40 ora #540 schreiben; Bit 6 setzen 
c891 8d 9 02 sta s02£9 Anzeige, daß beide Puffer aktiv 
c894 a9 00 lda #500 Parameter für gerade aktiven 
c896 20 c8 d4 jsr $d4c8 Puffer setzen 
c899 20: 56° di: jsr $d156 Tracknummer aus Puffer holen 
c89c 85 80 sta s80 und merken 
c89e 20 56 di jsr $d156 Sektornummer aus Puffer holen 
c8al 85 81 sta sel und merken 
c8a3 a5 80 lda s80 Tracknummer (letzter Block)? 
c8a5 do 06 bne Sc8ad verzweige, wenn ungleich Null 
c8a7 20 £4 ee jsr Seef4 BAM schreiben 
c8aa 4c 27 d2 jmp $d227 lesekanal wieder freigeben 
c8ad 20 5£f ef jsr Sef5f Block in BAM freigeben 
c8b0 20 4d d4 jsr Sd44d Nächsten Block des Files lesen 
c8b3 4c 94 c&8 jmp 50894 und ebenfalls freigeben 
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c8b6 
c8b6 a0 00 
c8b8 98 


Fileeintrag im Directory löschen. 
Zeiger auf erstes Zeichen im 
Fileeintrag setzen (Filetyp) 

und diesen löschen (DEL) 
geänderten Block wieder schreiben 
und Ende des Jobs abwarten; Ende 


c8c8 8d 00 06 


c&öcd 8d 01 06 


c8d2 8d 02 06 


c8d7 20 d3 de 











BACKUP-Befehl (D-Befehl; n.v.). 
Nummer der Fehlermeldung 
'31, SYNTAX ERROR' ausgeben 


Routine zum Formatieren einer Diskette. 
OP-Code für JMP 

in Puffer schreiben 

Lo-Byte der Adresse 

in Puffer 

Hi-Byte der Adresse ($fac7) 
ebenfalls in Puffer 

Für Puffer 3 die aktuelle 

Track- und Sektornummer setzen 
aktuelle Drivenummer 

Jobcode; Programm im Puffer starten 
in Jobspeicher; an Diskcontroll 
Rückmeldung lesen 

auf Endemeldung warten 

o.k. Meldung? 

verzweige, wenn ja 

Nummer der Fehlermeldung 

für Drive 0 

'21, READ ERROR' ausgeben 

Job fehlerlos beendet 








c8ec 4c 0a e6 
c8ef 60 
c8f0 


c925 de. :C8: „CH 
c928 ad 8b 02 











COPY-Befehl (C-Befehl). 
BAM-Puffer 

in Belegungsplan freigeben 
Track- und Sektor der BAM setzen 
Puffernummer für BAM holen 

Code für Puffer unbenutzt 

für BAM-Puffer setzen 

alle Käle 

freigeben 

':' in Eingabezeile suchen 
verzweige, wenn gefunden 

'31, SYNTAX ERROR' ausgeben 
Eingabezeile prüfen 

Drivenummern in Tabelle eintragen 
Flags für Syntaxprüfung 

mit 301010101 prüfen 

verzweige, wenn normales COPY 
Filetabelle 

Zeichen des entsprechenden Filenamens 
mit '*' vergleichen 

verzweige, wenn kein '*' 

Nummer der Fehlermeldung 

‘30, SYNTAX ERROR' ausgeben 
Flags für Befehlssyntax 

mit 311011001 prüfen 
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verzweige, wenn Syntax unkorrekt 
sonst ordnungsgemäß kopieren 


Parameter für das Kopieren einer ganzen Diskette setzen 
(Vs 

Werte löschen: 

Recordlänge 

Anzahl der Drivezugriffe 
Tracknummer des Files für Puffer 0 
Tracknummer des Files für Puffer 1 
Standardwert für Drivenummer (0) 
Bit 0 isolieren 

und als aktuelle Drivenummer setzen 
$01 als Sektornummer 

des ersten Directoryblocks setzen 
zweiten Fileeintrag gleich dem 
ersten setzen 

Ende 


c96e 20 cc ca 
&I73 8a 79% 02 


c976 20 fa c9 
9379 2025: 


c984 20.8 ,€el 
c98b ad 3c 02 
c98e 8d 3d 02 


c993 84 36: 02 
c996 20 2a da 





c99b 20 69 c9 
c99e 4c 94 ci 
c9al 20 a7 c9 
c9a4 4c 94 ci 

















Datei(en) in ein File kopieren 
Datei im Directory suchen 

Anzahl der Filenamen im Befehl 
weniger als drei? 

verzweige, wenn ja 

erste Drivenummer 

gleich der zweiten Drivenummer? 
verzweige, wenn nein 

Eintrag des ersten Files 

gleich Eintrag des zweiten Files? 
verzweige, wenn nein 
Directoryblock des ersten Eintrags 
gleich dem des zweiten Eintrags? 
verzweige, wenn nein 

gewünschtes File vorhanden? 
Zeiger auf zweiten Filenamen 

auf erstes Zeichen setzen 

File im Directory suchen 

und Filetyp holen 

verzweige, wenn SCRATCHED-File 
Dateitypen identisch? 

verzweige, wenn ja 

ummer der Fehlermeldung 

'64, FILE TYPE MISMATCH' ausgeben 
Nummer des internen Schreibkanals 
(18) setzen 

Kanalstatus 

übernehmen 

Code für nicht benutzten Kanal 
setzen 

erstes File kopieren 

und APPEND weiterer Files 
durchführen 

Ende 

Files kopieren 

und fertig 
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c9a7 Kopieren der Dateien. 

c9a7 20 e7 ca jsr Scae7 prüfen, ob File vorhanden 

cIaa a5 e2 lda Se2 Drivenummer des ersten Files 

IaE 23 and #501 isolieren 

cIae 38, IE sta STE und als aktuelle Drivenummer setzen 
c9b0 20 86 d4 jsr $d486 internen Schreibkanal öffnen 

c9b3 20 e4 d6 jsr Sd6e4 neue Datei in Directory eintragen 
c9b6 ae 77 02 ldx 50277 Zeiger in ersten Filenamen 

c9b9 8e 79 02 stx 50279 als aktuellen Zeiger übernehmen 
c9bc 20 £a c9 jsr ScYfa Directoryblock (s) lesen 

c9b£f as. 11 lda #S11 Nummer des internen Lesekanals 

c9c1 85 83 sta 583 als aktuelle Sekundäradresse setzen 
c9c3 20 eb do Jsr Sd0eb unbenutzten Lesekanal suchen 

eIe6 20.25 1 jsr $d125 Abfrage auf relative Datei 

c9c09 do 03 bne $ScIce verzweige, wenn kein relatives File 
c9ch 20 53 ca jsr $ca53 Kopieren von relativen Dateien 

c9ce a9 08 lda #508 EOI-Signal 

c9Id0 85. 8 sta s£f8 setzen 

c9d2 4c d8 c9 jmp Sc9d8 weiter... 

c9d5 20: “9b! GE jsr Sc£9b letztes Byte auf Diskette schreiben 
c9d8 20 35 ca jsr $ca35 Byte über internen Lesekanal holen 
c9db a9 80 lda #580 Byte 7 abfragen, d.h. 

cIdd 20 a6 dd jsr Sdda6 auf letzten Record testen 

cIe0 te: 23 beq $c9d5 verzweige, wenn noch weitere folgen 
c9e2 20 23 dl jSE $d125 Filetyp holen 

c9e5 £0 03 beq Sc9ea verzweige, wenn weitere Records 
c9e7 20:. 9b: .E£ jsr Sc£9b letztes Datenbyte schreiben 

c9ea ae 79 02 ldx 50279 aktuelle Filenamenzeiger 

cIed e8 inx erhöhen und mit der 

c9ee ec 78 02 cpx 50278 Länge des Filenamen vergleichen 
cIEfL 90 c6 bcec 5c9b9 verzweige, wenn kleiner 

c9£3 a9 12 lda #512 Nummer für internen Schreibkanal 
e9£5 85 83 sta 583 als aktuelle Kanalnummer setzen 
c9£7 4c 02 db jmp $Sdb02 COPY-Kanal und File schließen 

c9fa Internen Kanal zum Lesen eines Files öffnen. 
c9fa ae 79 02 ldx 50279 Zeiger auf Filenamen 

cI9fd b5 e2 lda Se2,x zugehörige Drivenummer holen 

eBEE 29 01 and #501 isolieren 

ca0l 85.) TE sta STE und als aktuelle Drivenummer merken 
ca03 ad 85 fe lda Sfe85 Nummer 18, Directorytrack 

ca06 85 80 sta s80 als aktuelle Tracknummer setzen 
ca08 b5 d8 lda $d8,x richtigen Sektor des Directory 
cada 85 81 sta sel ebenfalls übernehmen 

ca0c 20 75 da ISE $d475 Directoryblock lesen 

ca0f ae 79 02 ldx 50279 Zeiger für aktuellen Filenamen 

cal2 b5 da lda Sdd,x zum Holen der Position des Eintrags 
cal4 20 c8 d4 jsr $d4c8 setzen; Fileparameter holen 

cal? ae 79 02 ldx 50279 Zeiger für aktuellen Filenamen 
cala b5 e7 lda Se7,x als Index auf Filetypmaske 

calc 29 07 and #507 Filetyp daraus isolieren und 

cale 8d 4a 02 sta s024a als aktuellen Filetyp merken 

ca2l a9 00 lda #500 Null als 

ca23 8d 58 02 sta 50258 Recordlänge setzen; kein relatives File 
ca26 20 a0 d9 jsr Sd9a0 internen Lesekanal öffnen 

ca29 a0 01 ldy #501 Filetyp 





ca2b 20 25 di sr $d125 auf relative Datei testen 
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ca2e £0 01 


verzweige, wenn keine relative Datei 
Y=2 

gibt Anzahl der Jobs an (1 oder 2) 
Track- und Sektorparameter setzen; Ende 


d3 


al 


Byte über den internen Lesekanal holen und Sekundäradresse 
für Lesekanal setzen. 
17 als Sekundäradresse des internen Lesekanals 


ein Byte über den Lesekanal holen 
und zwischenspeichern 

Kanalnummer holen und als Index in 
die Kanlstatustabelle benutzen 
EOI-Bit isolieren 

und abspeichern 

verzweige, wenn EOI gesetzt 

Filetyp holen; auf relatives File testen 
verzweige, wenn kein relatives File 
Flag für letzten Record 

setzen 

Ende 








ca5b 48 
ca5sc a5 «ds 
case 48 


ca7f 68 
ca80 83. ..49 
ca82 68 


dl 
dl 
el 
e2 


Spezialroutine zum Kopieren relativer Dateien 
Drivenummer setzen 

Parameter auf letzten Record setzen 
Zeiger in Side-Sektor 

merken 

Nummer des aktuellen Side-Sektors 

merken 

interner Schreibkanal (Sekundäradresse 18) 
als aktuellen Kanal setzen 

freien Schreibkanal entsprechend suchen 
Drivenummer für Kanal setzen 

letzten Side-Sektor setzen 

Block von Diskette in Puffer lesen 
Zeiger in Side-Sektor 

zwischenspeichern 

Nummer des aktuellen Si-Sektors 
zwischenspeichern 

Parameter für weitere Behandlung löschen 
Zwischenspeicher 

Zeiger auf Beginn des Records 

Zeiger auf Position in Rcord 

Nummer des aktuellen Side-Sektors 
zurückholen 

Zeiger in Side-Sektor 

zurückholen 

Ende 











RENAME-Befehl (R-Befehl). 
Drivenummer (n) aus Befehlszeile holen 
Standardlaufwerksnummer (0) 

Bit für Nummer isolieren 

Nummer 'bereinigt' wieder abspeichern 
mit vorheriger Nummer vergleichen 
verzweige, wenn gleich 

Bit 7 als Flag für Suche auf 2 Drives 
setzen 
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c4 
ca 


ScAa4f 
Scae7 
$e3 
#501 
STE 
$d9 
ssl 
$de57 
54599 
$de 


#503 
$d4c8 
sdf93 


5027a 
#510 


File in Directory (Directories) suchen 
Filename schon vorhanden? 
Drivenummer (Standardwert) 

Wert 0 oder 1 isolieren 

als aktuelle Nummer übernehmen 
Sektornummer des Fileeintrags 

als aktuelle Sektornummer setzen 
benötigten Directorysektor lesen 

auf Ende des Jobs warten 

Zeiger auf Directoryeintrag 

Addition vorbereiten 

zeigt jetzt auf Filenamen im Eintrag 
Pufferzeiger auf Filenamen setzen 
Nummer des aktiven Puffers holen 

ins Y-Register 

Zeiger auf Filetabelle 


Anzahl 16; maximale Länge des Filenamens 


Filenamen in Puffer schreiben 
Directorysektor wieder auf Diskette 
auf Ende des Jobs warten 

Ende; Diskstatus bereitstellen 





Prüft auf Vorhandensein des aktuellen Files. 


Maske für Fileidentifikation 

Filetyp isolieren 

und als aktuellen Filetyp abspeichern 
Zeiger auf Filenamen 

minus 

mit Anfangswert vergleichen 
verzweige, wenn kleiner 

entsprechende Tracknummer holen 
verzweige, wenn vorhanden (ungleich 0) 
Fehlernummer 

'62, FILE NOT FOUND!" ausgeben 

Ende, alles ok 





ca 
02 


cl 


Prüft auf Namensgleichheit zweier Files. 


File mit aktuellem Namen vorhanden? 
zugehörige Tracknummer 


verzweige, wenn nicht vorhanden (gleich 0) 


Nummer der Fehlermeldung 

'63, FILE EXISTS' ausgeben 

Zeiger auf Tracknummer minus 1 
weitermachen, wenn größer gleich 0 
Ende, kein File mit gleichem Namen 


02 


02 


02 





MEMORY-Befehle (Steuerroutine). 
zweites Zeichen aus Befehlsstring 
mit I_I vergleichen 

verzweige, wenn kein I_I 

sonst viertes Byte aus Befehlsstring 
als Adressbyte Lo speichern 

fünftes Byte aus Befehlsstring 

als Adressbyte Hi speichern 
Y-Register zurücksetzen 

drittes Zeichen aus Befehlsstring 
mit 'R' vergleichen (für M-R) 
verzweige zu M-R-Befehl, wenn gleich 
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£2 


$f258 
#557 
Scb50 
#545 
Scb4b 
(S006£) 


(RTS) 

mit 'W' vergleichen (für M-W) 
verzweige zu M-W-Befehl, wenn gleich 
mit 'E' vergleichen (für M-E) 

zum Fehlerausgang, wenn ungleich 
M-E-Befehl ausführen 


02 


02 


02 


(S6f),y 
85 
50274 
#506 
S$cb45 
50205 


$cb45 


Ss6£ 
Ss6£ 
50249 
Ss6£ 
Sa5 
$70 
$a6 
$d443 


M-R-Befehl. 

Byte an der gegebenen Adresse holen 
und für Ausgabe zwischenspeichern 
Länge des Befehlsstrings 

mit 6 vergleichen 

verzweige, wenn nur 1 Byte; Ende 
Anzahl der gewünschten Bytes holen 
minus 1 

verzweige, wenn nur 1 Byte gewünscht war 
Anzahl der zu lesende Bytes 
Addition vorbereiten 

Adressbyte Lo addieren 

Adressbyte Lo auf 2. Byte einstellen 
Endadresse beim Lesen merken 
Adresse Lo 

als Lesezeiger Lo setzen 

Adresse Hi 

als Lesezeiger Hi setzen 

Bytes holen und auf Bus ausgeben 
unbenutzten Lesekanal suchen 

Byte zum Computer 

Nummer der Fehlermeldung 

'31, SYNTAX ERROR' ausgeben 








02 


80 


50206,y 
(S6f),y 


50205 
Scb50 


M-W-Befehl. 

Bytewert aus Befehlsstring holen 

und an gegebener Adresse abspeichern 
Zeiger auf nächstes Byte 

schon alle Bytes abgespeichert? 
verzweige, wenn nein; weitermachen 
Ende 


USER-Befehle (Steuerroutine). 

zweites Zeichen aus Befehlsstring 

gleich '0' (UO-Befehl) ? 

verzweige, wenn nein 

zur Sonderbehandlung der U0-Befehlstypen 
Hier stand ursprünglich die Behandlung 
des U0-Befehls im DOS der VCc1541!!! 
Adresse setzen; USER-Befehl ausführen 
Ende; (Fehler-)Meldung bereitstellen 


cbl2 20. 58 
cb15 c9- #54 
cb17 £0O 37 
cb19 c9 45 
cblb d0O 2e 
cbld 6c 6f£ 
cb20 

cb20 bi :6£f 
cb22 85 85 
cb24 ad 74 
cb27 c9 06 
cb29 90 la 
cb2b ae 05 
cb2e ca 
chb2f £0 14 
cb31 8a 
cb32 18 
cb33 65 6£ 
cb35 e6 6f£ 
cb37 8d 49 
cb3a a5 6£f 
cb3c 85 a5 
cb3e a5 70 
cb40 85 a6 
cb42 4c 43 
cb45 20 eb 
cb48 4c 3a 
cb4b a9 31 
cb4d 4c c8 
cb50 

cb50 b9 06 
eb53 9-68 
cb55 c8 
cb56 cc 05 
cb59 90 -£5 
cb5b 60 
cb5c 

cb5c ac 01 
cb5f c0 30 
cb61 do 09 
cb63 4c 30 
cb66 ea 
cb6b ...ea 
cb6c 20 72 
cb6f 4c 94 
cb72 

cb72 88 
cb13 98 
cb74 29. 9£ 
cb76 0a 
cb77 a8 
cb78 bl 6b 





#S0f 


($6b),y 


Befehl ausführen. Y muß dabei das zweite Zeichen des 
Befehls enthalten. 

ASCII-Code des zweiten Zeichens minus 1 

für weitere Bearbeitung 

Zahlenwert des Bytes feststellen 

mal 2 nehmen 

und als Zeiger in Adresstabelle benutzen 

Adresse Lo des USER-Befehls holen 





Adresse für entsprechenden USER-Befehl bereit- stellen und 
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und setzen 

nächstes Byte 

Adresse Hi des USER-Befehls holen 
und ebenfalls setzen 

USER-Befehl ausführen... 


b8c 20 3d c6 


b92 ae 74 02 


b9a 20 e2 di 
b9A 4c fl cb 


ba2 dc: .c8..€1l 





ba7 20» Te: Ce 
baa ae 85 02 


bel 2d 4Af 02 


bc8 2d 50 02 


bef 04 4£ 02 


bd2 8d 4f 02 


bd7 04 50 02 
bda 8d 50 02 


baf 20 e2 di 


be4 ad 85 02 


bee 94. 5b: ..02 





aaaaanaaa ana aaa aaanaanaaaaaanaa aaa aaa aa aa aaa aaa aaa aaa aa aaaaaana20Q 


bf3 bd 2b 02 














Befehl '#'; Öffnen eines Direktzugriffskanals. 
Drivenummer des letzten Jobs 

als aktuelle Nummer übernehmen 

Kanalnummer 

merken 

Drive bei Bedarf initialisieren 

Kanalnummer zurückholen 

und wieder abspeichern 

Länge des Befehlsstrings 

mit 1 vergleichen, ob ein bestimmter 
gewünscht wird 

nur '#'-Befehl; Puffernummer egal 

freien Kanal und Puffer belegen 

Parameter setzen; Ende 

Nummer für Fehlermeldung 

'70, NO CHANNEL' ausgeben; Ende 

Zeiger auf Puffernummer setzen und 

diese aus dem Befehlsstring holen 
Puffernummer nach X und 

mit dem maximal möglichen Wert vergleichen 
verzweige, wenn größer; kein Puffer frei 
Masken für die Puffernummer 

löschen 

löschen 

Carrybit als Maskenbit setzen 

Setzen des entsprechendn Bitmusters 

für jeden Puffer, um eine Vergleichsmaske 
aufzubauen 
verzweige, für nächsten Puffer 
aske für Laufwerk 0 
mit Pufferbelegung vergleichen 

zur Fehlerroutine, wenn Puffer belegt 
aske für Laufwerk 1 
mit Pufferbelegung vergleichen 

zur Fehlerroutine, wenn Puffer belegt 
aske für Pufferbelegung (Drive 0) 
Belegung in Tabelle eintragen 

und Tabelle abspeichern 
aske für Pufferbelegung (Drive 1) 
Belegung in Tabelle eintragen 

und Tabelle abspeichern 
Standardkanalwert laden 

und unbenutzten Kanal suchen 

aktuelle Kanalnummer 

Puffernummr für Kanal 

in Kanalbelegung eintragen 
Puffernummer als Index 

aktuelle Drivenummer holen 

und in Jobspeicher für entsprechenden 
Puffer eintragen 

Sekundäradresse 

Kanalstatus aus Tabelle holen 
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cb£f6 09 40 ora 
cbf8 94 2b 02 sta 
cbfb a4 82 dy 
cbfd a9 £f£f da 
cb£ff 99 44 02 sta 
cc02 a9 89 lda 
cc04 99 £2 00 sta 
cc07 b9 a7 00 da 
cc0a 99 3e 02 sta 
cc0d 0a asl 
cc0e aa tax 
cc0f a9 01 da 
ecil 95 99 sta 
Ect3 a9 0e da 





#540 
5022b,x 
582 
#Sff 
$0244,y 
#589 
s00f2,y 
$00a7,y 
5023e,y 


#501 


Bit für Schreiben setzen 

und als neuen Status abspeichern 
Kanalnummer als Index 
Kennzeichen für Puffer aktiv 

in Puffertabelle 
Flag für Schreib-/Lesebetrieb 
für Kanal setzen 
zugehörige Puffernummer holen 
und in Kanaltabelle eintragen 
Puffernummer mal 2 
als Index setzen 
Wert für Pufferzeiger auf zweites Byte 
in Puffer setzen 

Code für Direktzugriff 

als Filetyp für Bearbeitung setzen 
Ende; Diskstatus bereitstellen 











cclb 

gelb a0 00 dy 
ccld a2 00 dx 
eclif a9 2d da 
cc2l 20 68 c2 jsr 
cc24 d0 0a bne 
cc26 a9 31 da 
cc28 4c c8 ci jmp 
cc2b a9 30 da 
cc2d 4c c8 ci jmp 
cc30 8a txa 
ec3l d0 £8 bne 
Ec33 a2 05 dx 
35 b9 00 02 lda 
CcE38 dd. Id... ce cmp 
€c3b £f0 05 beq 
cc3d ca dex 
cc3e 10 £8 bpl 
cc40 30 e4 bmi 
cc42 8a txa 
cc43 09 80 ora 


cc45 8d 2a 02 sta 
cc48 20.68 ec jsr 
cc4b ad 2a 02 lda 


cc4e 0a asl 
cc4f aa tax 
cc50 bd 64 cc lda 
cc53 85 70 sta 
EEe5s bd 63 cc lda 
cc58 83: ı'6£ sta 








505 
50200,y 
Scc5d,x 
$cc42 


$cc38 
$cc26 


#580 

5022a 
Scc6f 
5022a 


$cc64,x 
570 
5cc63,x 
Ss6f 
(S006F£) 


BLOCK-Befehle (Steuerroutine) 
Index-Register 

vorbesetzen 
ASCII-Coce für '-'. 

Zeichen in Befehlsstring suchen 

verzweige, wenn gefunden 

Nummer der Fehlermeldung 

'31, SYNTAX ERROR' ausgeben; Ende 

Nummer der Fehlermeldung 

‘30, SYNTAX ERROR' ausgeben 

Flag für 'Komma gefunden' testen 

verzweige zur Fehlermeldung, wenn Komma 
Zeiger in Zeichentabelle für BLOCK-Befehle 
3. Zeichen aus Befehlsstring holen 

und mit Tabelle (PEWR FA) vergleichen 
verzweige, wenn Zeichen gefunden 

Zeiger auf nächstes Zeichen in Tabelle 
weitersuchen, wenn noch Zeichen vorhanden 
unbedingter Sprung; Befehl nicht erkannt 
Code des Befehlszeichens nach A 

Bit 7 zeigt aktuellen Befehl an 
Befehlsnummer für Ausführung abspeichern 
Blockparameter holen und prüfen 
Befehlsnummer zurückholen 

mal 2 
und als Index in Tabelle 
Befehlsadresse Hi aus Tabelle holen 
und setzen 

Befehlsadresse Lo aus Tabelle holen 
und setzen 

Befehl ausführen; Ende 

















Bytes der Namen der BLOCK-Befehle 'AFRWE DP' 


Adressen der BLOCK-Befehle 
$cd03 B- 
Scc£5 B 
$cd56 B 
$cd73 B- 
Scda3 B 
Scdbd B 
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c2 


02 


02 











Parameter der BLOCK-Befehle 
Index-Register 

zurücksetzen 

ASCII-Code für ':' 

Zeichen in Befehlsstring suc 
verzweige, wenn gefunden 
Zeiger auf 4. 


holen und auf Syntax prüfen. 


nen 


Zeichen in Befehlsstring 


Zeichen an dieser Position holen 


und mit ' 
verzweige, 
vergleiche Zeichen mit 


(SPACE) vergleic 





nen 


wenn Zeichen gleich' ' 
'CURSOR LEFT' 


verzweige bei Übereinstimmung 


vergleiche mit ',' (KOMMA) 
verzweige, wenn Zeichen kein 


vo 
r 


Zeiger in Befehlsstring erhöhen 


schon maximale 
verzweige, wenn nein 
Ende 
Parameter des Befehlsstrings 
Zeiger in Befehlsstring plus 





verzweige, wenn nein; 
unbedingter Sprung; 


Länge erreicht? 


konvertieren 
t 


Zeiger auf zweiten Teil des Befehlsstrings? 
aximalzahl der erte erreicht? 

weitersuchen 
Fehlerausgabe 


02 


02 


02 








ab. 

Rechenbereich 

für die 
Parameterumwandlung 
löschen 

ndex bereitstellen 





lest auf Ziffer 
verzweige, wenn keine Ziffer 
Test auf Steuerzeichen 





verzweige, 


Konvertiert die ASCII-Werte aus dem INPUT. 
Werte und legt diese in den Spur. 


Puffer in HEX- 
und Sektornummertabellen 


Zeichen aus Befehlsstring holen 


wenn Steuerzeichen 


sonst Zahlenwert des Bytes feststellen 


und merken 

Werte im Rechenbereich 

um eine Stelle 

weiter nach rechts 
verschieben 

Zahlenwert zurückholen 

und abspeichern 

Zeiger auf nächstes Zeichen 
schon alle Zeichen erfaßt? 
verzweige, wenn nein 
Zeiger abspeichern 
errechnete Hex.erte 

zu einem 

Byte 

zusammenfassen 

und im Rechenbereich 
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cc 


abspeichern 

nächster Wert 

und weitermachen 

Wert aus Dezimaltabelle addieren 
verzweige, wenn kein Überlauf 

Carry zur weiteren Bearbeitung wieder löschen 
nächsthöheres Byte bei Überlauf erhöhen 
verzweige, wenn noch kein Nulldurchgang 
Summe (Sektornummer) merken 

Zeiger in Befehlsstring zurückholen 
errechnete Tracknummer 

in Tabelle ablegen 

Summe (Sektornummer) zurückholen 

und ebenfalls in Tabelle ablegen 

Ende 


B-F-Befehl (BLOCK-FREE). 

Track- und Sektorparameter holen 

BAM entspreched ändern; Dirty-Flag setzen 
Diskstatus bereitstellen; Erde 





2 


ef 
cl 


02 
fe 





Programmrest 
wird in der 1570/71 
nicht mehr verwendet. 





B-A-Befehl (BLOCK-ALLOCATE). 
Track- und Sektorparameter holen 
aktuelle Sektornummer 

merken 
nächsten freien Sektor suchen 

verzweige, wenn kein freier Sektor mehr 
aktuelle Sektornummer zurückholen 

mit neuer Sektornummer vergleichen 

verzweige, wenn ungleich 

neuen Block in BAM belegen 

fertig; Diskstatus bereitstellen 

aktuelle Sektornummer zurückholen 

Sektor 0 neu setzen 

und als aktuellen Sektor nehmen 

Tracknummer erhöhen 

Tracknummer (neuer Wert) 

mit maximaler Tracknummer vergleichen (36,72) 
mit maximaler Tracknummer vergleichen (36) 
verzweige, wenn größer/gleich 

erneut einen freien Sektor suchen 

und weitermachen, bis gefunden oder Fehler 
Nummer der Fehlermeldung 

'65, NO BLOCK' ausgeben; Ende 

Nummer der Fehlermeldung 

'65, NO BLOCK' ausgeben 





ccd5 b4 
ccd7 88 
ccd8 30 
ccda 7a 
ccdd 90 
ccdf 18 
cce0 e6 
cce2 d0 
cce4 48 
cce5 ae 
cce8 a5 
ccea 9A 
cced 68 
ccee IA 
ceE£l 60 
cec£2 01 0a 
[efeh ugs) 

Eec£s 20 
cc£8 20 
cc£fb 4c 
ccfe 

ccfe a9 
cd00 8d 
cd03 

cd03 20 
cd06 a5 
cd08 48 
cd09 20 
cd0c £0 
cd0e 68 
ca0f c5 
cdi1 do 
cd13 20 
cd16 4c 
cd19 68 
cdla a9 
cdlc 85 
cdle e6 
cd20 a5 
*1.:2922:c4 
*0 cd22c4d 
cd25 bo 
cd27 20 
cd2a £O 
cd2c a9 
cd2e 20 
cd3l a9 
cd33 20 
cd36 

cd36 20 
cd39 4c 


Unterroutine des B-R-Befehls zum Testen der Parameter und 


zum Lesen des Blocks von der Diskette. 
Track- und Sektornummer setzen 
Block von der Diskette lesen 
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cd3c Unterroutine des B-R-Befehls zum Holen eines Bytes aus dem 
aktuellen Puffer in den Akku. 

cd3c 20. 28.01 sr Sal2£f Zeiger in den aktuellen Puffer setzen 

cd3f al 99 lda ($99,x) Byte aus dem Puffer holen 

cd4l 60 rts Ende 

cd42 Unterroutine des B-R-Befehls zum Lesen eines Blocks von der 
Diskette. 

cd42 20 36 cd Berg $cd36 Parameter testen; Block lesen 

cd45 a9 00 lda #500 Lo-Wert für Pufferzeiger 

cd47 20 c8 da jer Sd4c8 Pufferzeiger setzen 

cd4a 20 3c cd jsr $Scd3c ein Byte aus dem Puffer holen 

cd4d 99 44 02 sta 50244,y als Endekennzeichen merken 

cd50 a9 89 lda #589 Schreib-/Leseflag setzen 

cd52 99 £2 00 sta S00£2,y in Kanalstatustabelle eintragen 

cd55 60 rts Ende 

cd56 B-R-Befehl (BLOCK-READ). 

cd56 20 42 cd jsr $cd42 Block lesen 

cd59 20 ec d3 jsr Sd3ec Byte aus dem Puffer für Ausgabe bereitstellen 

cd5c 4c 94 ci jmp 5c194 Diskstatus bereitstellen 

cd5f Ul-Befehl (BLOCK-READ-Ersatz). 

cd5f 20 6f cc jsr Scc6f Parameter für den Befehl holen 

cd62 20 42 cd St $cd42 Block lesen 

cd65 b9 44 02 lda 50244,y 50244,y Zeiger auf Ende der Daten 

cd68 99 3e 02 sta 5023e,y als aktuelles Byte speichern 

cd6b a9 ££ lda #S£ff Wert $FF (255) 

cd6d 99 44 02 sta 50244,y als neues Endekennzeichen merken 

cd70 4c 94 ci jmp 5c194 Diskstatus bereitstellen 

cd73 B-W-Befehl (BLOCK-WRITE). 

cd73 20: E27 ed jsr Scaf2 Kanal zum Schreiben öffnen 

cd76 20 e8 da jsr Sd4e8 Pufferzeiger setzen 

cd79 a8 tay Pufferzeiger nach Y 

cd7a 88 dey minus 

cd7b EI 02 cmp #502 Pufferzeiger Lo mit 2 vergleichen 

cd7d b0O 02 bes Scd8l verzweige, wenn größer/gleich 

ca7f a0 01 ldy #501 Index auf 1 setzen 

cdel a9 00 lda #500 Wert für Pufferzeiger Lo 

cd83 20 c8 da rs Sd4c8 Pufferzeiger entsprechend setzen 

cd86 98 tya A= 

cd87 20. -£1. cf SE Sc££fl Inhalt von A in den Puffer schreiben 

cdsa 8a txa Puffernummer mal 2 

cd8b 48 pha merken 

cd8c 20 64 d4 jsr 5d464 Block auf Diskette schreiben 

ca8f 68 pla Puffernummer mal 2 zurückholen 

cd90 aa tax und wieder nach X 

cd91 20 ae ff jsr Sffae Byte aus dem Puffer ins Ausgaberegister 

cd94 4c 94 ci jmp 5c194 Diskstatus bereitstellen 

cd97 U2-Befehl (BLOCK-WRITE-Ersatz). 

cd97 20 6f cc jsr Scc6f Blockparameter holen 

cd9a 20 £2 cd jsr Sca£f2 Parameter setzen; Kanal öffnen 

cd9dA 20 64 d4 jsr 5d464 Block auf die Diskette schreiben 

cda0 4c 94 ci jmp 5c194 Diskstatus bereitstellen 
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cda3 B-E-Befehl (BLOCK-EXECUTE). 

cda3 20 58 £2 jsr $s£f258 (RTS) 

cda6 20 36 cd jsr $cd36 Block in den Puffer lesen 

cda9 a9 00 lda #500 Pufferadresse Lo auf 0 

cdab 85 6f sta Ss6£f setzen 

cdad a6 £9 ldx s£9 Puffernummer in X 

cdaf bd e0 fe lda Sfee0,x zugehörige Adresse Hi holen 

cdb2 85 70 sta 570 und ebenfalls setzen 

cdb4 20 ba cd jsr Scdba Programm im Puffer ausführen 

cdb7 4c 94 ci jmp 5c194 Diskstatus bereitstellen 

cdba Ausführen eines Programms im Puffer bei B-E. 

cdba 6c 6f 00 jmp (S006£) Sprung in den Puffer 

cdbd B-P-Befehl (BLO:K'":;-:: 

cdbd 20 d2 cd jsr Scdd2 Kanal öffnen; P.Jf.e-r,..rr.=.- - cC c- 

cdAc0 a5 £9 lda s£9 Puffernummer 

cdc2 0a asl mal 2 

cdc3 aa tax und als Index rcc- ( 

cdc4 ad 86 02 lda 50286 neuen ert ces :.."e-::;c-s 

cdc7 95 99 sta 599,x übernehcle"1l 

cdc9 20: 2E di jsr sal2f Puffer- und Kar,ö.-...rr.er re.er 

cdec 20 ee d3 jsr Sd3ee Byte aus dem :ffer hclen 

cdcf 4c 94 ci jmp 5c194 Diskstatus bereitstellen 

cdd2 Kanal öffnen und Puffer belegen; bei Fehler Ausgabe von 
‘70, NO CHANNEL!'. 

cdd2 a6 d3 ldx $d3 Zeiger in Befehlsstring 

cdd4 e6 d3 inc $d3 plus 1 

cdd6 bd 85 02 lda 50285,x zugehörige Kanalnummer aus Tabelle holen 

cdd9 a8 tay nach Y 

cdda 88 dey minus 1 

cddb 88 dey minus 1 

cddc c0 0c cpy #$0c war Kanalnummer gröBer/gleich 14? 

cdde 90 05 bec Scde5 verzweige, wenn nein 

cdeO a9. 20 lda #570 Nummer der Fehlermeldung 

cde2 4c c8 ci jmp $c1lc8 '70, NO CHANNEL' ausgeben; Ende 

cde5 85 83 sta 583 Sekundäradresse abspeichern 

cde7 20 eb do jer Sd0eb zugehörigen Kanal prüfen 

cdea bo £4 bes Scde0 verzweige, Fehler, wenn schon geöffnet 

cdec 20 93 df jsr $Af93 Puffernummer holen 

cdef 3.8 sta 5£9 und setzen 

cdfl 60 rts Ende 

cd£2 Testen aller Parameter auf legalen Block und belegten 





Puffer. Sind diese Werte in Ordnung, so werden sie zum 
Lesen bereitgestellt- 





cdf2 20 d2 cd jsr Scdd2 Kanal öffnen und Puffernummer holen 
cdf5 a6 d3 ldx $d3 Zeiger in Befehlsstring 

cdf7 bd 85 02 lda 50285,x Kanalnummer aus Tabelle holen 

cdfa 29 01 and #501 gibt immer 0 

cdfc 85: TE sta STE als aktuelle Drivenummer übernehmen 
cdfe bd 87 02 lda 50287,x zugehörige Sektornummer aus Tabelle 
ce0l 85 81 sta sel übernehmen 

ce03 bd 86 02 lda 50286,x zugehörige Tracknummer aus Tabelle 


ce06 85 80 sta s80 übernehmen 
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ce08 20 SE 5 jsr Sa55f Track- und Sektorwerte in Ordnung? 

ce0b 4c 00 ci jmp $c100 LED am Laufwerk einschalten; Ende 

ce0de Suchen eines Datenblocks in einer relativen Datei. 
ceDe 2.0», 2&, ce sr Sce2c Gesamtzahl der Bytes berechnen 

cell 20 6e ce jsr Scebe geteilt durch 254 für Recordnummer 

cel4 a5 90 lda 590 Rest der Division ist gleich 

cel6 85 d7 sta $d7 Zeiger in Datenblock 

cel8 20 71 ce jsr Sce7l geteilt durch 120 für Side-Sektor 

celb e6 d7 inc $d7 Zeiger in Datenblock plus 2, da der Linker am 
celd e6 d7 inc $d7 Anfang jedes Sektors übergangen werden muß 
celf a5 8b lda S8b errechnete Side-Sektor-Nummer 

ce2l 85 49 sta $d5 übernehmen 

ce23 a5 90 lda 590 Rest der Division 

ce25 0a asl mal 2 

ce26 18 celc und 

ce27 69 10 adc #510 plus 16 

ce29 85 d6 sta $d6 ist Zeiger in Side-Sektor 

ce2b 60 rts Ende 

ce2c Errechnen der Position eines Records. 
ce2c 20 d9 ce jsE Sced9 Löschen des Ergebnisspeichers 

ce2£ 85 92 sta 592 0 nach S92 

ce3l a6 82 ldx 582 aktuelle Kanalnummer? 

ce33 b5 b5 lda $Sb5,x Recordnummer Lo 

ce35 85 90 sta s90 in Rechenregister 

ce37 b5 bb lda Sbb,x Recordnummer Hi 

ce39 33. 91 sta 291 in Rechenregister 

ce3b d0o 04 bne Sce4l verzweige, wenn ungleich 0 

ce3d a5 90 lda s90 Recordnummer Lo gleich O0? 

ce3f £0 0b beq Sce4c verzweige, wenn ja 

ce4l a5 90 lda s90 Recordnummer Lo 

ce43 38 sec Subtraktion vorbereiten und 

ce44 e9 01 sbc #501 1 von Recordnummer Lo abziehen 

ce46 85 90 sta 590 ert wieder setzen 

ce48 bo 02 bes Sce4c verzweige, wenn Ergebnis größer 0 

ce4a c6 91 dec 591 sonst Recordnummer Hi minus 1 

ce4c b57.&7 lda 515% Recordlänge holen 

ce4e 83 SE sta Ss6£f und in Rechenregister 

ce50 46 6£f lsr Ss6£f Test auf ungeraden ert der Recordlänge 
ce52 90 03 bee $ce57 verzweige, wenn ert gerade 

ce54 20 ed ce jsr Sceed Ergebnisse plus Registerwerte in Register 
ce57 20 e5 ce jsr Scee5 Registerinhalt mal 2 

ce5a a5 6£f lda Ss6£f Resultat schon erhalten? 

ce5c d0 £2 bne Sce50 weitermachen, wenn nein 

ce5e a5 da4 lda $d4 Zeiger auf Beginn des Records 

ce60 18 ec zu dem vorhandenen 

ce61l 65 8b adc S8b Registerinhalt addieren und 

ce63 85 8b sta s8b Ergebnis abspeichern 

ce65 90 06 bcec Sce6d verzweige, wenn kein Oberlauf auftrat 
ce67 e6 8c inc $8c sonst nächsthöhere Speicherstelle plus 1 
ce69 do 02 bne Sce6d verzweige, wenn auch hier kein Oberlauf 
ce6b e6 8d inc Ss8d sonst wiederum höhere Speicherstelle plus 1 


ce6d 60 rts und fertig 
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fe 


ce 


ce 
ce 
ce 


ce 








#Sfe 
$2c 


#578 
s6f 
#503 
sef,x 


$8a,x 
sef,x 


$8a,x 


$ce77 
$ced9 
#500 

s90,x 
sef,x 


#504 
$ce89 
#500 
92 
Ss6£ 
$cea3 
sef 


sef 


Scee6 
Sceed 
$cee5 
Ss6£ 

Sceb0 
Scee2 
sef 


$90 
$90 
$cebf 
$91 
Scebf 
$92 
$92 
s91 
$ce87 
$90 


Ss6£ 
$ced8 
$8b 
$ced6 


Divisionsroutine. Bei Einsprung ab $ce6e erfolgt die 
Divison durch 254; bei Einsprung ab $ce71 erfolgt die 
Division durch 120. Am Ende der Berechnung steht der 
Quotient in $8b,8c,8d und der Rest in $90. 

Wert für Division durch 254 

nächsten Berehl überspringen 


Wert für Division durch 120 

als Divisor speichern 
Rechenregister 

für 

Division 

vorbereiten, indem 

die 

Registerinhalte 

ausgetauscht 

werden 

jeweils 3 Bytes tauschen 
Ergebnisspeicher löschen 
Registerinhalte 

nach unten 

verschieben 

und zwar 

alle 5 Bytes 

um ein Byte ($90-94) nach ($8£-93) 
Division vorbereiten 

Register löschen 

Bit 7 testen 

verzweige, wenn gesetzt 

mal 2 

Status merken 

geteilt durch 2 

Bit 7 jetzt in Carry 

Register $90,91,92 mal 2 plus Carry 
Register $8b,8c,8d plus $90,91,92 
Register $90,91,92 mal 2 

Bit 7 testen 

verzweige, wenn gesetzt 

Register $90,91,92 mal 4 

Übertrag 

zu Rechenergebnis 

addieren 

und abspeichern 

verzweige, wenn kein Überlauf 
sonst nächsthöheres Register plus 1 
verzweige, wenn kein Überlauf 
sonst wieder höheres Register plus 1 
schon alle Verschiebungen 

für Division durchgeführt? 
weitermachen, wenn nein 

sonst 

Ergebnisregister 

richtigstellen 

verzweige, bei Unterlauf 
nächsthöheres Register plus 1 
verzweige, wenn noch nicht 0 
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$8c 
Sced6 
$8d 
$90 


nächsthöheres 


Register plus 1 


verzweige, wenn noch nicht 0 
$8d nächsthöheres Register wiederum plus 1 
und Rest der Division merken 


Ende 


Ergebnisspeicher in $8b,8c,8d löschen, d.h. mit 0 


auffüllen. 
Null 


als Leerinhalt 
des Ergebnisregisters 


setzen 
Ende 


Rechenregister $90,91,92 mit 4 multiplizieren 
Rechenregister mal 2; danach... 


Übertrag lösc 
Register durc 
Linksverschie 


Ende 


Rechenregister $90,91,92 mit 2 multiplizieren 


hen 
h einmal 
ben mit 


2 multiplizieren 





Ergebnisspeic 
addieren. 
Übertrag lösc 


her $8b,8c,8d zum Rechenregister $90,91,92 





nen 


minus 3 als Index 


und alle 


drei Registerplätze 


addieren und 


im Ergebnisspeicher 


ablegen 


Herstellen der Zwischenspeichertabelle. 
0 als Ausgangswert 


in Akku 


Wert in Zwischenspeicher 
Index und Speicherwert plus 1 


schon Endwert 
weitermachen, 
Wert 6 


erreicht? 
wenn nein 


in $fe abspeichern 


Ende 





aa acaanaaaaa an 
} 


00 


c£ 


#504 
82 
s00fa,y 
Sfa,y 
82 
Sc£ld 


Scefa 


Scf0d 


Aktualisieren 


der Zwischenspeichertabelle. 


4 als Index in Tabelle 

aktuelle Kanalnummer 

Kanalnummer aus Tabelle holen 

aktuelle Kanalnummer neu übernehmen 

neue Kanalnummer mit Tabellenwert vergleichen 
verzweige, wenn gleich; alles in Ordnung 
sonst Index setzen und 

neue Tabelle erzeugen 


Einsprung mit 


Kanalnummer in A 


und Tabelle prüfen 


Ende 
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cfle Aktiven Puffer für Diskbetrieb setzen; ggf. neuen Puffer 
suchen 

cfle 20 09 c£ jsr $Sc£09 Tabelle aktualisieren 

c£21 20 b7 df jsr Sdfb7 gewählter Kanal in Ordnung? 

cf£f24 d0O 46 bne Scf6c verzweige, wenn nein 

c£26 20 d3 di jsr $SA1d3 Drivenummer setzen 

c£29 20 8e d2 jsr $Sd28e freien Puffer suchen 

cf2c 30 48 bmi Sc£76 Fehler, werm nicht gefunden 

cf2e 20 c2 df jsr Sdfc2 neuen Puffer inaktiv setzen 

c£31l a5 80 lda s80 aktuelle Tracknummer 

EE33 48 pha merken 

cf£34 a5 81 lda sel aktuelle Sektornummer 

cf£36 48 pha merken 

ers7 a9 01 lda #501 Nummer des zu holenden Bytes 

c£39 20 £6 d4 jsr Sd4f6 Sektornummer aus Puffer holen 

cE3E 85 81 sta sel und als aktuellen Sektor setzen 

cf3e a9 00 lda #500 Nummer des zu holenden Bytes 

cf£40 20 f6 d4 jsr Sd4f6 Tracknummer aus Puffer holen 

cf£43 85 80 sta s80 und als aktuellen Track setzen 

cf£45 £0 1£ beq Sc£66 verzweige, wenn 0 (letzter Block) 

c£47 zu 23..01 Sr $d125 Filetyp holen 

cf4a £0 0b beq Sc£57 verzweige, wenn relative Datei 

cf4c 20 ab dd jsr Sddab auf Befehlscode 'Schreiben' prüfen 

cf4f d0 06 bne $Sc£57 verzweige, wenn kein Schreibjob 

e£5tT 20 8c cf jsr Scf8c Puffer wechseln 

c£54 4c 5d cf jmp Scf5d und weitermachen 

c£57 20 8c cf jsr Scf8c Puffer wechseln 

cf5a 20 57 de jsr $de57 Befehlscode 'Lesen' prüfen und an DC übergeben 

cf5d 68 pla Sektornummer zurückholen 

cf5e 85...81 sta sel und wieder setzen 

cf£60 68 pla Tracknummer zurückholen 

c£61 85 80 sta s80 und ebenfalls wieder setzen 

c£63 4c 6f cf jmp Scf6f weitermachen 

cf£66 68 pla Sektornummer zurückholen 

efa7 83 81 sta sel und wieder setzen 

cf£69 68 pla Tracknummer zurückholen 

cf6a 85 80 sta S80 und wieder setzen 

c£6c 20 8c cf jsr Scf8c Puffer wechseln 

c£6f 20: 293, JE jsr $Af93 Puffernummer holen 

c£72 aa tax und nach X 

c£73 4c 99 d5 jmp 54599 Ausführung des Jobs abwarten und prüfen 

c£76 '70, NO CHANNEL' ausgeben. 

c£76 a9 70 lda #570 Nummer der Fehlermeldung 

c£78 4c c8 ci jmp $c1lc8 '70, NO CHANNEL' ausgeben; Ende 

c£7b Sucht nach freiem Puffer. 

c£7b 20 09 cf jsr $Sc£09 Tabelle aktualisieren 

cf7e 20 b7 df jsr Sdfb7 gewählter Puffer frei? 

c£8l do 08 bne Scf8b verzweige, wenn ja; Ende 

c£83 20 8e d2 jsr S$Sd28e anderen Puffer suchen 

c£86 30 ee bmi $c£76 Fehler, wenn nicht gefunden 

cf£88 20 2 d£ IST Sdfc2 gefundenen Puffer inaktiv setzen 

cf8b 60 rts Ende 
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Wechseln des Betriebszustandes eines Puffers von aktiv nach 
inaktiv und umgekehrt. 

ldx $82 aktuelle Kanalnummer 

Pufferstatustabelle 

Pufferstatus wechseln 

und wieder abspeichern 

zweite Statustabelle 

Status ebenfalls wechseln 

und wieder abspeichern 

Ende 


aaaaaaanaaaa aaa aaa aa aan ca aan aaa a naaaana aan a 
Hhhhhhhhhhhh it Hhhmhhhit Mt HM Hhhhhhhhıt 





al 
cl 
al 


dd 


dl 


al 


e0 


c£ 


d3 


d4 


c£ 


02 














Schreiben eines Bytes über den internen Schreibkanal in 
einen Puffer. 

18 (interner Schreibkanal) 

als aktuelle Sekundäradresse setzen 
Schreibkanal suchen und eröffnen 

LED am Laufwerk einschalten 

Dateityp holen 

verzweige, wenn kein relatives File 
Kanalstatus in der 

Tabelle umdrehen 

aktuelle Sekundäradresse 

gleich 15 (Kommandokanal)? 

verzweige, wenn ja 

unbedingter Sprung, wenn nein 
Sekundäradresse 

isolieren und 

ebenfalls mit 15 vergleichen 
verzweige, wenn gröBer oder gleich 15 
Dateityp holen 

verzweige, wenn kein sequentielles File 
aktuelles Datenbyte für Kanal 

in zugehörigen Puffer schreiben 
verzweige, wenn USR-File 

Datenbyte in relative Datei schreiben 
aktuelles Datenbyte 

in Puffer schreiben 

aktuelle Kanalnummer in Y 

nächstes Byte für Ausgabe bereitstellen 
Kanalnummer 4 für Kommandokanal 
setzen 

Pufferzeiger in Befehlspuffer 

holen und testen, ob Puffer voll 
verzweige, wenn ja 

aktuelles Datenbyte 

in Puffer schreiben 

auf EOI testen 

verzweige, wenn kein EOI 

Ende; alles fertig 

weiterer Befehl ist auszuführen 

Ende für diesen Durchgang 
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E12 20 923.0 


Fffa de: .e8- CT 





($99,x) 
599,x 


Datenbyte in den aktuellen Puffer schreiben. 
Datenbyte merken 

Puffernummer holen 

verzweige, wenn Puffer ok 

sonst Stack wiederherstellen 

Numer für Fehlermeldung 

'61l, FILE NOT OPEN' ausgeben; Ende 
Puffernummer mal 2 

als Index setzen 
Datenbyte zurückholen 

und in den Puffer schreiben 
Pufferzeiger erhöhen 








INITIALIZE-Befehl. 

Parameter für den Befehl prüfen 
Diskette initialisieren (BAM laden) 
Diskstatus bereitstellen: Ende 


d0Dde 20. DE. 1 


d018 48 
d019 20 8e d2 
dOlc aa 


do21 20 48 «6 


d024 68 
d025 a8 
d026 sa 


d029 99 a7 00 


a03d a9 0 
*1 d0O3f4c e5 a6 
*0 dO3fA4c Be. d5 


#580 
$00a7,y 


#S0f 
sf9 
#500 
sel 
Sfe85 
$80 
sd6d3 


Initialisieren des Laufwerks, dessen Nummer in $7£ 
ist (hier immer 0). 

BAM-Pointer holen 

als Index in Tabelle 

entsprechende Kanalnummer aus Tabelle holen 
Puffer reserviert? 

verzweige, wenn ja 

Puffernummer merken 

Puffer für BAM suchen 

Nummer testen 

verzweige, wenn Puffer gefunden 
Nummer für Fehlermeldung 

'70, NO CHANNEL' ausgeben 
Puffernummer zurückholen 

und als Index nehmen 

neue Puffernummer in A 

Puffer als belegt kennzeichnen 

und in Tabelle abspeichern 
Puffernummer wiederum in A 

Nummer isolieren 

und als aktuelle Puffernummer setzen 
Sektornummer 0 

für Diskbetrieb setzen 

Wert 18 (für BAM) 

als Tracknummer für Disk setzen 
Parameter an DC für Jobcode zum Lesen 
Befehlscode 'Suchen eines Sektors"! 

an DC und Job ausführen; Ende 

an DC und Job ausführen; Ende 








do4f 33. 91.02 


BAM lesen und im Speicher aktualisieren. 
Tracknummer der BAM löschen 

Kanal belegen 

Puffer belegen; Header suchen 

aktuelle Drivenummer 

'BAM dirty flag" 

löschen 

Drivenummer in A 





abgelegt 
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d053 0a asl 2 

d054 aa tax als Index 

d055 a5 16 lda s16 IDl; erstes Zeichen der ID 

d057 95. 12 sta $12,x übernehmen 

d059 a5 17 lda $17 ID2; zweites Zeichen der ID 

a05b 95 13 sta $513,x ebenfalls übernehmen 

*1 d05420 67 a6 jsr $a667 Diskseite feststellen; Block lesen 

*0 d05420 86 d5 jsr 54586 Block von Diskette lesen 

d060 a5 £9 lda S5£9 aktuelle Puffernummer 

d062 0a asl mal 2 

d063 aa tax als Index in Puffer 

d064 a9 02 lda #502 Pufferzeiger Lo 

d066 95 99 sta 599,x auf $02 setzen 

d068 at. 299 lda ($599,x) Formatkennzeichen aus Puffer holen 

a06ba a6 7£ ldx ST£ aktuelle Drivenummer nach X 

a06c 94 01 01 sta 50101,x und Formatkennzeichen merken 

a06f a9 00 lda #500 Flags für Laufwerk setzen: 

a071 4c 1d aa jmp Saald Drive inaktiv; kein Diskettenwechsel außerdem 
a074 ea nop wird die Anzahl der freien Blöcke berechnet 
d075 Anzahl der freien Blöcke auf der Diskette berechnen. 
d075 20 3a ef jsr Sef3a Pufferadresse nach $6d/6e holen 

a078 a0 04 ldy #504 Zeiger auf 4. Byte; Beginn der BAM 

d07a a9 00 lda #500 erster Additionswert 

d0T7c aa tax Hi-Byte der Blockanzahl in X 

d07d 18 clc Addition vorbereiten 

d07e 71 6d adc ($6dA),Yy plus Anzahl der freien Blöcke eines Tracks 
d080 90 01 bec 54083 verzweige, wenn kein Überlauf 

a082 e8 inx sonst Anzahl Hi ebenfalls erhöhen 

d083 c8 iny ndex auf nächsten 

d084 c8 iny Wert für die Addition 

d085 c8 iny einstellen; 

d086 c8 iny alle 4 Bytes ein neuer Wert 

4087 c0 48 cpy #548 ndexwert für Track 18 erreicht? 

d089 £0 £8 beq 54083 verzweige, wenn ja; Track überspringen 
d08b c0o 90 cpy #590 ndexwert für letzten Track erreicht? 
d08d d0 ee bne $sA0 7A weitermachen, wenn nein 

d0sf 48 pha Lo-Byte der Anzahl merken 

d090 8a txa Hi-Byte der Anzahl in A 

a091 a6 7£ ldx ST£ Drivenummer als Index 

d093 94 ‚fe 02 sta s02fc,x und Hi-Byte abspeichern 

d096 68 pla Lo-Byte zurückholen 

*1.4097A4cı 51 49 jmp Sa951l und abspeichern; zweite Diskseite addieren 
*0 d40979d fa 02 sta Ss02fa,x und abspeichern 

d09a 60 rts unbenutzter Programmrest des 1541 DOS 2.6 
d09b Lesen eines Blocks und Übernehmen der Parameter 
d09b 20 d0 d6 jst Sd6d0 Parameter für Lesen an DC übergeben 

d09e 20.:€3,.00 Jar $d0c3 Befehl (Block lesen) an OC übergeben 

a0al 20 99 d5 jse 54599 Ausführung des Jobs prüfen und abwarten 
d0a4 20 37.1. jsr 54137 erstes Byte aus dem Puffer holen 

d0a7 85 80 sta s80 und als Tracknummer speichern 

d0a9 20.37 di Berg $d137 zweites Byte aus Puffer 

dOac 85 81 sta sel und als Sektornummer nehmen 


dOae 60 rts Ende 
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d0af 20 9b dO 


Anhand der Linker des ersten Blocks wird auch der 
nachfolgende Block in einen Puffer geholt. 

Lesen eines Blocks; Holen der Linkbytes 
Tracknummer gleich 0 (letzter Block)? 
weitermachen, wenn nein 

sonst Ende 

auf Zweipufferbetrieb umschalten 

Parameter zum Lesen an DC übergeben 

Block in einen anderen Puffer lesen 

Pufferbetrieb wieder auf ersten umschalten 


d0c9 8d 4d 02 
dOcc 20:93 .dE 


dOcf aa 
d0dO 20 06 d5 
d0d3 8a 
d0d4 48 
d0d5 0a 
d0d6 aa 


d0db 20.29, "gi 


Einstieg für Job: Block lesen bei $d0c3; für Block 
schreiben muß bei $d0c7 eingesprungen werden. 

$80 Jobcode für Lesen 

unbedingter Sprung zur Ausführung 


$90 Jobcode für Schreiben 

Jobcode in Jobspeicher 

Puffernummer für Job holen 

Nummer nach X 

Werte für Job prüfen und an DC 
Puffernummer wieder nach A 

und merken 

Puffernummer mal 2 

und nach X als Index 

Wert für Pufferzeiger Lo 

setzen 

Filetyp holen 

und mit sequentieLlem File vergleichen 
verzweige, wenn kein sequentielles File 
Recordnummer Lo 

verzweige, wenn ungleich Null 
Recordnummer Hi 

Puffernummer zurückholen 

und nach X 

Ende 











d0e8 68 
d0e9 aa 
d0ea 60 
d0eb 


dofb bd 2b 02 


Suchen und Eröffnen eines Kanals zum Lesen. 
aktuelle Sekundäradresse 

mit 19 (Maximum) vergleichen 

verzweige, wenn kleiner 

sonst Kanlanummer isolieren 

und mit 15 (Kommandokanal) vergleichen 
verzweige, wenn ungleich 15 

16 

als Index nach X 

Flag für Kanal belegt setzen 

in Kanaltabelle suchen 

verzweige, wenn Kanal belegt; Ende mit SEC 
sonst Kanalnummer isolieren 

und als aktuelle Nummer speichern 

Nummer außerdem nach X 

Flag für ok setzen 

Ende 
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of 
82 


£6 


02 


$d119 


Suchen und Eröffnen eines Kanals zum Schreiben. 
aktuelle Sekundäradresse 

mit 19 (Maximum) vergleichen 
verzweige, wenn kleiner 

auf 15 begrenzen 

und als Index in Tabelle 

Kanalstatus holen 

und nach Y 

mal 2 

verzweige, wenn Bit 7=0 war 
verzweige unbedingt 

Kanalstatus zurückholen 

und Kanalnummer isolieren 

Nummer setzen 

und außerdem nach X 

Flag für ok setzen 

Ende 

verzweige, wenn Schreib.fLesekanal 
Flag für Fehler setzen; Kanal belegt 
Ende 


Aktuellen Filetyp holen und auf REL.File prüfen 
aktuelle Kanalnummer 

Kanalfiletyp holen 

Wert halbieren und 

Bits 0 bis 2 isolieren 

vergleiche auf relatives File 

Ende mit gesetztem Status 


Puffer. und Kanalnummer holen und setzen. 
Puffernummer holen 

mal 2 

und als Index nehmen 

aktuelle Kanalnummer 

Ende 





an ana ann ann nn.n.an.n mn. 





99 
99 


al 
02 


02 


599,x 


($99,x) 
599,x 


Holen eines Bytes aus dem aktiven Puffer. 
Puffer. und Kanalnummer holen 

Zeiger auf das letzte Zeichen im Puffer 
verzweige, wenn Null 

Zeichen aus Puffer holen 

und merken 

Pufferzeiger Lo 

zeigt er schon auf das letzte Zeichen? 
verzweige, wenn nein 

255 

als Pufferzeiger Lo setzen 

Byte zurückholen 

Pufferzeiger Lo erhöhen 

Ende 

Byte aus Puffer holen 

Pufferzeiger Lo erhöhen 

Ende 
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d156 Holen eines Bytes aus einer Datei. Wenn nötig, wird der 
nächste Block einer Datei gelesen. Es wird ein EOI-Signal 
in $£2 übergeben, falls das letzte Byte gelesen wurde. 

d156 20 37 di jsr 54137 Byte aus Puffer holen 

d159 d0 36 bne $d191 verzweige, wenn Pufferzeiger Lo ungleich 0 

d15b 85 85 sta 585 Byte merken 

d15d b9 44 02 lda 50244,y Endezeiger in Puffer 

a1l60 £0 08 beq Sdl6a verzweige, wenn Null 

d162 a9 80 lda #580 Wert für Lesen 

d164 99 £2 00 sta S00£2,y als Kanalstatus speichern 

ad167 as: 89 lda 585 Datenbyte zurückholen 

d169 60 rts Ende 

dl6a 20 le cf jsr Scfle Folgeblock der Datei lesen 

dl6d a9 00 lda #500 Pufferzeiger auf 0 

dl6f 20 c8 d4 jsr $d4c8 setzen 

d172 20 37 di jsr 54137 erstes Byte aus dem Puffer holen 

d175 c9 00 cmp #500 gleich 0? 

a1l77 £O 9 beq $d192 verzweige, wenn ja; letzter Block im Puffer 

d179 85 80 sta S80 sonst Tracknummer übernehmen 

d17b 20: 37.41 jsE $d137 zweites Byte aus Puffer holen 

d17e 85 81 sta sel als Sektornummer speichern 

d180 20 e cf jsr Scfle Folgeblock in anderen Puffer lesen 

d183 20: »d3. jsr $dA1d3 Puffer- und Drivenummer setzen 

d186 20 d0 de jsr Sd6d0 Parameter zum Lesen an DC übergeben 

d189 20 c3 do jSE $d0c3 Befehl für Lesen an DC übergeben 

d18c 20 e cf jsr Scfle Puffer wechseln; Block lesen. 

alsf a5 85 lda 585 Datenbyte nach A holen 

d191 60 rts Ende 

4192 20: 37 cd jsr $d137 nächstes Byte aus Puffer holen 

ad195 a4 82 ldy 582 aktuelle Kanalnummer als Index 

d197 99 44 02 sta 50244,y Byte als Endezeiger merken (Anzahl der Bytes) 

d19a a5 85 lda 585 aktuelles Datenbyte nach A holen 

d19c 60 rts Ende 

d19d Schreiben eines Bytes in den aktiven Puffer Wird der Puffer 
dadurch gefüllt, so wird er auf Diskette geschrieben. 

d19d 20, «EL, SC jsr Scff Byte in Puffer schreiben 

ala0 £0 01 beq Sdla3 verzweige, wenn Puffer voll 

ala2 60 rts Ende, wenn noch nicht voll 

dla3 20 d3 di jsr $dA1d3 Drive- und Puffernummer holen 

dla6 20 e £1 jsr sflle nächsten freien Block in der BAM suchen 

d1a9 a9 00 lda #500 Wert (0) für Pufferzeiger holen 

dlab 20 c8 da JSE Sd4c8 und Pufferzeiger auf Null (A) setzen 

dlae a5 80 lda s80 Tracknummer 

d1b0 20 £ c£ jsr Sc££fl in Puffer schreiben 

d1b3 a5 81 lda sel Sektornummer 

d1b5 20 £ c£ jsr Scffl in Puffer schreiben 

d1b8 20 c7 do Jar $d0c7 Block auf Diskette schreiben 

dibb 20 e cf jsr Scfle auf Zweitpuffer umschalten 

dlbe 20 dO d6 SE Sd6d0 Parameter für nächsten Block an DC schicken 

dicl a9 02 lda #502 Wert (2) für Pufferzeiger holen 

d1c3 4c c8 d4 jmp $d4c8 und Pufferzeiger auf 2 (A) setzen 
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d4 


Erhöhen des aktuellen Pufferzeigers. 
Wert zwischenspeichern 

aktiven Pufferzeiger holen 

zu gespeichertem Wert 

addieren 

und Pufferzeiger neu setzen 
Directorypufferzeiger Lo setzer 

Ende 


Holen und Setzen der Laufwerksnr. 

Puffernummer holen 

und nach X geben 

aus Tabelle mit Pufferbefehlscodes 
Drivenummer isolieren 

und als aktuelle Nummer speichern 

Ende 


foren 





ann. n.n.n..n.n.n.n.n 
HM 
oO 


en 


d2 
d3 


02 


d2 


d2 


cl 


00 


d2 


00 


sec 
bes 


clc 
php 
sta 
jsr 
jsr 
sta 
ldx 
plp 
bec 
ora 
sta 
and 
tay 
lda 
sta 
sta 
sta 
dec 
bmi 
jsr 
bpl 
se 
lda 
jmp 
sta 
dec 
bmi 
sr 
bmi 
sta 
rts 


Sdle3 


s6f 
$d227 
SaA37£f 
$82 
$83 


Salf5 
#580 
5022b,x 
#53£ 


#S£f 
$00a7,y 
S00ae,y 
$s00cd,y 
Ss6£ 
$d226 
Sd28e 
$d217 
$d25a 
#570 
Sclc8 
500a7,y 
Ss6£ 
$d226 
$Sd28e 
Sd20f 
$S00ae,y 


Routine zum Suchen eines Kanals und des zuge- hörigen 
Puffers. Erfolgt der Einsprung bei $dldf, so wird ein 
Schreibkanal gesucht. Bei Einsprung ab $dle2 wird ein 
Lesekanal gesucht. 

Flag für Schreibkanal setzen 

unbedingter Sprung 


Flag für Lesekanal setzen 

und merken 

A muß die Anzahl der Puffer enthalten 
Kanal schließen 

nächsten freien Kanal belegen 
Kanalnummer übernehmen 
Sekundäradresse als Index 

Flag für Schreib- oder Lesekanal zurückholen 
verzweige, wenn Lesekanal gewünscht 
Schreibstatus 

in Tabelle setzen 

Kanalnummer wieder isolieren 

als Index für Tabelle 

Code für unbenutzen Puffer 

in Pufferbelegungstabelle 

in Pufferstatustabelle 

in Side-Sektor-Tabelle schreiben 
Pufferanzahl erniedrigen 

verzweige, wenn Anzahl kleiner Null 
Puffer suchen 

verzweige, wenn gefunden 

Belegung in Tabellen löschen 

Nummer der Fehlermeldung 

'70, NO CHANNEL' ausgeben 
Puffernummer in Belegungstabelle 
Anzahl der benötigten Puffer erniedrigen 
verzweige, wenn kleiner Null 

Puffer suchen 

verzweige, wenn nicht gefunden 
Puffernummer in Belegungstabelle 
Ende 
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02 


02 


d2 


02 
02 








Freigeben aller Schreib- und Lesekanäle außer dem 
Kommandokanal durch Löschen der Belegungen in den Tabellen. 
Sekundäradresse 

mit 15 vergleichen 
verzweige, wenn nein 

Ende 

Sekundäradresse als Index 
Kanalstatus holen 

ist Kanal unbenutzt? 
verzweige, wenn ja 
Kanalnummer isolieren 

und abspeichern 

Code für unbenutzten Puffer 
in Tabelle eintragen 
aktuelle Kanalnummer 

Flags in Kanalstatustabelle 
löschen 

Puffer wieder freigeben 
aktuelle Kanalnummer 
Bitflag für 

die aktuelle Kanalnummer 

an die ihr entsprechende 
Position 

schieben 

und in das Register 
eintragen 

Ende 








d2 


d2 


d2 








Puffer und dessen Kanalzuordnung freigeben. 
Kanalnummer als Index 
zugehörige Puffernummer holen 
ist Puffer diesem Kanal zugeordnet? 
verzweige, wenn nein 
Puffernummer merken 

Code für unbenutzten Puffer 
Pufferzuordnung löschen 
Puffernummer zurückholen 

und Puffer freigeben 
Kanalnummer als Index 
zugehörige Puffernummer holen 
ist Puffer belegt? 

verzweige, wenn nein 
Puffernummer merken 

Code für unbenutzten Puffer 
Pufferzuordnung löschen 
Puffernummer zurückholen 
Puffer freigeben 

Kanalnummer als Index 
zugehörige Puffernummer holen 
ist Puffer belegt? 

verzweige, wenn nein 
Puffernummer merken 

Code für unbenutzten Puffer 
Pufferzuordnung löschen 
Puffernummer zurückholen 
Puffer freigeben 

Ende 
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02 
99 


d2 


d2 


d3 


00 





#502 
$0099,y 


Suchen eines Puffers. 
Puffernummer in Y 

merken 

Puffer 8-15 

nach freiem Puffer durchsuchen 
verzweige, wenn gefunden 
Puffer 0- 7 

nach freiem Puffer durchsuchen 
verzweige, wenn gefunden 
inaktiven Puffer 'stehlen' 
Puffernummer nach X 

verzweige, wenn kein Puffer 
Jobcode holen 

und auf Ende des Jobs warten 
aktuelte Drivenummer 
Jobcode in Jobspeicher 

und Befehlscodetabelle löschen 
Puffernummer zurückholen 

mal 2 
als Index in Tabelle 
Wert für Pufferzeiger Lo 
Pufferzeiger auf 3.Byte 
Puffernummer zurückholen 

und nach Y 

Nummer des gefundenen Puffers 
Ende 

















d2ba 


Y=0 heißt Puffer 0-7; 
Y=1 heißt Puffer 8-15. 


War die Suche erfolgreich, 


d2ba 
d2bc 
d2bf 
d2c2 
d2c4 
d2c5 
d2c7 
d2c8 
d2cb 
d2ce 
d2dl 
d2d2 
d2d3 
d2d5 
d2d6 
d2d8 
d2d9 
d2da 
d2dc 
d2de 
d2e0 
d2el 


a2 
b9 
3d 
£0 


07 
4f 
e9 
04 


£5 


03 


08 


82 


a7 
09 


02 
ef 


02 
ef 
02 


ldx 
lda 
and 
beq 
dex 
bpl 
rts 
lda 
eor 
sta 
txa 
dey 
bmi 
Ele 
adc 
tax 
rts 
ldx 
lda 
bmi 
txa 
ee 


Suchen eines freien Puffers. Y bestimmt die Puffernummern: 


so enthält X die Puffernummer, sonst enthält X den Wert SE££. 


#507 
$O24f,y 
Sefe9,x 
$d2c8 


$Sd2bc 
So248,y 
Sefe9,x 
So248,y 
$d2d8 
#508 
82 


$a7,x 
Sd2e9 


Wert für Bit-Test 
Pufferbelegungsspeicher 

auf Belegung testen 
verzweige, wenn Puffer frei 
nächsten Puffer 

und weitermachen 

Ende, wenn kein freier Puffer vorhanden ist 
Pufferbelegungstabelle 
Puffer belegen 

und in Tabelle abspeichern 
Puffernummer 

welcher Pufferbereich? 
verzweige, wenn Puffer 0-7 
Puffer 8-15 

waren gewünscht 
Puffernummer 

Ende 

Kanalnummer als Index 
zugehörige Puffernummer holen 
verzweige, wenn Puffer frei 
Kanalnummer 

wird zu Zeiger 
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d2e2 
d2e4 
d2e5 
d2e7 
d2e9 
d2eb 
d2ed 
d2ee 
a2£0 
d2£2 
d2£3 
d2£5 
d2£f6 
ad2£7 
d2£9 
d2£c 
a2£f 
d300 
d302 
d303 
d304 
d306 


07 
a7 
£0 
££ 
ec 


££ 
a7 


of 


10 


50 


af 


01 


£3 


02 
02 


adc 
tax 
lda 
bpl 
cmp 
beq 
pha 
lda 
sta 
pla 
and 
tay 
iny 
ldx 
ror 
ror 
dey 
bne 
(ehe) 
dex 
bpl 
rts 


s07 


$a7,x 
$d2d9 
sff 

$d2d9 


Ssff 
$a7,x 


sof 








s10 
50250 
So24£ 


$d303 


$d2£f9 


auf Alternativtabelle 
erhöht 

alternative Puffernummer holen 
Ende, wenn auch belegt 

ist Puffer frei ? 
verzweige, wenn ja 
Puffernummer merken 

Code für unbenutzten Puffer 
Puffer freigeben 
Puffernummer zurückholen 
und auf 15 begrenzen 

nach Y 

die neue 

Belegung in das 
Pufferbelegungsregister 
eintragen 

nächste Puffernummer 
verzweige, wenn richtiger Puffer aktualisiert 
mit 

nächstem Puffer 
weitermaehen 

Ende 
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d2 


Alle Kanäle außer dem Kommandokanal löschen und freigeben. 
14 

als Sekundäradresse 

Kanal schließen 

nächste Sekundäradresse 

und Kanal ebenfalls schließen 

Ende 


df 


d2 


Alle Kanäle des anderen Laufwerks schließen; außer dem 
Kommandokanal. 

14 

als Sekundäradresse 

Sekundär adresse als Index in Tabelle 
Kanalstatus holen 

Kanal in Betrieb? 

verzweige, wenn nein 

Kanalnummer isolieren 

und übernehmen 

Puffernummer holen 

nach X 

Jobtabelle 

Drivenummer isolieren 

mit aktueller Nummer vergleichen 
verzweige, wenn ungleich 

Kanal freigeben 

nächste Sekundäradresse 

und weitermachen 

Ende 

















'Stehlen' eines inaktiven Puffers, der anhand der Tabelle 
gefunden wird. Die Nummer dieses Puffers wird in A 
übergeben. 

Kanalnummer 

merken 

Index für Tabelle 

Kanalnummer holen 

zugehörige Puffernummer holen 

verzweige, wenn Puffer belegt 

Puffer frei? 

verzweige, wenn nein 


Kanalnummer 

maximale Anzahl an Kanälen 
addieren 

um alternative Puffernummer zu 
holen 


verzweige, wenn ebenfalls belegt 
Puffer frei? 

verzweige, wenn nein 

nächste Kanalnummer 

und 

weitermachen 

Code für Fehler 

unbedingter Sprung; Ende 
Kanalnummer merken 

Puffernummer isolieren 
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d362 aa tax als Index 

d363 b5 00 lda 500,x zugehörigen Jobcode holen 
d365 30: Er bmi $d363 auf Ende des Jobs warten 
1.30.1209. 402 cmp 502 Fehler aufgetreten? 

*0 d3674c 3f aa jmp Saa3f Rückmeldung prüfen 

d36a ea nop $d4373 verzweige, wenn nein 
d36b a6 6£ 1dx Ss6£f Kanalnummer 

d36d e0 07 cpx 507 mit Maximum vergleichen 

d36f 90 d7 bec 54348 weitermachen, wenn kleiner 
d371 b0 e2 bes $d355 unbedingter Sprung 

d373 a4 6£ ldy s6f Kanalnummer als Index 

d375 a9 ££ lda Sf£ Code für unbenutzten Puffer 
ad377 99 a7 00 sta 500a7,y Puffer freigeben 

d37a 68 pla alte Kanalnummer zurückholen 
d37b 85 6f sta Ss6£f und wieder abspeichern 

d37d 8a txa Puffernummer 

d3T7e 60 rts Ende 

dA37f Freien Kanal suchen und belegen 
a37f a0 00 ldy #500 Kanalnummer 

d381 a9 01 lda #501 Bitflag für Kanalbelegung 
d383 2c 56 02 bit 50256 Kanal frei? 

d386 d0O 09 bne $d391 verzweige, wenn ja 

d388 c8 iny nächste Kanalnummer 

d389 0a asl Flag für nächsten Kanal 
d38a do £7 bne $d383 und weitermachen 

d38c a9 70 lda #570 Nummer der Fehlermeldung 
d38e 4c c8 ci jmp $c1lc8 '70, NO CHANNEL' ausgeben 
d391 49 ££ eor #S£ff Kanal belegen 

3393 24: 56. 02 and 50256 und in Tabelle 

d396 Bd 58 02 sta 50256 anzeigen 

d399 98 tya Kanalnummer 

d39a 60 rts Ende 

d39b Nächstes Byte eines Kanals holen. 
d39b 20 eb do jsr Sd0eb Kanal zum Lesen öffnen 

d39e 20 00 ci jsr $c100 LED am Laufwerk einschalten 
d3al 20 aa d3 jsr Sd3aa Byte über Kanal holen 

d3a4 a6 82 1dx 582 Kanalnummer 

d3a6 bd 3e 02 lda S023e,x aktuelles Byte in A 

d3a9 60 rts Ende 

d3aa Nächstes Byte irgendeines Files holen 
d3aa a6 82 ldx 582 Kanalummer 

d3ac 20: 25. di jsr $d125 Filetyp holen 

d3af d0 03 bne $d3b4 verzweige, wenn keine relative Datei 
d3bl 4c 20 el jmp $Sel20 relative Datei bearbeiten 
d3b4 a5 83 lda 583 aktuelle Sekundäradresse 
d3b6 er DE cmp Sof auf Kommandokanal prüfen 
d3b8 £f0O 5a beq $d414 verzweige, wenn Kommandokanal 
d3ba b5-, 'E2 lda S£f2,x Kanalstatus holen 

d3bc 29 08 and 508 auf EOI prüfen 

d3be d0 13 bne $d3d3 verzweige bei keinem EOI 
d3c0 20: 25. "41 jSE $d125 Filetyp holen 

d3c3 ©9, 97 cmp 507 Direktzugriffsdatei? 

d3c5 d0O 07 bne $Sd3ce verzweige, wenn nein 

d3c7 a9 89 lda 589 Flags für Direktzugriff 
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d3c9 95. 2 sta $f2,x in Tabelle setzen 

d3cb 4c de d3 jmp Sd3de Byte für Direktzugriff holen 
d3ce a9 00 lda #500 Kanalstatus 

d3d0 9,5 VEZ sta sf2,x löschen; EOI 

d3d2 60 rts Ende 

d3d3 a5 83 lda 583 Sekundäradresse 

d3d5 £f0 32 beq 5d409 verzweige, wenn LOAD 

d3d7 20° 25. 41 jsr $d125 Filetyp holen 

d3da c9 04 cmp #504 Direktzugriff? 

d3dce 90 22 bcec Sd400 verzweige, wenn nein 

d3de 20 2£ di jsr sal2f Puffer- und Kanalnummer holen 
d3el b5..-892 lda 599,x Pufferzeiger Lo 

d3e3 d9 44 02 cmp 50244,y gleich Endezeiger? 

d3e6 do 04 bne Sd3ec verzweigen, wenn nein 

d3e8 a9 00 lda #500 Pufferzeiger Lo 

d3ea 95 99 sta 599,x auf Null setzen 

d3ec f6 99 inc 599,x Pufferzeiger Lo erhöhen 

d3ee al 99 lda ($99,x) Byte aus Puffer holen 

a3f0 99 3e 02 sta $5023e,y in Tabelle für Ausgabe 

aAsEs bs: 99 lda 599,x Pufferzeiger Lo 

d3£f5 d9 44 02 cmp 50244,y gleich Endezeiger? 

d3f8 d0O 05 bne SA3ff verzweige, wenn nein 

d3fa a9 81 lda #$81 letztes Zeichen 

a3fc 99. 22.00 sta S00£f2,y FOI setzen 

a3ff 60 rts Ende 

d400 20 56 di jsr $d156 Byte aus Puffer holen 

d403 a6 82 ldx 582 Kanalnummer als Index 

d405 94 3e 02 sta 5023e,x Byte in Tabelle für Ausgabe 
d408 60 rts Ende 

d409 ad 54 02 lda 50254 Flag für Directory 

d40c £0 £2 beq $d400 verzweige, wenn nicht gesetzt 
d40e 20 67 ed SE Sed67 Bytes aus Directory holen 
d4ll 4c 03 d4 jmp $d403 Ende 

d414 Lesen eines Bytes aus dem Fehlerkanal. 
d41l4 20 e8 d4 jSE Sd4e8 aktiven Pufferzeiger holen 
d417 c9 da cmp Sd4 ERROR - Puffer? 

d419 d0 18 bne $d433 verzweige, wenn nein 

d4lb a5 95 lda $95 Zeiger auf Directorypuffer Hi 
d4Ald c9 02 cmp 502 zeigt auf Fehlerpuffer? 

dalf d0 12 bne $d433 verzweige, wenn nein 

d4a21 a9 0d lda s0od "RETURN" 

d423 85 85 sera 585 ins Ausgaberegister 

d425 20 23 ci JSE $c123 Fehlerflags löschen 

d428 a9 00 lda 500 Code für 'OK'-Meldung 

d42a 20 cl e6 jSE Se6cl eldung bereitstellen 

d42d c6 a5 dec $a5 Zeiger in ERROR-Puffer Lo minus 1 
da2f a9 80 lda 580 Flag für EOI löschen 

d431 d0O 12 bne $d445 unbedingter Sprung 

d433 20 37 di jsr $d137 Byte holen 

d436 85 85 sta 585 ins Ausgaberegister 

d438 d0O 09 bne $d443 verzweige, wenn Byte ungleich Null 
d43a a9 da lda #5d4 ert für ERROR-Puffer-Zeiger Lo 
d43c 20 c8 da4 JSE Sd4c8 Pufferzeiger setzen 

da3f a9 02 lda #502 Pufferzeiger Hi 

d44al 95: 9a sta 59a,x setzen 

d443 a9 88 lda #588 READ-Flag 





d445 85 £7 sta S£f7 setzen 
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d447 a5 85 
d449 84... 


$85 
50243 


Datenbyte 
für Ausgabe bereitstellen 
Ende 


d44d 20.38 


df 


Lesen des nächsten Blocks eines Files und Setzen eines EOF- 
Signales, falls der Linker der Spur dieses Blocks gleich 


s0o0 ist. 
Puffernummer holen 
mal 2 


als Index fur Tabelle 
Pufferzeiger Lo 

auf Null setzen 

Tracknummer aus Puffer holen 
verzweige, wenn kein Folgeblock 
Pufferzeiger Lo inaktiv setzen 
olgeblock lesen 

Ende 














Routine zur Übergabe der Parameter an den DC. Bei Einsprung 
ab $d460 wird der Code zum Lesen ($80), bei Einsprung ab 
$d464 der Code zum Schreiben ($90) übergeben. Anschließend 
wird das Kommando ausgeführt. 

Jobcode fur Lesen 

unbedingter Sprung 

Jobcode fur Schreiben 

mit Drivenummer verknüpfen 

in Jobtabelle eintragen 

aktuelle Puffernummer 

Parameter an Diskcontroller 

aktuelle Puffernummer 

Job ausführen 


02 











Öffnen eines Kanals zum Lesen. Der Filetyp wird auf SEO 
gesetzet. Anschließend wird der Block gelesen. 

Nummer für SEO 

setzen 

17 (READ) 

als Sekundäradresse setzen 

Puffer belegen; Block lesen 

Wert für Pufferzeiger 

Pufferzeiger setzen; Ende 


Öffnen eines internen Schreibkanals. 
18 (WRITE) 

als Sekundäradresse setzen 
Schreibkanal öffnen 


Belegen und Schreiben des nächsten Directory' Blocks. 
Track- und Sektornummer holen 

ein 

Block 

Abstand der Sektoren (10) 

merken 

durch 3 bei Directory 

ersetzen 
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d49b 20 2d £il jsr sfl2d nächsten freien Block hole 

d49e 68 pla Schrittweite zurückholen 

d49£f 85 69 sta 569 und abspeichern 

d4al a9 00 lda #500 Pufferzeiger auf 

d4a3 20 c8 d4 jsr $d4c8 Null setzen 

d4a6 a5 80 lda s80 Tracknummer 

d4a8 20, «£1- :&£ St Sc££fl in Puffer schreiben 

d4ab a5 81 lda sel Sektornummer 

d4ad 20 fl c£ jsr Sc££fl in Puffer schreiben 

d4b0 20 c7 do SE $5d0c7 Block auf Diskette schreiben 

d4b3 20 99 d5 jsr 54599 Ende des Jobs abwarten 

d4b6 a9 00 lda #500 Pufferzeiger auf 

d4b8 20 c8 d4 jsr $d4c8 Null setzen 

d4bb 20 £l cf jsr Sc£fl Puffer mit $00 

d4be do f£b bne Sd4bb füllen 

d4c0 20: «EL »C£f jsr Scffl Null als Tracknummer in Puffer 

d4c3 a9 TE lda #S£ff 256 Bytes als Anzahl 

d4c5 de EI "CE jmp Sc££fl in Puffer schreiben; Ende 

d4c8 Setzen des aktuellen Pufferzeigers. A enthält den neuen 
Wert, der gesetzt werden soll- 

d4c8 85 6£f sta s6f Wert merken 

d4ca 20: 93 d£ jsr $sAf93 aktuelle Puffernummer holen 

d4cd 0a asl mal 2 

d4ce aa tax als Index für Tabelle 

dAcf b5 9a lda 59a,xX Pufferzeiger Hi 

dAdi 88,98 sta 595 übernehmen 

d4d3 a5 6£ lda Ss6£f neuen Wert 

d4d5 95 99 sta 599,x für Pufferzeiger Lo 

d4d7 85 94 sta 594 übernehmen 

d4d9 60 rts Ende 

d4da Beide internen Kanäle (Lese- und Schreibkanal) schließen. 

d4da a9 11 lda #S11 17 (READ) 

d4dc 85 83 sta 583 als Sekundäradresse setzen 

d4de 20 27 d2 jsr $d227 Kanal schließen 

d4el a9 12 lda #512 18 (WRITE) 

d4e3 85 83 sta 583 als Sekundäradresse setzen 

d4e5 de: 227° .d2 jmp $d227 Kanal schließen; Ende 

d4e8 Aktuellen Pufferzeiger setzen. 

d4e8 20 93 df jsr $Af93 Puffernummer holen 

d4eb 0a asl mal 2 

d4ec aa tax als Index für Tabelle 

d4ed b5 9a lda 59a,xX Pufferzeiger Hi 

d4ef 85 95 sta 295 übernehmen 

d4afl b5 99 lda 599,% Pufferzeiger Lo 

d4f3 85 94 sta 594 übernehmen 

d4f5 60 rts Ende 

d4f6 Lesen eines Bytes aus dem aktuellen Puffer. A enthält bei 
Einsprung die Nummer des gewünschten Bytes und bei der 
Rückkehr aus der Routine das gelesene Byte. 

d4f6 85 71 sta 571 A als Zeiger Lo merken 

dafs 20 93 df jsr $SAf93 Puffernummer holen 





d4fb aa tax nach X 
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fe 


Sfee0,x 
$72 
#500 
(S71),y 


Pufferadresse Hi holen 
als Zeiger Hi merken 
Byte aus 

dem Puffer holen 

Ende 


d4fc bad 
daff 85 
d501 a0 
d503 bl 
d505 60 
d506 

d506 bad 
d509 29 
d50b 0d 
d50e 48 
a50f 86 
a511 8a 
d512 0a 
d513 aa 
d514 b5 
d516 8d 
d519 b5 
d51b £0 
*1 d5ldcd 
*0 d5ldcd 
d520 bo 
d522 aa 
4523 68 
d524 48 
d525 29 
d527 en) 
3922 do 
d52b 68 
d52c 48 
d52d 4a 
d52e bo 
d530 ad 
4533 90 
d535 ad 
d538 £0 
d53a cd 
d53d do 
ASSTE 8a 
d540 20 
d543 cd 
d546 £0 
d548 bo 
d54a 20 
d54d a9 
a54af 4c 
d552 

d552 a5 
d554 0a 
d555 aa 
d556 b5 
d558 85 
d55a b5 
d55c 85 


02 


02 


02 


02 
fe 


01 


01 


fe 








Überprüfen von Track- und Sektornummer für die Jobschleife. 
X enthält die Puffernummer und $024d den Code für den Job. 
Befehlscode aus Tabelle holen 

Drivenummer isolieren 

mit Jobcode verknüpfen 

und merken 

Puffernummer setzen 

und 
mal 2 nehmen 

als Index für Tabelle 
Sektornummer 

merken 

Tracknummer 

Fehler, wenn Null 

vergleiche mit Maximum 

mit Maximum vergleichen 
Fehler, wenn größer gleich 
Tracknummer merken 

Jobcode zurückholen 

Stack wiederherstellen 
Jobcode isolieren 

Code für Schreiben? 
verzweige, wenn nein 

Jobcode zurückholen 

Stack wiederherstellen 

auf Drive 1 prüfen 

verzweige, wenn Drive 1 
Formatkennzeichen Drive 0 
unbedingter Sprung 
Formatkennzeichen Drive 1 
verzweige, wenn Null 
vergleiche mit 'A' 

verzweige, wenn ungleich 
Tracknummer 

maximale Sektornummer holen 
mit Sektornummer vergleichen 
Fehler, wenn gleich 
verzweige, wenn ok 

Track' und Sektornummer holen 
Nummer der Fehlermeldung 
'66, ILLEGAL TRACK OR SECTOR' ausgeben 











Track- und Sektornummer für Job holen. 
aktuelle Puffernummer 
mal 2 
als Index für Tabelle 
Tracknummer aus Jobspeicher 
übernehmen 

Sektornummer aus Jobspeicher 
übernehmen 

Ende 
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as5f Prüft auf legale Track- und Sektornummern. 

a55f a5 80 lda 580 Tracknummer 

d561 £f0O ea beq Ssa54d Fehler, wenn Null 

*1 d563cd ac 02 cmp S02ac mit Maximum vergleichen 

*0 d563cd d7 fe cmp Sfed7 mit Maximum vergleichen (30) 

d566 b0O e5 bes Sd54d Fehler, wenn größer gleich 

d568 20 4b £2 jsr sf24b maximale Sektornummer holen 

d56b e3:-:81 cmp sel mit aktueller Nummer vergleichen 

a56d £f0O de beq SdA54d Fehler, wenn gleich 

d56f 90 dc bcec sd54d Fehler, wenn kleiner 

d571 60 rts Ende 

d572 Track, und Sektornummer für die DOS-Mismatch- Meldung 
holen, 

d572 20:7 92:,.45 FSE $d552 Track, und Sektornummer holen 

d575 a9 73 lda #573 Fehlernummer in A 

d577 4c 45 e6 jmp Se645 ‘73, CBM DOS V3.0 1571' ausgeben 

d57a Setzen des Jobs für einen Puffer. 

d57a a6 £9 1dx Ss£f9 aktuelle Puffernummer 

d57c 68 pla Befehlscode zurückholen 

d57d 8d 4d 02 sta Ss024d als Jobcode speichern 

d580 95 00 sta 500,x in Jobspeicher und 

d582 94 5b 02 sta 5025b,x in Befehlscodetabelle 

d585 60 rts Ende 

d586 Jobcodes an DC übergeben. Bei Einsprung ab $d586 wird der 


Code für lesen ($80), bei Einsprung ab $d58a der Code für 
Schreiben übergeben. 


d586 a9 80 lda #580 Code für lesen 

d588 d0O 02 bne $d58c unbedingter Sprung 

d58a a9 90 lda #590 Code für Schreiben 

d58c 05 7£ ora STE mit Drivenummer verknüpfen 

d58e a6 £9 ldx s£9 aktuelle Puffernummer 

d590 8d 4d 02 sta s024d Jobcode speichern 

d593 ad 4d 02 lda s024d Jobcode in A 

d596 20 Oe d5 jer Sd50e Parameter prüfen und an DCi Ende 

d599 Warten nach der Übergabe der Jobcodes auf die Beendigung 
des Jobs. 

d599 20 a6 d5 JS $d5a6 Ausführung des Jobs prüfen 

d59c bo f£fb bes 54599 Warten auf Ende des Jobs 

d59e 48 pha Rückmeldung merken 

a59£f a9 00 lda #500 Fehlerflag 

d5al 8a 98 02 sta 50298 löschen 

d5a4 68 pla Rückmeldung zurückholen 

d5a5 60 rts Ende 

d5a6 Überprüft auf fehlerfreie Durchführung des Jobs. Wird ein 
Fehler auf Diskette außer 'WRITE PROTECT' oder 'ID 
ISMATCH' entdeckt, so wird versucht, durch Kopfjustierung 





erneut Daten von Diskette zu lesen. 
d5a6 b5 00 lda 500,x Jobspeicher prüfen 
d5a8 30 la bmi $d5c4 verzweige, wenn DC noch beschäftigt 
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d5aa 
d5ac 
d5ae 
d5b0 
d5b2 
d5b4 
d5b6 
d5b8 
d5ba 
d5bda 
d5bf 
d5c2 
d5c3 
d5c4 
d5c5 
d5c6 
d5c7 
d5c8 
d5ca 
d5cb 
d5ce 
d5d0 
d5d2 
d5d3 
d5d6 
d5d9 
d5de 
d5de 
d5e0 
d5e3 
d5e6 
d5e8 
d5e9 
d5eb 
d5ed 
d5ef 
a5fl 
a5f4 
d5f6 
a5f8 
d5fa 
da5fd 
d600 
d603 
d606 
d607 
d60a 
d60dA 
d610 
d613 
d616 
d619 
d61b 
d6ld 
d620 
d623 
d625 
d628 





02 


d6 


d6 
02 


02 
££ 








#502 
$d5c2 
#508 
sd5ba 
#S0b 
$sd5ba 
#S0£ 
$d5c6 
50298 
$d5c2 
Ssd63£f 


STE 


5025b,x 
#501 
STE 


Sfeca,y 
s026d 
Sd6a6 
502 
Sd5e3 
Sd66d 
5025b,x 
S£O 


$90 
sa5f4 
STE 
$b8 
5025b,x 
$6a 
$d631 
soo 
50299 
5029a 
50299 
5029a 








Sfedb,y 
5029a 
Sfedb,y 
Sffal 
50299 
Sd6a6 
#502 
$d625 
50299 
Sfedb,y 
Sd600 
5029a 
sffa6 


auf fehlerf 
verzweige, 


reie Durchführung prüfen 
wenn Durchführung ok 


8 (WRITE PROTECT ON)? 


verzweige, 
11 (DISK ID 
verzweige, 
1S (DRIVE N 
weiter vers 
wurde Fehle 
verzweige, 
Fehlermeldu 
Flag für Au 
Ende; alles 
Flag für DC 
Ende 

Index 
merken 
aktuelle Dr 
merken 
Tabelle der 
Drivenummer 
und überneh 
Drivenummer 
Bitmaske fu 
und abspeic 
Anzahl Lese 
Rückmeldung 
verzweige, 
Werte zurüc 
Tabelle der 
Code dieses 
und merken 
Code für Sc 
verzweige, 
Drivenummer 
für SUCHEN 
als neuen J 
Bit 6 (Kopf 
verzweige, 
Suche neben 
Zeiger auf 
Byte für Ko 
Index für T 
Byte für Ko 
Wert für 
Kopf justag 
und merken 
Wert für Po 
Kopf neben 
Index erhöh 
wieder 5 Le 
Rückmeldung 
verzweige, 
Index holen 
nächsten We 
verzweige, 
Wert für Wi 
Kopf wieder 








wenn ja 
MISMATCH) ? 
wenn ja 
OT READY)? 
uchen, wenn nein 
r schon angezeigt? 
wenn ja 
ng ausgeben 
sführung beendet 
ok 
noch in Aktion 


ivenummer 


Jobs 

dieses Jobs isolieren 
men 

als Index 

r LED holen 
hern 
versuche (in $6a (5)) durchführen 
des letzten Versuchs 
wenn Fehler 
kholen; Ende 
Jobcodes 
Jobs isolieren 


hreiben? 
wenn nein 
holen und mit Jobcode 
EINES SEKTORS verknüpfen 
obcode merken 

auf Track) prüfen 
wenn Kopf auf Track 

dem Track generieren 
Werte für Kopfdejustage 
pfpositionierung 

abelle holen 
pfpositionierung holen 





e bilden 


sitionierung holen 

den Track positionieren 
en 
seversuche 
prüfen 
wenn ok 





rt aus Tabelle 

wenn noch nicht zu Ende 

ederherstellung holen 
auf Track positionieren 
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d62b b5 00 lda 500,x Code aus Jobspeicher 

d62d ce .82 cmp #502 Rückmeldung prüfen 

de2f 90 2b bec sd65c verzweige, wenn ok 

d631 24 6a bit 6a Bit 7 (BUMP) prüfen 

d633 10 0£ bpl 54644 verzweige, wenn BUMP erfolger s:,1l 
d635 68 pla Jobcode zurückholen 

d636 c9 90 cmp #590 Schreiben? 

d638 d0O 05 bne Sd63£ verzweige, wenn nein 

d63a 05%, 1£ ora S7E£ Drivenummer übernehmen 

d63c 94 5b 02 sta 5025b,x und wieder in Tabelle schreiben 
d63f b5 00 lda 500,x Rückmeldung aus Jobspeicher 

d641 20 0a e6 jsr Se60a und Fehlermeldung ausgeben; Ende 
d644 68 pla Jobcode zurückholen 

d645 20 9% 02 bit 50298 auf Fehler prüfen 

d648 33-23 bmi Sd66d verzweige, wenn Fehler vorhanden 
d64a 48 pha Jobcode wieder merken 

d64b a9 “CO lda #5$c0 Jobcode für BUMP 

d64d 05. VE ora STE mit Drivenummer verknüpfen 

d64f 95 00 sta 500,x und in Jobspeicher eintragen 
d651 20 be 9£ jsr S9fb6 Jobausführung erzwingen und 
d654 ea nop Rückmeldung abwarten 

d655 20 a6 d6 jSE Sd6a6 aktuellen Job abermals versuchen 
d658 eg D2 cmp #502 Rückmeldung prüfen 

d65a b0O d9 bes $d635 verzweige, wenn Fehler 

d65c 68 pla Jobcode zurückholen 

d65d c9 90 cmp #590 Schreiben? 

de5f d0O 0c bne Sd66d verzweige, wenn nein 

d661 05: WIE ora STE mit Drivenummer verknüpfen 

d663 94 5b 02 sta 5025b,x und in Tabelle schreiben 

d666 20 a6 d6 jsr Sd6a6 Ausführung nochmals versuchen 
d669 e9: 02 cmp #502 Rückmeldung prüfen 

d66b b0O d2 bes Sd63£ verzweige, wenn Fehler 

a66d 68 pla aktuelle Drivenummer zurückholen 
d66e 82. GE sta STE und setzen 

d670 68 pla Index zurückholen 

a671 a8 tay nach Y 

d672 b5 00 lda 500,x Rückmeldung aus Jobspeicher 
d674 18 clc Flag für Ausführung beendet 

d675 60 rts Ende 

d676 Routine zum Positionieren des Lese- Schreibkopfes relativ 


zur jetzigen Position. A enthält die Anzahl der zu 
fahrenden Steps; bei A kleiner 128 bewegt sich der Kopf 
nach außen; bei A größer gleich 128 bewegt sich der Kopf 
nach innen. 











d676 c9 00 cmp s00 Null? 

d678 £0 18 beq $d692 Ende, wenn ja 

d67a 30 0c bmi 5d688 wenn negativ, dann Bewegung nach innen 
d67c a0 01 ldy 501 einen Step nach außen 
d67e 20 93 d6 jsr 54693 Kopf bewegen 

d681 38 sec Anzahl der 

d682 e9 01 sbc sol Steps vermindern 

d684 do £6 bne $d67c weitermachen 

d686 £f0 0a beq $d692 unbedingter Sprung; Ende 
d688 a0 f£f£ ldy Sf£ eine Step nach innen 
d68a 20. 93 96 jsr $d693 Kopf bewegen 


d68d 18 ele Anzahl der 
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01 
£6 


#501 
$d688 


Steps erhöhen 
weitermachen 
Ende 


02 
02 


02 


#500 


Bewegen des Kopfes um einen Track nach innen oder außen. 
Wert merken 

Wert für Kopfbewegung 

Drivenummer als Index 

Wert für Kopfbewegung an Diskcontroller 

Rückmeldung des Diskcontroller 

abwarten 

Parameter 

wieder löschen 

Wert wieder zurückholen 

Ende 


02 
lc 
lc 
02 


9£ 


02 
lc 
lc 


Steuerung der Anzahl der Leseversuche bei Auftreten von 
Fehlern 
Anzahl der Versuche (normalerweise 5) 
begrenzen 
und als Zähler merken 

aske für LED am Laufwerk 

LED umschalten; wird als das 
charakteristische Flackern deutlich 
Jobcode holen 

und an DC übergeben 

Jobausführung erzwingen 

und Rückmeldung abwarten 

Fehler aufgetreten? 

verzweige, wenn nein 

Zähler vermindern 

und noch einmal versuchen 
Rückmeldung merken 

aske für LED am Laufwerk 

LED 
einschalten 

Rückmeldung zurückholen 
Ende 











93 


af 


00 


00 


sdf93 


580 
$0006,y 
s8l 
$0007,y 
ST7£ 


Parameter für nächsten Job an den Diskcontrol- ler 
übergeben. Übergabe der Spur- und Sektornummer an den 
Jobspeicher. 

Puffernummer holen 

mal 2 

als Index in Tabelle 

aktuelle Tracknummer 

in Jobspeicher 

aktuelle Sektornummer 

ebenfalls in Jobspeicher 

Drivenummer 

mal 2 

als Index vormerken 

Ende 





Neue Datei im Directory eintragen. 
aktuelle Sekundäradresse 
merken 
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d6be7 
d6e9 
dbea 
dbec 
d6ed 
d6ef 
d6£0 
d6£f2 
d6f4 
d6£7 
d6fa 
d6fb 
d6fd 
d6Fff 
d701l 
4703 
d706 
4707 
4709 
d70b 
d70e 
a7ıl 
d713 
d715 
d718 
d7la 
d7lc 
a7le 
d720 
A123 
d726 
d728 
d72b 
d72e 
d730 
4733 
3738 
d738 
d73a 
d73d 
d740 
d743 
d744 
d747 
d749 
d74b 
d74d 
d750 
d751 
4754 
ad757 
4758 
d75b 
d75e 
d761 
d762 
d765 
d766 


82 





7a 


10 


de 
02 


02 


02 
c5 


02 


d4 
a7 


02 
c6 


d4 
02 
02 
02 
d4 


02 


c£ 


02 
EE 


02 
c£ 
af 


02 








82 
sel 
s80 


#511 
$83 
Sde3b 
s024a 


Se2 
#501 
STE 

s£f9 
5025b,x 


$d715 
#501 
50292 
Sc5ac 
54730 
$A73d 
50291 
$d726 
sel 
$A73d 
ssl 
$d460 
$A73d 
#501 
50292 
$c617 
$A73d 
Sd48d 
s8l 
50291 
#502 
50292 
50292 
$d4c8 


5024a 
#504 
$d74d 
#580 
Sc£fl 


50280 
Sc£fl 


50285 
SCHEN 
$SAf93 
5027a 


#510 


aktuelle Kanalnummer 
ebenfalls merken 
aktuelle Sektornummer 
merken 
aktuelle Tracknummer 

ebenfalls merken 

17 (SA für lesen) 

internen lesekanal setzen 

Track- und Sektornummer holen 
aktuellen Filetyp 

merken 

Drivenummer für neues File 
isolieren und 

als aktuelle Drivenummer übernehmen 
aktuelle Puffernummer 

zugehörigen Jobcode prüfen 
Drivenummern identisch? 

verzweige, wenn ja 

Zeiger für 

Directory setzen 

freien Platz für Eintrag suchen 
verzweige, wenn alles voll; neuen Block! 
unbedingter Sprung; Eintrag schreiben 
Sektornummer des ersten Eintrags 
verzweige, wenn Null 

gleich der des neuen Eintrags? 
verzweige, wenn ja 

sonst neuen Sektor anlegen 

Block lesen 

Eintrag in Directory schreiben 
Suche nach freiem Platz für neuen 
Eintrag generieren 

z. B. gelöschten Eintrag suchen 
verzweige, wenn Platz gefunden 
neuen Directorysektor anlegen 
Nummer des neuen Sektors 

als Directorysektor setzen 

Zeiger in Directory 

auf 2 setzen 

Zeiger auf Eintrag 

Pointer für diesen Eintrag setzen 
Filetyp zurückholen 

und für Eintrag setzen 

relative Datei? 

verzweige, wenn nein 

Bit 7 (File gültig) setzen 

Filetyp in Puffer schreiben 
Tracknummer zurückholen 

50280 und für Directory merken 

und ebenfalls in Puffer schreiben 
Sektornummer zurückholen 

und für Directory merken 

und ebenfalls in Puffer schreiben 
Puffernummer holen 

als Index nehmen 

Zeiger in Filetabelle 

nach X 

16, max. länge des Filenamens 
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d768 20 6e c6 


d771 c8 
d772 co b 
d774 90 £ 


d776 ad 4a 02 





A7T7£ ad, 32-2 


d785 ad 5a 02 


d78b ad 58 02 





d790 20 64 d4 


4793 68 
4794 85 82 
d796 aa 
4797 68 


d79a ad 91 02 


d79£f 94 60 02 
d7a2 ad 92 02 


d7a7 9A 66 02 
d’aa ad 4a 02 








Sc66e 
s10 
$00 
(594),y 


s1b 
sd76f 
s024a 
s04 
sd790 
s10 
50259 
(894) ,y 








s025a 
(894) ,y 


50258 
(594) ,y 
$d464 


$82 


Filename in Puffer schreiben 
Startposition 16 

Füllwert 0 

restlichen Platz im 
Directoryeintrag (bis Position 27) 
mit Nullen 

auffüllen 

Filetyp 

relative Datei 

verzweige, wenn nein 

16 als Index 

Track für Side-Sektor-Block 
in Puffer schreiben 

17 als Index 

Sektor für Side-Sektor-Block 
in Puffer schreiben 

18 als Index 

Recordlänge 

in Puffer schreiben 

Block auf Diskette schreiben 
Kanalnummer zurückholen 

und abspeichern 

als Index 

Sekundäradresse zurückholen 
und wieder übernehmen 
Sektornummer des 
Fileeintrags im 

Directory vermerken 

Zeiger auf 

Fileeintrag 

im Directory merken 

Filetyp 

in Tabelle 

zugehörige Drivenummer 
ebenfalls in Tabelle schreiben 
Ende 








d7dl ad de 02 








OPEN-Befehl vom seriellen Bus erhalten. Die Sekundäradresse 
bewegt sich zwischen O0 und 14, das heißt, öffnen einer 
Datei für LOAD, SAVE oder als Datendatei (SEO/USR/REL). 
Sekundäradresse 

zwischenspeichern 

Werte für Befehlsstring setzen 

X=0 abspeichern 

erstes Zeichen aus Befehlsstring holen 

Sekundäradresse 

verzweige, wenn ungleich 0 (LOAD) 

ASCII-Code für '*'? 

verzweige, wenn nein 

gleich letztem Zugriff? 

verzweige, wenn nein 

'alte' Tracknummer übernehmen 

'alte' Drivenummer 

übernehmen und für neuen Job 

setzen 

Code für Filetyp PRG 

setzen 
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d7dc 
ATAf 
a7el 
adA7e4 
a7e7 
d7e9 
d7eb 
dIed 
A7£O 


A7£3 
a7£5 
a7£7 
a7fa 
a7fc 


aT7ff 
d802 
d805 
d807 
d809 
d80b 
d80e 
d810 
d812 


d815 
d817 
d819 


d8lc 
d8le 
d821 
d823 
d825 
d828 
d82b 
d82e 
d830 
d832 
d834 
d835 
d837 
d839 


d83c 
d83d 
dssf 
d840 
d843 
d845 
d848 
d849 
d84c 
ds4af 
d852 
d855 
d857 





02 


el 
dc 


00 
el 


cl 
fe 


a7 


cb 


02 


02 
do 
el 


cl 


lda 
sta 
jsr 
JjsE 
lda 
ora 
ldx 
sta 
jmp 


cpx 
bne 
lda 
bne 
jmp 


jSE 
lda 
sta 
lda 
sta 
jsr 
lda 
ora 
jmp 


epR 
bne 
jmp 


lda 
sta 
lda 
sta 
sta 
jsr 
jr 
bne 
ldx 
beq 
txa 
beq 
lda 
jmp 


dey 
beq 
dey 
sty 
lda 
jsr 
In® 
stx 
jsr 
jsr 
jsr 
ldx 
stx 


S026£ 
sel 
$c100 
$dc46 
#504 
STE 

582 
S00dec,y 
$c194 


#524 

$d815 
$024c 
SA7ff 
$da55 


Scldl 
Sfe85 
$80 
soo 
s8l 
S$Sdc46 
STE 
s02 
Sd7eb 


523 
$d82b 
$cb84 


502 
50296 
500 
STE 
s028e 
54042 
Scle5 
54834 
#500 
$d840 








Sd83c 
#530 
Sclc8 


$d840 


5027a 
#58d 
$c268 


50278 
$c312 
Sc3ca 
$c49A 
#500 

50258 


'alte' Sektornummer 

übernehmen 

LED am Laufwerk einschalten 
Puffer belegen; Block lesen 

#504 Filetyp PRG 'mal 2' 

mit Drivenummer verknüpfen 
zugehörige Kanalnummer holen 

und Filetyp in Tabelle eintragen 
Diskstatus bereitstellen; Ende 


ASCII-Code für '$'? 

verzweige, wenn nein 
Sekundäradresse 

verzweige, wenn ungleich 0 (LOAD) 
Directory laden; Ende 


Befehlsstring zu Ende analysieren 
18, Directorytrack 

als aktuelle Tracknummer setzen 

0 als Sektornummer für 

die BAM setzen 

Puffer belegen; Block lesen 
aktuelle Drivenummer 

mit Filetyp SEC 'mal 2' verknüpfen 
in Tabelle und - Ende 


ASCII-Code für '#'? 
verzweige, wenn nein 
Direktzugriffsdatei öffnen; Ende 


Code für Filetyp PRG 

setzen und 

Drive 0 

ebenfalls setzen 

Drive für Job setzen 

gesetztes Drive initialisieren 
Befehlsstring nach ':' durchsuchen 
verzweige, wenn nicht gefunden 
Index laden 

unbedingter Sprung zur weiteren Analyse 
Komma ',' gefunden? 

verzweige, wenn nein 

Nummer für Fehlermeldung 

'30, SYNTAX ERROR' ausgeben 





Y zeigt jetzt auf den ':' im Befehlsstring 
verzweige, wenn ':' am Anfang steht 
sonst y wieder minus 1 

y zeigt jetzt auf Drivenummer; merken 
'SHIFT RETURN" 

Befehlsstring bis zum Ende analysieren 
Anzahl der enthaltenen Kommata plus 1 
als Kommazähler merken 

Driveparameter setzen 

Drivenummer (n) prüfen 

Eintrag in Directory suchen 

Parameter löschen: 

Recordlänge 
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d85a 
d85d 
d860 
d861 
d864 
d866 
d869 
d86a 
d86d 
d86f 
d871 
4873 
d876 
d879 
d87b 
d87d 
A8Tf 
d882 
d884 
d887 
d88a 
d88c 
d88e 
d891 
d894 
d896 
d898 
d89a 
d89d 
d8a0 
d8a2 
d8a4 
d8a7 
d8aa 
d8ac 
d8ae 


d8b1l 
d8b4 
d8b7 
d8ba 
d8bd 
d8bf 
d&cl 
d8c4 
d8c6 
d8c8 
d&ca 
d8cb 
d8scd 
däcf 
dsdl 
d8d3 
d8d6 


d8d9 
d8dc 
d&de 





da 
02 


02 
02 
02 


02 
02 


02 
02 


02 
02 
d9 
02 
02 


02 
02 


02 


c8 
d9 


02 


d9 











50297 
s024a 


50277 
54876 
sda09 


50277 
54876 
#504 
Sd8b1 
$Sda09 
5024c 
$83 
#502 
54891 
50297 
#540 
502£9 
5024a 
$d8a7 
#502 
5024a 
5024a 
$d8a7 
$e7 
#507 
5024a 
50280 
$d8a7 
#501 
5024a 
50297 
#501 
$d8c6 
5d940 


5027a 
50200 
50258 
50280 
54876 
#501 
50297 
54876 
Se7 
#580 


sd8el 
#520 
$e7 
54849 
$c8b6 
$d9e3 


50280 
sd8el 
Sd9e3 


r X 
ıY 


Betriebsart des Files 

Filetyp 

X ist jetzt 1 

"Sonderzeichen! (*,?,...) im String? 
verzweige, wenn nein 

Filetyp und -betriebsart holen 

X ist jetzt 2 

'Sonderzeichen' im String? 
verzweige, wenn nur ein Zeichen 
relatives File? 

verzweige, wenn ja 

Filetyp und -betriebsart holen 
Sekundäradresse zurückholen 

und wieder abspeichern 

größer gleich 2? 

verzweige, wenn ja 

0 oder 1 (LOAD oder SAVE) setzen 
'BAM dirty' Zustand anzeigen 

BAM wurde geändert 

Filetyp 

verzweige, wenn nicht DEL-File 
Code für PRG-File 

setzen 

Filetyp 

verzweige, wenn nicht DEL-File 
Filetyp aus Tabelle holen 
isolieren, und 

als aktuell übernehmen 

lda $0280 Tracknummer dieses Files 
verzweige, wenn vorhanden 

Code für Filetyp SEQ 

übernehmen 

Filebetriebsart 

SCHREIBEN? 

verzweige, wenn ja 

Kanal für LOAD oder READ öffnen; Ende 





Zeiger in Befehlsstring hinter zweites Komma 
Recordlänge aus String holen 

und übernehmen 

Tracknummer des Files 

verzweige, wenn vorhanden 

Code für WRITE 

als Filebetriebsart setzen 
unbedingter Sprung 

Filetypparameter aus Tabelle holen 
prüfen, ob Datei vorhanden 

Ergebnis merken 

verzweige, wenn ja 

Filenamen auf Joker 

testen 

verzweige, wenn Joker (?,*) vorhanden 
Eintrag löschen; Block schreiben 
neuen Block anlegen; Ende 


Tracknummer des Fileeintrags 
verzweige, wenn File vorhanden 
neuen Block anlegen; Ende 
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02 


s0200 
#540 
sd8f5 


sd8f0 


erstes Zeichen aus Befehlsstring holen 
ASCII-Code für '@' (Klammeraffe=REPLACE) 
beq $dBf5 verzweige, wenn ja 

vorhanden? 

verzweige, wenn nein 

Nummer der Fehlermeldung 

'63, FILE EXISTS' ausgeben 

Nummer der Fehlermeldung 

'33, SYNTAX ERROR' ausgeben 





02 


02 
02 
02 
de 
d4 


d9 
02 


cl 
02 


ei 


02 








(894),y 


s8l 
(594),y 
50270 
$d8 
50260,x 
Sda 
50266,x 
Sde3b 
5d464 
Sd9ef 
50280 
Sd9Y4a 
562 
Sc1c8 
50297 
503 
Sd95c 
520 
$e7 
Sd95c 
560 
Sc1lc8 
$e7 

507 
5024a 








Öffnen eines Files mit Überschreiben. 
Filetyp aus Tabelle 

isolieren 

gleich aktuellem Filetyp? 
verzweige, wenn nein 

relatives File? 

verzweige, wenn ja 

neuen Sektor anlegen 

aktuelle Kanalnummer 

als aktuellen Schreibkanal merken 
17 (READ) 

internen Lesekanal setzen 
lesekanal suchen und Öffnen 
aktueller Pufferzeiger 

Zeiger für Directory setzen 
Pufferindex auf O0 

Filetyp aus Puffer holen 

File als 'offen' deklarieren 
Filetyp wieder schreiben 

26 als Position im Fileeintrag 
aktuelle Tracknummer 

setzen 
27 
aktuelle Sektornummer 
ebenfalls eintragen 
Kanalnummer 

Sektor des Fileeintrags 
übernehmen 

Zeiger in Fileeintrag 
ebenfalls übernehmen 

Track und Sektor setzen 

Block auf Diskette schreiben 
Datei ist jetzt geöffnet; Ende 
Tracknummer des Files 
verzweige, wenn File vorhanden 
Nummer der Fehlermeldung 

'62, FILE NOT FOUND!" ausgeben 
Filebetriebsart 

MODIFY? 

verzweige, wenn ja 

Datei auf bereits geöffnet 
testen 

verzwge, wenn File nicht offen 
Nummer der Fehlermeldung 

'60, WRITE FILE OPEN' ausgeben 
Filetyp aus Tabelle 

isolieren 

gleich dem Filetyp aus dem Befehl? 
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cl 


02 
02 


de 
d4 


02 


02 


02 
02 


02 














50266,y 


verzweige, wenn ja 

Nummer der Fehlermeldung 

'64, FILE TYPE MISMATCH' ausgeben 
Zeiger 

löschen 

Filebetriebsart 

APPEND? 

Fehler, wenn ja 

relative Datei? 

Fehler, wenn ja 

Filetyp aus Puffer holen 

File als offen deklarieren 

Filetyp wieder abspeichern 
Sekundäradresse 

merken 

17 (READ) 

als neue Sekundäradresse setzen 
Track- und Sektor für Lesekanal holen 
Block auf Diskette schreiben 
Sekundäradresse zurückholen 

und wieder setzen 

File zum Lesen öffnen 

Filebetriebsart 

APPEND? 
verzweige, wenn nein 

Ende des Files für APPEND suchen 
Diskstatus bereitstellen; Ende 





File zum Lesen öffnen. 

19 als Pufferposition 

Track des Side-Sektor-Blocks 
merken 

20 

Sektor des Side-Sektor-Blocks 
merken 

21 

Recordlänge 

letzte Recordlänge retten 
neue Recordlänge übernehmen 
letzte Recordlänge 

verzweige, wenn Null 

mit neuer Länge vergleichen 
verzweige, wenn beide Längen gleich 
Nummer der Fehlermeldung 

"50, RECORD NOT PRESENT' ausgeben 
Zeiger auf Fileparameter 
Tracknummer des Files 
übernehmen 

Sektornummer des Files 
übernehmen 

Kanal öffnen; Block lesen 
aktuelle Kanalnummer 

Zeiger auf Fileparameter 
Sektornummer des Fileeintrags 
übernehmen 

Zeiger in Fileeintrag 
übernehmen 

Ende 
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d9e3 File zum Schreiben Öffnen. 

d9e3 a5 e2 lda Se2 Drivenummer 

d9e5 29 01 and #501 isolieren und 

d9e7 85 7£ sta STE als aktuell übernehmen 

d9e9 20 da, .de jr Sdcda Sdcda Block anlegen 

d9ec 20 e4 d6 jer Sd6e4 Sd6e4 File im Directory eintragen 

dIef a5 83 lda 583 Sekundäradresse 

a9£l c9 02 cmp #502 größer gleich O0 oder 11 

d9£3 bo 11 bes Sda06 verzweige, wenn ja 

d9£5 20 3e de jsr Sde3e Track und Sektor holen 

d9£8 a5 80 lda S80 aktuelle Tracknummer 

d9fa 85 Te sta $7e für weitere Aktionen festlegen 

a9fc a5 7£ lda STE Drivenummer 

dI9fe 8d 6e 02 sta 5026e für weitere Aktionen festlegen 

da0l a5 81 lda sel Sektornummer 

da03 8d 6f 02 sta S026£ für weitere Aktionen festlegen 

da06 4c 99 ci jmp 5c199 Diskstatus bereitstellen; Ende 

da09 Filebetriebsarten prüfen und Parameter setzen 

da09 bc 7a 02 ldy 5027a,x Zeiger in Befehlszeile 

da0c b9 00 02 lda 50200,y Zeichen aus Befehlsstring holen 

da0f a0 04 ldy #504 Anzahl der möglichen Betriebsarten 

dall 88 dey minus 1; alle testen 

dal2 30 08 bmi Sdalc weiter, wenn alle geprüft 

dal4 d9 b2 fe cmp Sfeb2,y Filemodi 'R','w','A' und 'M' 

dal? do £8 bne Sdall nicht gefunden; weitersuchen 

dal9 8c- 97 +02 sty 50297 Nummer des Modus merken 

dalc a0 05 ldy #505 maximale Anzahl der Filetypen 

dale 88 dey minus 1; alle testen 

dalf 30 08 bmi $da29 weiter, wenn alle geprüft 

da2l d9 b6 fe cmp Sfeb6,y Filetypen 'D','S','P', 'U' und 'L' 

da24 do £8 bne Sdale nicht gefunden; weitersuchen 

da26 8c 4a 02 sty s024a Nummer des Filetyps merken 

da29 60 rts Ende 

da2a File für APPEND vorbereiten und vorherigen Datenteil 
überlesen. 

da2a 20.39 ‚Ca jsr $ca39 Byte über den Lesekanal holen 

da2d a9 80 lda #580 Test, ob letztes 

da2f 20 a6 dd jsr Sdda6 Byte gelesen wurde 

da32 £f0 £6 beq Sda2a verzweige, wenn nein 

da34 20 95 de jsr $Sde95 Track und Sektor holen 

da37 a6 81 1dx s8l Sektornummer 

da39 e8 inx auf $ff (Maximalwert) 

das3a 8a txa prüfen 

da3b d0O 05 bne Sda42 verzweige, wenn nicht $ff 

da3d 20 a3 di jsr Sdla3 nächsten Sektor holen 

da40 a9 02 lda #502 Wert für Pufferzeiger 

da42 20 c8 d4 jsr $d4c8 Pufferzeiger auf 2 setzen (1. Datenbyte) 

da45 a6 82 1dx 582 Kanalnummer 

da47 a9 01 lda #501 Flag für WRITE 

da49 95 £2 sta SE2,& in Tabelle eintragen 

da4b a9. 80 lda #580 Flag für WRITE 

da4d 05 82 ora 582 verbunclen mit Kanalnummer 

da4f a6 83 ldx 583 und Sekundäradresse als Index 

da5l 94 2b 02 sta $5022b,x in Statustabelle eintragen 

da54 60 rts Ende 

da55 Directory von Diskette laden 
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02 


02 


02 
c3 


02 
02 
02 


02 
02 


cl 


e2 


02 
e2 
e3 
c3 
e3 
c7 
c4 
ec 
dl 


02 


02 


12 als Befehlsnummer 

setzen 

Null als Default für Drivenummer 
Länge des Befehlsstrings 

gleich 1? 

verzweige, wenn ja 

gleich 2? 

verzweige, wenn nein 

zweites Zeichen aus Befehlsstring 
auf Drivenummer prüfen 

verzweige, wenn Drivenummer unklar 
Drivenummer in Tabelle 

Zeiger in Befehlsstring 

allesamt 

erhöhen 

gültigen Filetyp 

setzen 

ASCII-Coce für '*' 

als Filename 

in Befehlsstring 

unbedingter Sprung 

':' in Befehlsstring suchen 
verzweige, wenn nicht gefunden 
Parameter für Befehlsstring löschen 
Y-Wert 3 durch zweimaliges Abziehen 
auf 1 setzen; 

anderer Einsprung von $da89 
Befehlsstringzeiger ist jetzt 1! 
Befehlsstring analysieren 

Filetyp und -parameter setzen 
Drivenummer (n) holen 

Drive(s) initialisieren 

erste Zeile für Directory erzeugen 
Fileeinträge holen 

Format der Einträge herstellen 

Byte aus Puffer holen 

aktuelle Kanalnummer 

Byte aus Tabelle für Ausgabe bereitstellen 
aktuelle Drivenummer 

als letzte Drivenummer merken 

Wert für PRG-File ergänzen und 

Filetyp in Tabelle setzen 

Zeiger in INPUT-Puffer 

löschen 








02 


02 
d2 
d4 








File mit gegebener Sekundäradresse schließen. 
Flag für 'BAM nicht schreiben" 

setzen 

aktuelle Sekundäradresse 

verzweige, wenn ungleich 0 (LOAD) 

Flag für Directory-Listing 

löschen 

Kanal mit gegebener Nummer schließen 

interne Kanäle schließen; Ende 

15 (Kommandokanal)? 
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db 





Sdaec beqx $daec verzweige, wenn ja 
$db02 Datei schließen 

583 Sekundäradresse 

#502 größer gleich O0 oder 1? 

Sdadi verzweige, wenn nein 

5026c Fehler beim letzten Befehl? 
Sdae9 verzweige, wenn ja 

5c194 Diskstatus bereitstellen; Ende 
Sclad Fehler anzeigen; Ende 


db 


02 


al 


al 


db 
db 
ee 
d2 
dad 
c£ 
el 


df 


Alle Files schließen, wenn der Kommandokanal geschlossen 
werden soll. 











#50e 14 als höchste Sekundäradresse 
583 setzen 
Sdb02 zugehörige Datei schließen 
583 nächste Sekundäradresse 
SdafO weitermachen, wenn vorhanden (bis 0) 
5026c Fehler beim letzten Befehl? 
Sdaff verzweige, wenn ja 
5c194 Diskstatus bereitstellen; Ende 
Sclad Fehler anzeigen; Ende 
File mit bestimmter Sekundäradresse schließen; Datei 
schließen. 
583 Sekundäradresse 
5022b,x zugehörigen Kanalstatus holen 
S£ff Kanal benutzt? 
Sdb0c verzweige, wenn ja 
sonst Ende 
sof Kanalnummer isolieren 
582 und abspeichern 
$d125 Filetyp prüfen 
507 Direktzugriffsdatei ('#')? 
$db26 verzweige, wenn ja 
504 relative Datei? 
Sdb2c verzweige, wenn ja 
$d107 Kanal zum Schreiben öffnen 
$Sdb29 verzweige, wenn kein Schreibkanal verfügbar 
$db62 Schreibvorgang abschließen 
S$dba5 Eintrag im Directory abschließen 
Seef4 BAM auf die Diskette schreiben 
$d227 Kanal schließen; Ende 
Sdafl BAM schreiben, wenn 'dirty', d.h. geändert 
Scfle Zweipufferbetrieb einrichten 
Selcb Zeiger auf letzten Record stellen 
$d5 Nummer des Side-Sektor-Blocks 
573 merken 
573 und plus 1 
#500 Zwischenspeicher für weitere 
s70 Bearbeitung 
s71 löschen 
$d6 Zeiger in Side-Sektor 
Subtraktion vorbereiten 
#5$0e und 14 vom Zeiger abziehen 
572 Ergebnis speichern 
Saf5l Anzahl der Blöcke berechnen 
582 Kanalnummer holen 


ea ann nn. ana. ann nn. nnanan.nan.aanann.on on 





s70 Rechenergebnis ist gleich 
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db4Af 95 b5 sta $b5,x Recordnummer Lo 

db51 &5:/,71 lda s71 Rechenergebnis ist gleich 

db53 95 bb sta Sbb,x Recordnummer Hi 

db55 a9 40 lda #540 Dirty-Flag für Record prüfen 

db57 20 a6 dd jsr Sdda6 gesetzt? 

ab5a £0 03 beq Sdb5f verzweige, wenn nein 

db5c 20 a5 db jsr S$Sdba5 Directoryeintrag abschließen 

db5f 4c 27 d2 jmp $d227 Kanal schließen; Ende 

db62 Letzten BLock einer Datei schreiben 
db62 a6 82 1dx 582 Kanalnummer 

db64 b5 b5 lda $b5,x Recordnummer Lo 

db66 15 bb ora Sbb,x mit Recordnummer Hi verknüpfen 
db68 do 0c bne $db76 verzweige, wenn ungleich 0 

db6a 20 e8 da SE Sd4e8 Pufferzeiger holen 

db6d c9 02 cmp #502 2 (noch kein Byte im Block)? 

db6f d0O 05 bne $db76 verzweige, wenn nein 

db71 a9 0d lda #504 sonst "RETURN" 

db73 20: WEIL EEE jsr Scffl in den Puffer schreiben 

db76 20 e8 da Sr Sd4e8 und Pufferzeiger holen 

db79 c9 02 cmp #502 2 (noch kein Byte im Block)? 

db7b do 0£ bne Sdb8c verzweige, wenn nein 

db7d 20 le cf jsr Scfle Puffer wechseln 

db80 a6 82 1dx 582 Kanalnummer 

db82 b5 b5 lda $b5,x Recordnummer La 

db84 d0 02 bne Sdb88 verzweige, wenn ungleich Null 

db86 d6 bb dec Sbb,x Recordnummer Hi und 

db88 d6 b5 dec $Sb5,x Recordnummer Lo vermindern 

db8a a9 00 lda #500 Default für Anzahl der Bytes im Block 
db&c 38 sec sonst Pufferzeiger 

db8d e9 01 sbc #50 minus 1 

db8sf 48 pha als Anzahl der Bytes merken 

db90 a9 00 lda #500 Pufferzeiger auf Null 

db92 20 c8 d4 jsr $d4c8 setzen 

db95 20: EL. ceE jsr Sc£fl $s00 als Folgetrack in Puffer schreiben 
db98 68 pla Anzahl der Byte zurückholen 

db99 20 £l cf jsr Sc£f und ebenfalls in Puffer schreiben 
db9c 20 c7 do jsr $d0c7 Pufferinhalt als Block auf Diskette 
db9£f 20 99 d5 jsr $d599 Schreibjob abwarten und auf Fehler testen 
dba2 4c le cf jmp Scfle Puffer wechseln; Ende 

dba5 Directory nach dem Schreiben eines Files aktualisieren. 
dba5 a6 82 ldx 582 Kanalnummer 

dba7 8e 70 02 stx 50270 merken 

dbaa a5 83 lda 583 Sekundäradresse 

dbac 48 pha merken 

dbad bd 60 02 lda 50260,x Sektornummer im Directory 

dbb0 85 81 sta sel übernehmen 

dbb2 bd 66 02 lda 50266,x Zeiger in Directory 

dbb5 8d 94 02 sta 50294 übernehmen 

dbb8 b5 ec lda Sec,X Filetyp für Kanalnummer holen 

dbba 29 01 and #501 Drivenummer isolieren 

dbbc 85 7£ sta STE und übernehmen 

dbbe ad 85 fe lda Sfe85 18; Track für Directory 

dbel 85 80 sta s80 übernehmen 

dbc3 20. 93 "d£, jsr $SAf93 Puffernummer holen 

dbc6 48 pha und merken 
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ee ea nn. nn. na nanannan.aann.n.on on 
oO 
® 
—- 








d4 


fe 


02 


al 


e6 


c8 
de 


02 








5£9 
$d460 
#500 
Sfee0,x 
587 
50294 
586 
(586), y 
#520 
$dc21l 
$d125 
#504 
$dc29 
($86),y 
#S8£ 
(586),Yy 


(586),y 
580 

s71 
#S1b 
(586),y 


(886),y 
$dc06 
580 


sel 
#567 
$e645 


#500 
(886),y 


($886),y 


s71 
(886), y 


(886),y 
sel 


($86),y 
$5c87d 
$dc29 
($86),y 
#S0£ 
#580 
(586),y 
50270 
#S1c 
$b5,x 
(586),y 


Sbb,x 
(586), y 


und als aktuell übernehmen 
Directorysektor von Diskette .5 
Pufferindex auf 0 
Pufferadresse Hi holen und 
übernehmen 
Pufferzeiger als Adresse Lo 
übernehmen 

Byte aus Puffer (F 
Datei geschlossen? 
verzweige, wenn nein 

sonst Filetyp prüfen 

relative Datei? 

verzweige, wenn ja 

Filetyp nochmal aus Puffer holen 

Bits 4,5 und 6 löschen 

und Filetyp 'neutral' wieder abspeichern 
Zeiger erhöhen 

Tracknummer des Files holen 

und übernehmen 

Zeiger in Puffer merken 

27 

Sektornummer für REPLACE-Befehl 

merken 
26 
Tracknummer für REPLACE-Befehl 
verzweige, wenn vorhanden 
sonst (0) setzen 
Sektornummer zurückholen 

und ebenfalls übernehmen 

Nummer der Fehlermeldung 

'64, ILLEGAL TRACK OR SECTOR' ausgeben 
Tracknummer für REPLACE-Befehl 
Tracknummer 
löschen 

27 
Sektornummer löschen 
Tracknummer zurückholen 
Zeiger zurückholen 
Tracknummer bei REPLACE setzen 
Zeiger erhöhen 
Sektornummer holen 
und übernehmen 
Sektornummer für REPLACE 
setzen 
alte Datei in der BAM löschen 
Datei schließen; Ende 

Filetyp holen 

Bits 4,5 und 6 löschen 

Bit 7 setzen (Kennzeichen für 
ein geschlossenes File) 
Kanalnummer holen 

28 

Blockzahl Lo 

in Directory schreiben 

23 

Blockzahl Hi 

in Directory schreiben 
Puffernummer zurückholen 


iletyp) holen 
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de3d 20 90 dS 


als Index 

Code für Schreiben 

mit Drivenummer verknüpfen 

und an Diskcontroller 
Sekundäradresse zurückholen 

und wieder abspeichern 

Kanal zum Schreiben öffnen; Ende 





dc46 

dc46 a9 01 
dc48 20 e2 di 
dc4b 20 b6& de 
dc4e ad 4a 02 
deBL 48 

dc52 0a 


dc57 20 9b dO 


dc62 94 44 02 


dca0 20 c8 d4 
dca3 20 53 el 
dca6 4c 3e de 
dca9 20 56 di 


dcae 94 3e 02 


Kanal zum Lesen mit zwei Puffern öffnen und Block 
einen Kanal 

zum Lesen öffnen 

Zeiger zurücksetzen 

Filetyp 

merken 

Filetyp mit 

Drivenummer verknüpfen 

und in Tabelle eintragen 

Block von Diskette lesen 
Kanalnummer 

und Tracknummer 

verzweige, wenn kein Folgetrack 
kein Folgetrack; Anzahl der Bytes 
als Endekennzeichen merken 

Filetyp zurückholen 

relative Datei? 

verzweige, wenn nein 
Sekundäradresse 

zugehörige Kanalnummer 
READ/WRITE-Modus setzen 

und wieder abspeichern 

Recordlänge 

in Tabelle schreiben 

Puffer für Side-Sektor-Block suchen 
verzweige, wenn gefunden 

'70, NO CHANNEl' ausgeben 
Kanalnummer 

Puffernummer für Side-Sektor merken 
Tracknummer des Side-Sektor-Blocks 
übernehmen 

Sektor des Side-Sektor-Blocks 
übernehmen 

Parameter an Diskcontroller übergeben 
Side-Sektor-Block lesen 
Jobausführung abwarten und prüfen 
Kanalnummer 

nächsten zu bearbeitenden Record 
setzen 

Pufferzeiger 

auf Null setzen 

ersten Record suchen 

Track und Sektor holen; Ende 

Byte aus Puffer holen 

Kanalnummer als Index 

Byte für Ausgabe bereitstellen 
Flag für 'READY TO TALK' setzen 
und als Kanalstatus übernehmen 
Ende 














lesen. 
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00 


00 


Parameter zum Öffnen eines Kanals setzen. 
Kanalnummer 

zugehörige Puffernummer holen 

mal zwei rechnen und 

verzweigen, wenn größer 127 

sonst als Index nehmen 

Pufferzeiger Lo 


auf 2 
Puffernummer aus zweiter Tabelle 
Bit 7 


Puffer frei setzen 

Puffernummer mal zwei 

verzweige, wenn größer 127 

sonst als Index 

Pufferzeiger Lo 

auf 2 setzen 

Löschen: 

Blockzahl Lo 

Blockzahl Hi und Endezeiger; Ende 
Programmrest 





02 


02 


02 


d2 


d2 


de 


El 


02 





$83 
5022b,y 
#53£ 
#540 
s022b,y 
50258 
$eT,x 
$Sd28e 
Sdd16 
Sd20f 
82 
Scd,x 
Sdecl 
sflle 
$80 
50259 
sel 


Kanal zum Schreiben mit zwei Pu£ffern öffnen und Block 
anlegen. 

freien Block in BAM suchen 

einen 

Puffer zum Schreiben suchen 
Parameter an Diskcontroller übergeben 
Kanalparameter setzen 

Kanalnummer 

Filetyp 

merken 

und mal 2 

mit Drivenummer verknüpfen 

und in Tabelle eintragen 

Filetyp zurückholen 

relative Datei? 

verzweige, wenn ja 

Flag für "ACTIVE LISTENER' setzen 
und als Kanalstatus übernehmen 

Ende 

Sekundäradresse 

zugehörigen Kanalstatus holen 

und READ/WRITE-Modus setzen 
Kanalstatus 

wieder abspeichern 

Recordlänge 

in Tabelle übernehmen 

Puffer für Side-Sektoren suchen 
verzweige, wenn gefunden 

'70, NO CHANNEL' ausgeben 
Kanalnummer 

Puffernummer für Side-Sektor merken 
Puffer löschen 

nächsten freien Block in BAM suchen 
Tracknummer 

für ersten Side.Sektor'Block 
Sektornummer 
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dd27 8d 5a 02 sta 5025a für ersten Side-Sektor-Block 

dd2a a6 82 1dx 582 Kanalnummer 

dd2c b5 cd lda Scd;x zugehörige Puffernummer holen 

dd2e 20 d3 d6 JSE $d6d3 und Parameter an Diskcontroller übergeben 

da3l a9 00 lda #500 Pufferzeiger 

dd33 20 e9 de jsr Sdee9 auf Null setzen 

dd36 a9 00 lda #500 0 als Zeiger für nächsten Track 

dd38 20 8d dd jsr Sdd8d in Puffer 

dd3b a9 11 lda #511 17 als Anzahl der Bytes 

dasd 20 8d dd Berg Sdd8d in Puffer 

dd40 a9 00 lda #500 0 als Side-Sektor-Nummer 

dd42 20 8d dd jsr Sdd8d in Puffer 

dd45 ad 58 02 lda 50258 Recordlänge 

dd48 20 8d dd jse Sdd8d in Puffer 

dd4b a5 80 lda s80 aktuelle Tracknummer 

dd4d 20 8d dd SE Sdd8d in Puffer 

dd50 a5 81 lda sel aktuelle Sektornummer 

dd52 20 8d dd jsr Sdd8d in Puffer 

dd55 a9 10 lda #510 Pufferzeiger auf 16 

dd57 20 e9 de jsr Sdee9 setzen 

dd5a 20 3e de ST Sde3e Track und Sektor holen 

dA5d a5 80 lda s80 Tracknummer des ersten Datenblocks 

da5f 20 8d dd jsr Sdd8d in Puffer 

dd62 a5 81 lda sel Sektornummer des ersten Datenblocks 

dd64 20 8d dd Jjsr Sdd8d in Puffer 

dd67 20 6c de Sr Sde6c Side-Sektor-Block auf Diskette schreiben 

dd6a 20 99 d5 JE 5d599 Jobausführung abwarten und prüfen 

dd6d a9 02 lda #502 Pufferzeiger auf 2 

dd6f 20 c8 d4 jsr $d4c8 setzen 

dd72 a6 82 ldx 582 Kanalnummer 

dd74 38 sec Subtraktion vorbereiten 

dd75 a9 00 lda #500 Recordlänge durch 

da77 E52 «7, sbc SEX Subtraktion von 0 

dd79 95 c1 sta SCL7Z als nächste zu bearbeitende Nummer invertieren 

dd7b 20 e2 e2 jsr Se2e2 Records auf Null setzen 

dd7e 20 19 de jsr Sdel9 linker des Folgeblocks in Puffer 

dd8l 20 5e de jsr Sde5e Block auf Diskette schreiben 

dd84 20 99 d5 jsr 54599 Jobausführung abwarten und prüfen 

dd87 20 £4 ee jsr Seef4 BAM auf die Diskette schreiben 

dd8a 4c 98 de jmp $dAc98 Diskstatus bereitstellen; Ende 

ddsd Byte in einen Side-Sektor schreiben. 

ddAs8d 48 pha Byte merken 

dd8e a6 82 1dx 582 Kanalnummer 

dd90 b5 cd lda $cd,x zugehörige Puffernummer holen 

dd92 4c fd cf jmp Scffd Byte in Puffer schreiben 

dd95 Setzen bzw. Löschen aller wichtigen Flags. Das Carry-Flag 
dient hierbei als Zeiger: C=0 bedeutet Flags löschen C=1 
bedeutet Flags setzen. 

dd95 90 06 bec Sdd9d verzweige, wenn Flags gelöscht werden sollen 

dd97 a6 82 1dx 582 Kanalnummer 

dd99 15 ec ora Sec,X Filetyp-Flags setzen 

dd9b do 06 bne Sdda3 verzweige, wenn ungleich 0 

dd9a a6 82 1dx 582 Kanalnummer 

adygf 49 ££ eor #S£f£ invertieren 


ddal 35 ec and Sec,X und Filetyp-Flags löschen 
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ec 


Wert abspeichern 
Ende 


Filetyp-Flags testen. 
Kanalnummer 

mit Flags verknüpfen 
Ende 





00 


02 


02 


02 














$Sddc2 
50260, y 
$d8,x 
$Sddc2 
50266, y 
Sdd,x 
$Sddc2 


Auf Jobcode für Schreiben prüfen. 
Puffernummer holen 

als Index 

Jobcode aus Tabelle holen 

und isolieren 

Schreiben? 

Ende 





Testet auf aktives File in Tabelle. 
zähler für Files 

setzen 

Kanalstatus holen 

Kanal belegt? 

verzweige, wenn ja 

zähler 

erhöhen 

16; höchste Sekundäradresse plus 1? 
verzweige, wenn kleiner; weitermachen 
Ende; alles geprüft 

Sekundäradresse merken 

Kanalnummer isolieren 

und als Index benutzen 

Kanalfiletyp holen 

Drivenummer isolieren 

und merken 

Kanalnummer 

Standard für Drivenummer (0) 
Drivenummer bereinigen 

gleich dem Tabellenwert? 

verzweige, wenn nein 

Sektornummer im Directory 

gleich Sektor der Datei? 

verzweige, wenn nein 

50266,y Zeiger auf Directoryeintrag 
identisch? 

verzweige, wenn nein 

Flag für aktives File setzen 

Ende 








df 


de 
d5 


Block schreiben, falls durch Änderung im Puffer 
erforderlich geworden (Puffer ist 'dirty'). 
Nummer des aktiven Puffers holen 

Ende, wenn Puffer nicht 'dirty' 

sonst Block neu auf Diskette schreiben 
Jobausführung abwarten und prüfen 

Ende 
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$de2b 
580 
(894) ,y 


Linker für folgenden Sektor schreiben; Puffer 'dirty' 
setzen. 

Pufferzeiger 'dirty' setzen 

Tracknummer 

in Puffer schreiben 

Zeiger plus 1 (Y=1) 

Sektornummer 

in Puffer schreiben 

Puffer 'dirty' setzen; Ende 


(894) ,y 
sel 


Linker auf nächsten Sektor aus dem aktuellen Puffer holen. 
Pufferzeiger setzen 

Linker für Folgetrack 

übernehmen (neue Tracknummer) 

Zeiger plus 1 (Y=1) 

Linker für Folgesektor 

übernehmen (neue Sektornummer) 

Ende 





$de2b 
#500 
(594) ,y 


$82 
$c1,x 


(894),y 





Linker für letzten Block einer Datei setzen; d.h. 
Tracknummer ist $00. 
Pufferzeiger setzen 
Tracknummer gleich 0 








setzen 

Zeiger plus 1 (Y=1) 
Kanalnummer 
Endekennzeichen holen 
und 


minus 1 als 
Anzahl der Bytes 
setzen 

Ende 





Aktuellen Pufferzeiger setzen- 
Puffernummer holen 

mal 2 

als Index 

Pufferzeiger Hi 

setzen 

Pufferzeiger Lo 

setzen (0) 

Index in Puffer ebenfalls auf 0 
Ende 


do 
df 


00 


00 


s0006,y 
$80 
50007,y 
sel 


Spur- und Sektornummer aus Jobspeicher nach $80/81 holen. 
Lesekanal suchen; Nummer holen 
Puffernummer holen 

und übernehmen 

mal 2 

und als Index 

Tracknummer für Puffer 
übernehmen 

Sektornummer für Puffer 
übernehmen 

Ende 
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de50 Schreib- und Lesejobs ausführen. 

de50 a9 90 lda s90 Jobcode für Schreiben eines Blocks 

de52 8d 4d 02 sta 5024d merken 

de55 d0 28 bne Sde7£f unbedingter Sprung 

de57 a9 80 lda S80 Jobcode für Lesen eines Blocks 

de59 8d 4d 02 sta 5024d merken 

de5c do 21 bne Sde7£f unbedingter Sprung 

de5e a9 90 lda s90 Jobcode für Schreiben eines Blocks 

de60 8d 4d 02 sta 5024d merken 

de63 d0 26 bne Sde8b unbedingter Sprung 

de65 a9 80 lda S80 Jobcode für Lesen eines Blocks 

de67 8d 4d 02 sta 5024d merken 

de6ba do 1£ bne Sde8b unbedingter Sprung 

de6c a9 90 lda 590 Jobcode für Schreiben eines Blocks 

de6e 8d 4d 02 sta 5024d merken 

de7l d0O 02 bne $de75 unbedingter Sprung 

de73 a9 80 lda S80 Jobcode für Lesen eines Blocks 

de75 8d 4d 02 sta 5024d merken 

de78 a6 82 1dx 582 Kanalnummer holen 

de7a b5 cd lda Sed,x& Puffernummer für Side-Sektor-Block 

deT7c aa tax prüfen 

de7d 10 13 bpl S$de92 verzweige, wenn Puffer aktiv 

de7£f 20 d0 de ISE Sd6d0 Parameter an Diskcontroller übergeben 

de82 20 93 df jsr $SAf93 Puffernummer holen 

de85 aa tax Puffernummer als Index 

de86 a5 7£ lda STE aktuelle Drivenummer 

de88 9a: 5b: 02 sta 5025b,x in Befehlstabelle 

desb 20 15 el jsr Sell5 Puffer 'dirty' Flag löschen 

de8e 20 93 df jsr $Af93 Puffernummer holen 

de91 aa tax Puffernummer als Index 

de92 4c 06 d5 jmp $d506 Befehlscode prüfen und an Diskcontroller; Ende 

de95 Nächsten Sektor der Datei anhand des Linkers im aktuellen 
Puffer feststellen. 

de95 a9 00 lda #500 Pufferzeiger auf 0 

de97 20 c8 d4 jsr $d4c8 setzen 

de9a 20 37 di jsr $d137 Byte aus Puffer holen (Tracknummer) 

de9d 85 80 sta s80 und übernehmen 

de9f 20 37 di jsr $d137 Byte aus Puffer holen (Sektornummer) 

dea2 85.81 sta sel und ebenfalls übernehmen 

dea4 60 rts Ende 

dea5 Pufferinhalte aus einem Puffer in einen anderen übertragen. 





A enthält die Anzahl der zu übertragenden Bytes; Y die 
Nummer des Puffers, von dem die Daten kommen und X die 
Nummer des Puffers, der die Daten aufnehmen soll. 


dea5 48 pha Anzahl der Bytes merken 

dea6 a9 00 lda #500 Pufferadressen Lo 

dea8 85 6f£f sta Ss6£f setzen 

deaa 85, SAL sta s71 setzen 

deac b9 e0 fe lda Sfee0,y Adresse des Quellpuffers Hi holen 
deaf 85 70 sta s70 und setzen 

debl bd e0 fe lda Sfee0,x Adresse des Zielpuffers Hi holen 
deb4 83 72 sta 572 und setzen 

deb6 68 pla Anzahl der Bytes zurückholen 


deb7 a8 tay und als Zähler 
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deb9 bl GE 
debb 91 71 


benutzen 

Byte aus Quellpuffer 

in Zielpuffer übertragen 
Zähler minus 1 

und nächstes Byte holen 
Ende 


debd 88 
debe 10 £9 
dec0 60 
decl 

decl a8 


fe 


(S6£),y 


$decc 


Puffer löschen, dessen Nummer sich in A befindet 
Puffernummer nach Y 
Pufferadresse Hi holen 
und setzen 
Pufferadresse Lo 
gleich 0 setzen 

O nach Y 

und in Puffer 

nächstes Byte 

und weitermachen 

Ende 








decb a8 
decc 91 6£ 
dece c8 
decf do f£b 
dedi 60 
ded2 


Side-Sektor-Nummer holen. 
Pufferzeiger auf Null 
setzen 

Byte 2 

Side-Sektor-Nummer nach A 
Ende 


fe 


enthalten muß. 
Pufferzeiger Lo setzen 
Kanalnummer 

zugehörige Puffernummer 
als Index 

Pufferadresse Hi holen 
und setzen 

Ende 


$9a,x 


599,x 


Pufferzeiger setzen. 
Pufferzeiger Lo merken 
Pufferzeiger setzen 
Pufferzeiger Hi merken 
Puffernummer 
mal 2 

als Index 
Pufferzeiger Hi zurückholen 
und setzen 
Pufferzeiger Lo zurückholen 
und setzen 

Ende 











dee8 60 
dee9 

dee9 48 
deea 20 de 
deed 48 
deee 8a 
deef 0a 
de£f0 aa 
defl 68 
de£2 95 9a 
def4 68 
def5 95: 99 
def7 60 
def8 


af 


Side-Sektor und Pufferzeiger setzen. V-Flag = 0: alles 
Ordnung V-Flag = 1: kein Side-Sektor! 

Side-Sektor in Puffer und ok? 

verzweige, wenn nein 

verzweige, wenn alles in Ordnung 

Kanalnummer 

zugehörige Puffernummer 


Pufferzeiger auf Side-Sektor setzen, wobei A das Lo-Byte 


in 
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df03 20 1b df jsr Sdflb Side-Sektor in Puffer lesen 

df£06 20 66 df jsr Sdf66 nochmals prüfen, ob Side-Sektor ok 

df09 10 07 bpl Sdfl2 verzweige, wenn ja 

dfob 20 cb el SE Selcb vorherigen Side-Sektor lesen 

df0e 2c ce fe bit Sfece V-Flag setzen 

afll 60 rts Ende; Fehlerstatus 

df12 a5 d6 lda $d6 Zeiger in Side-Sektor 

dfl4 20 e9 de jsr Sdee9 Pufferzeiger in Side-Sektor setze 

dfl? 2c cd fe bit Sfecd V-Flag löschen 

dfla 60 rts Ende; Status ok 

dflb Routine zur Übergabe von Jobs an den Diskcontroller. Bei 
Finsprung in $dflb wird gelesen; bei Einsprung über $df21 
wird geschrieben. A muß die Nummer des Puffers zum 
Schreiben/Lesen und X die Nummer des aktiven Puffers 
enthalten. 

adflb 85 £9 sta S£f9 Puffernummer merken 

dfld a9 80 lda #580 Jobcode für lesen eines Blocks 

dflf do 04 bne Sdf25 unbedingter Sprung zur übergabe 

af2l 85 £9 sta s£9 Puffernummer merken 

df£f23 a9. 90 lda #590 Jobcode für Schreiben eines Blocks 

df25 48 pha merken 

df26 b5 ec lda Sec,X Kanalfiletyp holen 

af28 29 01 and #501 Drivenummer isolieren 

df2a 85 IE sta STE und übernehmen 

af2c 68 pla Jobcode zurückholen 

df2d 05_ IE ora STE mit Drivenummer verknüpfen 

df2f 8d Ad 02 sta s024d und merken 

df32 bl 94 lda ($94),y Folgetrack aus Puffer holen 

df34 85 80 sta s80 und übernehmen 

df£f36 c8 iny Zeiger plus 1 

af37 bl 94 lda ($94),y Folgesektor aus Puffer holen 

df39 85 81 sta sel und ebenfalls übernehmen 

df3b a5 £9 lda 5£9 aktuelle Puffernummer 

df3d 20 d3 d6 jSr $d6d3 Parameter an Diskcontroller übergeben 

df40 a6 £9 1dx Sf9 Puffernummer 

df42 4c 93 d5 jmp 54593 Jobcode an Diskcontroller übergeben; Ende 

df45 Werte für Side-Sektor setzen. 

df45 a6 82 1dx 582 Kanalnummer 

df47 b5. ed lda $cd,x zugehörige Puffernummer 

df49 4c eb d4 jmp Sd4eb Pufferzeiger setzen; Ende 

df4c Gesamtzahl der Blöcke einer relativen Datei berechnen. 

df4c a9 78 lda #578 120 (Anzahl der Blockzeiger pro Side-Sektor) 

df4e 20 5c df jsr Saf5c zu $70/71 addieren 

df51l ca dex Side-Sektor-Nummer 

df52 10 £8 bpl Sdf4c nächster Side-Sektor 

af54 a5 72 lda 572 Anzahl der linkbytes 

df56 4a Isz geteilt durch 2 (da 2 Bytes pro linker) 

df57 20 5c df jsr Sdf5c Anzahl wieder addieren 

df5a a5 73 lda 573 Zahl der belegten Side-Sektoren 

df5c 18 celc Addition vorbereiten 

df5d 65 70 adc s70 addieren und 

df5f 85 70 sta 570 Ergebnis abspeichern 
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verzweige, wenn kein Übertrag 
sonst Anzahl Hi erhöhen 
Ende 


E76 60 
£77 2E CE 
F7a 60 


F8e 60 
FS£ 2c ce 
E92 60 


fe 


fe 


fe 


fe 





Zustand eines Side-Sektor-Blocks im Puffer prüfen. 
Nummer des Side-Sektors holen 
identisch mit Side-Sektor im Puffer? 
verzweige, wenn nein 

Zeiger in Side-Sektor 

Tracknummer aus Puffer holen 
verzweige, wenn kein weiterer Sektor 
Fehlerflags löschen 

Ende; alles ok 

N-Flag setzen 

Ende; kein Side-Sektor 
Side-Sektor-Nummer 

größer gleich 6? 

verzweige, wenn ja 

mal 2 

als Zeiger in Puffer 

Pufferzeiger Lo 

auf 4 setzen 

Tracknummer holen 

verzeige, wenn vorhanden 

sonst N- und V-Flag setzen 

Ende; Fehlerstatus 

V-Flag setzen 

Ende; Side-Sektor nicht vorhanden 


Nummer des aktiven Puffers holen. 
Kanalnummer 
zugehörige Puffernummer aus Tabelle 
verzweige, wenn Puffer belegt 

Puffer aktiv oder nur belegt? 

testen... 
Ende; bei Rückkehr Status abfragen 





02 


02 


Aktiven Puffer prüfen. 
Kanalnummer 

merken 

Puffernummer holen 

verzweige, wenn Puffer belegt 
Puffernummer 

7 
addieren 

und merken 

Puffer aktiv oder nur belegt? 
Status merken 

Puffer auf Aktivität 








were! 60 
df9e 
df9e a6 82 
dfa0 8e 57 
dfa3 b5 a7 
dfa5 10 09 
afa7 8a 
dfa8 18 
dfa9 € 07 
dfab 8d 57 
dfae b5 ae 
dfbO 85 70 
dfb2 29 1£ 
dfb4 24 70 
dfb6 60 
dfb7 
dfb7 a6 82 
dfb9I b5 a7 
dfbb 30 02 





Kanalnummer 
zugehörige Puffernummer 
verzweige, wenn Puffer frei 


Nummer eines inaktiven Puffers und eines Kanals holen. 
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Sae,x 


#Sff 


belegter Puffer aktiv? 
cmp #$f£f prüfen... 
Ende; nach Rückkehr Status abfragen 


Puffer freigeben oder inaktivieren; Puffernummer in A. 
Kanalnumnmr 

Flag für Puffer inaktiv setzen 

Puffer belegt? 

verzweige, wenn ja 

Puffer inaktiv setzen 

Ende 

Puffer unbelegt setzen 

Ende 








dd 


dd 


d4 


e0 


d4 


dd 
e3 


d4 


dd 
al 


02 


e0 











Nächsten Record einer relativen Datei erstellen. 
Bit 5 
Kanalfiletyp setzen 
Bit 7 
bei Kanalfiletyp gesetzt? 
verzweige, wenn ja 

KanalnUlllller 

Recordnummer Lo plus 1 

verzweige, wenn ungleich O0 
RecordnUlllller Hi plus 1 
Kanalnummer 

Zeiger auf nächsten Record 
verzweige, wenn Null 

Pufferzeiger entsprechend A setzen 
Kanalnummer 

Pufferzeiger kleiner Recordzeiger? 
verzweige, wenn ja 

Record schreiben; nächsten lesen 
KanalnUlllller 

Zeiger auf nächsten Record 
Pufferzeiger entsprechend A setzen 
Byte aus Puffer holen 

und für Ausgabe bereitstellen 

Bit 5 
Kanalfiletyp wiederherstellen 

Recordlänge zu Zeiger addieren 

Ergebnis merken 

verzweige, wenn Record gefunden 
Pufferzeiger 0 auf Folgetrack 

Linkbyte des Folgetracks aus Puffer holen 
verzweige, wenn Block vorhanden 

Zeiger zurückholen 

Ergebnis gleich 2? 

verzweige, wenn ja 

Bit 7 

testen 

Kanal, und Puffernummer holen 
Pufferzeiger Lo 

als Endezeiger merken 

"RETURN" 

für Ausgabe bereitstellen 

Ende 

Zeiger auf letztes Zeichen setzen 
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e02d a6 82 1dx 582 Kanalnummer 

e0ü2£f a9 00 lda #500 Zeiger auf nächsten Record gleich 0 

e031 95, :@1 sta Ssel,x setzen 

e033 60 rts Ende 

e034 68 pla Zeiger zurückholen 

e035 a6 82 ldx 582 Kanalnummer 

e037 95 .c1 sta Sc1,x als Zeiger auf nächsten Record speichern 

e039 4c 6e el jmp Selbe Zeiger auf letztes Zeichen; Ende 

e03c Nächsten Record in Puffer generierieren; vorherigen Block 
schreiben. 

e03c 20 d3 di jsr $SA1d3 Drivenummer setzen 

e03f 20 95 de jsr S$Sde95 Track und Sektor setzen 

e042 20 9e df jsr Sdf9e Puffer 'dirty' (Inhalt geändert)? 

e045 50 16 bvc Se05d verzweige, wenn nein 

e047 20 5e de jsr Sde5e Pufferinhalt auf Diskette schreiben 

e04a 20 le cf jsr Scfle Puffer wechseln 

e04d a9 02 lda #502 Pufferzeiger auf 2 

e04f 20 c8 d4 jsr $d4c8 setzen 

e052 20 ab dd jsr Sddab war letzter Job ein Schreibjob? 

e055 do 24 bne Se07b verzweige, wenn nein 

e057 20 57 de jsr S$Sde57 Block von Diskette lesen 

e05a 4c 99 dS jmp 54599 Jobausführung abwarten und prüfen 

e05d 20 le cf jsr Scfle Puffer wechseln 

e060 20 ab dd jsr Sddab war letzter Job ein Schreibjob? 

e063 d0O 06 bne Se06b verzweige, wenn nein 

e065 20 57 de jsr Sde57 Block von Diskette lesen 

e068 20 99 d5 jsr 54599 Jobausführung abwarten und prüfen 

e06b 20 95 de jsr S$Sde95 Track und Sektor setzen 

e06e a5 80 lda s80 Tracknummer; Folgeblock vorhanden? 

e070 £f0 09 beq Se07b verzweige, wenn nein 

e072 20 le cf JSE Scfle Puffer wechseln 

e075 20 57 de jsr Sde57 Block von Diskette lesen 

e078 20 le cf jsr Scfle Puffer wechseln 

e07b 60 rts Ende 

e0Tc Ein Byte in den Recordpuffer schreiben. 

e0Tc 20 05 el jsr Sel05 Puffer 'dirty' setzen, da Inhalt geändert 

e0T7f 20 93 df jsr $sAf93 Puffernummer holen 

e082 0a asl mal 2 

e083 aa tax als Index 

e084 a5 85 lda $85 Byte von seriellem Bus 

e086 81 99 sta ($99,x) in den Puffer schreiben 

e088 b4 99 ldy 599,x Pufferzeiger 

e08a c8 iny plus 1 

e08b do 09 bne Se096 verzweige, wenn noch nicht Null 

e08d ad 82 ldy 582 Kanalnummer 

e08f b9 c1 00 lda S00c1,y Zeiger auf nächsten Record 

e092 £f0 0a beq Se09e verzweige, wenn gleich Null 

e094 a0 02 ldy #502 Puferzeiger neu setzen 

e096 98 tya und nach A 

e097 a4 82 ldy 582 Kanalnummer 

e099 d9 c1 00 cmp S00c1,y gleich Zeiger auf Record? 

e09e d0O 05 bne Se0a3 verzweige, wenn nein 

e09e a9 20 lda #520 Bit 5 

e0a0 4c 97 dd jmp $dd97 Kanalfiletyp ändern; Ende 

e0a3 76. :99 inc 599,x Pufferzeiger erhöhen 





e0a5 do 03 bne Sedaa verzweige, wenn noch nicht Null 
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Record schreiben; nächsten lesen 
Ende 


dd 


e0 


dd 


02 
e0 
el 
02 


cl 
e6 


e3 








Schreiben der Records. 

Bit 7 und 5 

$Sdda6 testen 

verzweige, wenn eines gesetzt 
Byte von seriellem Bus 

in Recordpuffer schreiben 

EOI erhalten? 

verzweige, wenn nein 

Ende 

Bit, 3 

testen 

verzweige, wenn nicht gesetzt 
Nummer der Fehlermeldung 
Fehlerflag setzen 

Rest des Records mit Null füllen 
nächsten Record suchen 

Fehler aufgetreten? 

verzweige, wenn nein 

‘51, OVERFLOY IN RECORD' ausgeben 
Ende; alles ok 

Bit 7 testen 

verzweige, wenn gesetzt 

EOI erhalten? 

verzweige, wenn nein 

Ende 

Byte von seriellem Bus 

merken 
mehr 'Platz in der Datei schaffen 
Datenbyte zurückholen 

und wieder abspeichern 

Bit 7 
Kanalfiletyp wiederherstellen 
Byte in Datei schreiben; Ende 


dd 


e0 
e0 





Füllt den Rest des Records mit Nullen auf. 
Bit 9 

testen 

verzweige, wenn gesetzt 

Datenbyte gleich $00 

setzen 

Byte in Recordpuffer schreiben 
weitermachen, bis Record voll 

Ende 


oo om m 





40 
97 
9e 
40 
57 
a7 


dd 
af 


02 


lda 
sr 
jSE 
ora 
ldx 
sta 
rts 


#540 
$dd97 
Sdf9e 
#540 
50257 
$a7,x 


Puffernummer in Tabelle registrieren und anzei. gen, daß 
der Pufferinhalt aktualisiert wurde, so daß er mit dem 
Block auf der Diskette nicht mehr übereinstimmt ("dirty 
butter'). 

Bit 6 

als Flag setzen 

Puffernummer holen; Flags setzen 

Bit 6 setzen 

Kanalnummer plus 7 

Puffer 'dirty' Flag in Tabelle 

Ende 
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Löschen des Flags in der Puffertabelle, das die Änderungen 
an einem Puffer anzeigt ('dirty' Flag). 

Puffernummer holen; Flags setzen 

Bit 6 löschen 

Kanalnummer plus 7 

Flags in Tabelle eintragen 

Ende 


ell5 

ell5 20 9e df 
ell18 29: BR 
ella ae 57 02 
elld 95: a4 
ellf 60 

el20 

el20 a9 80 
el22 20 26 dd 
e125 a0: 37 
e127 20: 28.41. 
el2a b5 99 
el2c d9 44 02 
el2f E02 22 
el31l T6. 99 
e133 d0 06 
e135 20 3c e0 
e138 20 2£ di 
el3b al 99 
el3d 99 3e 02 
el40 a9 89 
el42 99 £2 00 
el45 bs. 
e147 d9 44 02 
el4a £0 01 
el4c 60 

el4d a9 81 
el4af 99 £2 00 
el52 60 





(599,x%) 
5023e,y 
#589 
S00f2,y 
599,x 
$0244,y 
SelAd 


#581 
s00f2,y 


Byte aus Recordpuffer holen. 
Bit: -7: 

testen 

verzweige, wenn gesetzt 

Byte aus Puffer holen 
Pufferzeiger 

Ende schon erreicht? 
verzweige, wenn ja 
Pufferzeiger erhöhen 
verzweige, wenn ungleich Null 
Record schreiben; nächste Record lesen 
Zeiger in Puffer setzen 

Byte aus Puffer holen 

und für Ausgabe bereitstellen 
READ/WRITE Flag setzen und 
Kanalstatus herstellen 
Pufferzeiger 

Ende schon erreicht? 
verzweige, wenn ja 

Ende 

Kanalstatus zurücksetzen, da 
Ende des Blocks erreicht 

Ende 








el5e 

el5e a6 82 
el160 a9 0d 
el62 94 3e 02 
e165 a9 81 
e167 95.52 
e169 a9 50 
el6b 20..,€8. cl 
el6e 

el6e a6 82 
el70 b5 €1 
e1l72 85 87 
e1l74 c6 87 
el76 c9 02 
e178 do 04 





Nächsten Record lesen und Byte für Ausgabe bereitstellen. 
nächsten Record suchen 

Zeiger in Puffer setzen 

Datenbyte aus Puffer 

für Ausgabe bereitstellen; Ende 


Abbruch bei Fehler. 

Kanalnummer 

"RETURN" 

für Ausgabe auf Bus bereitstellen 
Kanalstatus zurücksetzen, da 
Arbeit abgebrochen worden ist 
Nummer der Fehlermeldung 

'50, RECORD NOT PRESENT' ausgeben 


Letztes Zeichen im Record durch Zeiger markieren. 
Kanalnummer 

Zeiger auf nächsten Record 

merken 

minus 1 

Vergleich mit 2 

verzweige, wenn ungleich 
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oo oa aan a a oa oa aaa a aaa aa a aan m 


d4 


c£ 
el 


02 


c£ 


Er 


el 


d4 


02 


#S£ff 
587 
$c7,x 
588 
Sd4e8 
582 
587 
Sela4 
Sela4 
Scfle 
Selb2 
Sel9d 
582 
$0244,x 
Scfle 
Scfle 
#Sff 
587 
Selb2 
Selac 
Sd4e8 


Zeiger auf S$f£f 

setzen 

Recordlänge 

merken 

Pufferzeiger entsprechend setze- 
Kanalnummer 

Pufferzeiger größer als Recordze';e-? 
verzweige, wenn nein 

verzweige, wenn beide gleich 

Puffer wechseln 

Byte an Zeigerposition aus Puffer ho,en 
verzweige bei Zeigerunterlauf 
Kanalnummer 

Endezeiger setzen 

Puffer wechseln; Ende 

Puffer wechseln 

Recordzeiger auf Sf£ 

setzen 

Byte an Zeigerposition aus Puffer holen 
verzweige, wenn nicht letztes Byte 
Pufferzeiger neu setzen 

Kanalnummer 

Endezeiger setzen 

Ende 


Letztes Byte ungleich 0 eines Records finden. 
Pufferzeiger auf Null setzen 
Recordzeiger 

Byte aus Puffer holen 

verzweige, wenn ungleich Null 
nächstes Zeichen 

schon letztes Zeichen geholt? 
verzweige, wenn ja 

Recordlänge minus 1 

verzweige, wenn noch nicht Null 
Recordlänge minus 1 

Flag für ok; Ende gefunden 

Ende 

Recordzeiger 

Flag für Ende noch nicht gefunden 
Ende 








oo oa aaa aaa mm 


d5 





Ende des letzten Records feststellen und Zei- 
entsprechend setzen. 

Side.Sektor.Nummer holen 

und merken 

Zeiger in Puffer Lo 
auf 4 setzen 
Defaultwert für Pufferindex 10 
unbedingter Sprung 
Pufferindex minus 1 
minus 1 

verzweige, wenn Y kleiner 0; Fehler 
Tracknummer des vorherigen Blocks 
verzweige, wenn keiner vorhanden 
Zeiger 

getei l t durch 2 

gleich Nummer des aktuellen Blocks? 





ger 
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oo oa ao aa aaa nm m 





df 





Selef 
$d5 

82 
$Scd,x 
Sdflb 
#500 
s94 
(594),y 
$e202 


(894),y 


verzweige, we 
Nummer neu me 
Kanalnummer 
Puffer für Si 
Side-Sektor 1 
Pufferzeiger 
setzen 
Tracknummer d 
verzweige, we 
sonst Zeiger 
und Anzahl de 
als Zeiger ne 
minus 1 gibt 
und als Vergl 
Anzahl wieder 
und Pufferzei 
Nummer der Fe 
'67, ILLEGAL 


nn ja 
rken 


de-Sektor 
esen 
gleich O 


es Folgeblocks 

nn Block folgt 

plus 1 

r Bytes des Blocks holen 

hmen 

Index 

eichswert abspeichern 
zurückholen 

ger auf letztes Byte setzen 

hlermeldung 


TRACK OR SEKTOR' ausgeben 


a0 


cl 


dd 


al 


cl 


02 


02 


02 


02 


ce 
de 











POSITION-Befe 
Befehlsstring 
zweites Zeich 
und als Sekun 
Lesekanal suc 
verzweige, we 
Nummer der Fe 
‘70, NO CHANN 
Bit 7 und 5 
Kanalfiletyp 
Filetyp prüfe 
verzweige, we 
Nummer der Fe 
'64, FILE TYP 
Kanalfiletyp 
Drivenummer i 
und übernehme 
drittes Zeich 
als Recordnum 
viertes Zeich 
als Recordnum 
Kanalnummer 
READ/WRITE-St 
als Kanalstat 
fünftes Zeich 
verzweige, we 
teste, ob 
Wert gleich 1 
verzweige, we 
mit Recordlän 
verzweige, we 
Nummer der Fe 
als Fehlerfla 
Zeiger auf Be 
setzen 

Zeiger in rel 
entsprechende 
verzweige, we 
Bit 7 








hl (P-Befehl), 
prufen 

en holen 
däradresse setzen 
hen 

nn Kanal gefunden 
hlermeldung 

EL' ausgeben 





setzen 

n 

nn relatives File 
hlermeldung 
E MISMATCH' ausgeben 
solieren 

n 

en aus Befehlsstring holen 
mer Lo merken 

en aus Befehlsstring holen 
mer Hi merken 


atus 

us übernehmen 

en aus Befehlsstring holen 
nn Null 


2 

nn ert gleich 1 
ge vergleichen 
nn kleiner 
hlermeldung 

g merken 

ginn des Records 


ative Datei berechnen 
n Side-Sektor lesen 
nn Side-Sektor ok 
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$dd97 
Sel5e 
$e275 
#580 

Sdda6 


Kanalfiletyp wiederherstellen 
"50, RECORD NOT PRESENT' ausgeben 
gewünschten Record holen 

Bit 7 

testen 

verzweige, wenn nicht gesetzt 
‘50, RECORD NOT PRESENT' ausgeber 
Diskstatus bereitstellen; Ende 


e2 


d4 


e2 


Record in aktuellen Puffer holen und den nächs- ten Block 
gleich in den zweiten Puffer zr spä- teren Bearbeitung 
laden. 

Block in aktiven Puffer laden 

Zeiger in Record 

Pufferzeiger setzen 

Kanalnummer 

Recordlänge holen 

mInus 

Beginn des Records 

verzweige, wenn Ergebnis positiv 

'67, ILLEGAL TRACK OR SECTOR' ausgeben 

addiere 
Zeiger in Record 
verzweige, wenn Ergebnis kleiner gleich 255 
sonst den Oberlauf plus 1 addieren 

Flag setzen 
Zeiger für Ausgabe setzen 

Byte für Ausgabe bereitstellen; Ende 
Nummer der Fehlermeldung 

'51, OVERFLOW IN RECORD' ausgeben 








e2 


dd 


de 


e2 


cE 


d2 
d2 


a0 





Datenblock in Puffer schreiben. 
Pufferzeiger Lo 

merken 
Pufferzeiger Hi 
merken 
gewünschter Block im Puffer? 

verzweige, wenn nein 

Ende 

Pufferinhalt schreiben, wenn 'dirty' 
Folgetrack und -sektor holen 

Tracknummer 

verzweige, wenn kein Folgeblock vorhanden 
Track und Sektor vergleichen 

verzweige, wenn ungleich 

Puffer wechseln 

inaktiven Puffer freimachen; Ende 
inaktiven Puffer freimachen 

Pufferindex zeigt auf Tracknumnr 
Tracknummer holen 

und übernehmen 

Zeiger auf Sektornummer 

Sektornummer holen 

und übernehmen 

Block in Puffer lesen; Ende 
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Kontrolle 


Track und 


verzweige 
Ende 


Ende 


‚ ob sich der gewünschte Datenblock im aktuellen 


Puffer befindet; dazu werden die Spur- und Sektornummern 
des Blocks mit den aktuellen der Zeropage verglichen. 


Sektor aus Jobspeicher holen 


Pufferindex auf Tracknummer 
Tracknummer holen 
mit gewünschtem Wert vergleiche 


‚ wenn gleich 


Zeiger auf Sektornummer 
Sektornummer holen 
mit gewünschtem Wert vergleichen 





e3 


e3 


($894),y 


Se2e9 
$e304 
$Scl1,x 


#S££ 
(594),y 
$e304 
Se2fl 
$e303 
#500 
Seh,x 


Index auf 
Füllbyte 





Pufferdaten jeweils den einzelnen Records zuordnen. 
Pufferzeiger setzen 


erstes Datenbyte 


gesamten Puffer löschen 

Zeiger auf nächstes Byte 

und weitermachen 

Position des nächsten Records berechnen 
und merken 

Position als Index 


Sff als Kennzeichen in Record 


setzen 


Zeiger auf nächsten Record berechnen 


verzweige 
sonst ver 
oder 


‚, wenn Record noch in diesem Block 
zweige, wenn Block voll 


lösche Recordzeiger 


Ende 


fe 





paßt. 


verzweige 
Flag lösc 





verzweige 
verzweige 
Wert für 


Kontrollieren, ob der nächste Record noch in den Puffer 


Kanalnummer 
Recordzeiger holen 
Fehlerflag setzen 


‚ wenn Zeiger gleich Null 
hen 


Recordlänge addieren 


‚ wenn kein Überlauf 
‚, wenn ungleich Null 
Flag 


Z-Flag setzen 


Ende 


Überlauf plus 1 addieren 





kein weiterer Record 


20 
20 
20 


d3 
cb 
Ic 


dl 
el 
e2 


Blöcke zum relativen File hinzufügen und die Side-Sektoren 


daraufhin 


aktualisieren. 


Drivenummer holen und setzen 
letzten Side-Sektor holen 
gewünschte Datenblöcke lesen 
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e325 
e328 
e32a 
e32c 
e32e 
e330 
e332 
e334 
e336 
e338 
e33b 


oo ® 
ww 
D Ww 
0} 


e34 
e34 
e34 
e34 
e34 
e34 
e34 
e34 
e34 
e351 





HaTonsurwhmN Oo 


® 

w 
0 
w 


e355 
e357 
e358 
e35a 
e35d 
e35f 
e361 
e363 
e365 
e368 
e36a 
e36b 
e36d 
e36f 
e37l 
e372 
e374 
e376 
e378 
e37a 
e37c 
e37e 
e380 
e38l 
e384 
e386 
e388 
e38a 
e38b 
e38d 
e38f 
e392 
e394 
e396 


c£ 


ce 
ef 


cl 


df 


02 


02 








$c£7b 
$d6 
$87 
$d5 
$86 
#500 
$88 
#500 
$d4 
Sce0de 
Sef4d 
82 
Sc7,y 








Zweipufferbetrieb generieren 

Zeiger in Side-Sektor 

merken 

Side-Sektor-Nummer 

merken 

Flag für einen Block 

löschen 

Zeiger auf Beginn des Records 

setzen 

Side-Sektor-Zeiger berechnen 

'BLOCKS FREE' berechnen 

Kanalnummer 

Recordlänge 

minus 1 

in A zur 

weiteren Berechnung 

plus Zeiger in Record 

verzweige, wenn kein Überlauf 

sonst Zeiger in Side-Sektor erhöhen 
zweimal, da Track und Sektor 

verzweige, wenn kein Überlauf 

sonst Side-Sektor-Nummer erhöhen 

16 

Zeiger in Side-Sektor setzen 

vorherigen Zeiger in Side-Sektor 

plus 

2 

Pufferzeiger für Side-Sektor setzen 
Side-Sektor-Nummer 

kleiner als 6? 

verzweige, wenn ja 

Nummer der Fehlermeldung 

‘52, FILE TOO LARGE' ausgeben 

Zeiger in Side-Sektor 

minus 

letztem Zeiger in Side-Sektor 
verzweige, wenn Ergebnis größer gleich 0 
sonst minus 15 

und 

Ergebnis merken 

Side-Sektor-Nummer 

minus letzte Side-Sektor-Nummer 

merken 
Summenspeicher 
vollständig 
löschen 
Differenz nach X 

Blockzahl der relativen Datei berechnen 
Blockzahl Hi 

verzweige, wenn ungleich Null 
Blockzahl Lo 

minus 1 

verzweige, wenn Zahl ungleich 1 war 
Flag für einen Block setzen 

Anzahl der Blöcke auf der Diskette Hi 
verzweige, wenn relative Datei kleiner 
Fehler, wenn Datei größer 

freie Blockzahl auf Diskette Lo 
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e399 
e39b 
e39d 
e39f 
e3a2 
e3a3 
e3a5 
e3a7 
e3a9 
e3ac 
e3af 
e3bl 
e3b3 
e3b6 
e3b9 
e3bc 
e3bf 
e3c2 
e3c5 
e3c8 
e3cb 
e3ce 
e3dl 
e3d4 
e3d7 
e3da 
e3dc 
e3dd 
e3df 
e3e0 
e3e3 
e3e5 
e3e6 
e3e8 
e3e9 
e3ec 
e3ed 
e3ef 
e3f2 
e3f4 
e3f7 
e3f9 
e3fa 
e3fd 
e3fe 
e401 
e402 
e404 
e405 
e407 
e409 
e40b 
e40d 
e40f 
e4l2 
e41l4 
e416 
e418 





d4 


£1 
dd 


df 


e4 


dd 


dd 


af 


df 





SdAf 





Vergleich mit Zahl der benötigten Blöcke Lo 
verzweige, wenn relative Datei größer 
Zeiger auf zweites Byte 

zweites Byte aus Puffer holen 

1 

addieren 

Kanalnummer 

als Recordzeiger setzen 

freien Block in der BAM suchen 

Track und Sektor in Puffer schrelbe 
Flag für einen Block 

verzweige, wenn gesetzt 

Block auf Diskette schreiben 

Puffer wechseln 

Parameter an Diskcontroller übergeben 
freien Block in der BAM suchen 

Track und Sektor in Puffer 

Records in Puffer setzen 

weiter... 
Puffer wechseln 

Parameter an Diskcontroller übergeben 
Records in Puffer setzen 

Null und Endezeiger in Puffer 

Block auf Diskette schreiben 

Track und Sektor holen 

[racknummer 

merken 

Sektornummer 

merken 

Track und Sektor aus Jobspeicher 
Sektornummer 

merken 

Tracknummer 

merken 

Pufferzeiger für Side-Sektor setzen 
auf Null prüfen 

verzweige, wenn ungleich Null 
Side-Sektor schreiben; nächsten anlegen 
Pufferzeiger auf 16 

setzen 

Side-Sektor-Nummer plus 1 
Tracknummer zurückholen 

und in Side-Sektor schreiben 
Sektornummer zurückholen 

und ebenfalls in Side-Sektor schreiben 
aktuellen Sektor zurückholen 

und wieder übernehmen 

aktuellen Track zurückholen 

und ebenfals wieder übernehmen 
verzweige, wenn letzter Block 
Side-Sektor-Nummer 

identisch mit letzterer? 

verzweige, wenn nein 

Pufferzeiger in Side-Sektor setzen 
vergleiche mit Side-Sektor-Zeiger 
verzweige, wenn kleiner 

verzweige, wenn gleich 

Pufferzeiger in Side-Sektor setzen 
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als Endezeiger merken 
Pufferzeiger auf Null 

$dedc setzen 

Null 

Folgetrack 

in Puffer schreiben 

jetzt auf Sektor 

Endezeiger zurückholen 

1 subtrahiert 

ergibt 

Anzahl der Bytes dieses Blocks 
Block auf Diskette schreiben 
Jobausführung abwarten und prüfen 
BAM neu schreiben 

Zeiger für relative Datei neu setzen 
Puffer wechseln 

richtiger Side.Sektor im Puffer? 
verzweige, wenn nein 

Recordzeiger setzen; Ende 

Bit 7 

Kanalfiletyp wiederherstellen 
Nummer der Fehlermeldung 

"50, RECORD NOT PRESENT' ausgeben 





d4 





sol 
(894) ,y 


504 
89 








$02 
s8a 
$80 


Neuen Side-Sektor anlegen und die alten daraufhin anpassen. 
freien Block in der BAM suchen 

Puffer wechseln 

alten Side-Sektor schreiben 

Puffernummer holen 

und merken 
Puffer löschen 
Kanalnummer 
zugehörige Puffernummer für Side.Sektor 
merken 

Puffernummer zurückholen 

und als Index 

16 Bytes des alten Side-Sektors 

in den neuen Side-Sektor übernehmen 
Pufferzeiger auf O0 

setzen 

(Puffer mit altem Side-Sektor) 

ummer des Side.Sektors 

merken 

Pufferzeiger für neuen Side-Sektor 

auf Null setzen 

Side-Sektor-Nummer zurückholen 

und 

plus 1 

als Nummer des neuen Side-Sektors nehmen 
mal 2 

plus 4 

als Zeiger für Track/Sektor merken 

als Index 

und 

minus 2 

als Zeiger auf alten Side-Sektor 
aktuelle Tracknummer 
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e48c 
e48e 
e490 
e491 
e493 
e495 
e497 
e499 
e49a 
e49c 
e49d 
e49f 
e4dal 
e4a3 
e4a6 
e4a9 
edac 
edae 
e4b0 
e4bl 
e4b4 
e4b6 
e4b8 
e4b9 
e4bc 
e4be 
e4c0 
e4c3 
e4c5 
e4c7 
e4c9 
e4ca 
e4cc 
e4ce 
e4dl 
e4d4 
e4d6 
e4d9 
e4db 
e4de 
e4de0 
ede2 
ede4 
ede6 
ede8 
e4de9 
edeb 
eded 
e4f0 
e4f3 
e4f5 
e4f7 
e4f9 





d4 
de 
d5 


df 


02 


d4 


e4 
af 


df 


d4 


de 
d5 


Er, 





$87 
(894) ,y 


sel 
588 
(894) ,y 
#500 


(894),y 


#S11 
(894),y 
#$10 
$d4c8 
Sde50 
54599 
$82 
$Scd,x 


Sdf9e 
$82 
$Scd,x 


50257 
$a7,x 
#500 
$d4c8 
#500 
$80 
(894),y 


s8l 
(594),y 
Se4de 
$sAf93 
582 
Sdflb 
#500 
$d4c8 
$8a 

$8a 

589 

587 
(594),y 


$88 
(594),y 
Sde5e 
54599 
$8a 
#503 
Se4dl 
Scfle 


merken 

und in Puffer schreiben 
Zeiger plus 1 

aktuelle Sektornummer 
merken 
und in Puffer schreiben 

Index auf erstes Byte im Puffer 
Tracknummer O0 

als Marke für letzten Side-Sektor in Puffer 
Zeiger auf Sektornummer 

1% 
als Anzahl der Bytes im Block merken 
Pufferzeiger auf 16 

setzen 

Block auf Diskette schreiben 
Jobausführung abwarten und prüfen 
Kanalnummer 

zugehörige Puffernummer zu Side-Sektor 
merken 

Puffernummer holen 

Kanalnummer 

Puffernummer in Tabelle schreiben 
Puffernummer des Side-Sektors zurückholen 
Nummer des zuletzt aktiven Puffers 
Puffer als belegt kennzeichnen 
Pufferzeiger auf 0 

setzen 

Pufferindex auf Tracknummer 

aktuelle Tracknummer holen 

und in Puffer eintragen 

Pufferindex zeigt jetzt auf Sektornummer 
aktuelle Sektornummer holen 

und in Puffer eintragen 

weiter.,. 

Puffernummer holen 

Kanalnummer 

nächsten Side-Sektor von Diskette lesen 
Pufferzeiger auf O0 

setzen 

Zähler 

minus 2 

Zeiger für Track/Sektor 

Tracknummer holen 

und in Puffer schreiben 

Zeiger auf Sektornummer 

Sektornummer holen 

und ebenfalls in Puffer schreiben 
Side-Sektor auf Diskette schreiben 
Jobausführung abwarten und prüfen 

zähler 

vergleiche mit 3 

weitermachen, wenn noch größer gleich 3 
Puffer wechseln; Ende 
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e4fc Tabelle mit den ASCII-Codes aller Fehlermeldungen des DOS 
3.0: 

e4fc 00 a0 4f ch 00, oK 

e500 20 21 22 23 24 27 d5 45 20/21/22/23/24/27, Read ErrorR 

e508 41 44 89 

e50b 52 83 20 54 4f Af 20 4c 52, FilE too largE 

e513 41 52 47 c5 

e517 50 8b 06 20 50 52 45 53 50, RecorD NoT presenT 

e5lf 45 4e dA 

e522 51 cf 56 45 52 46 4c 4£f 51, Overflow in RecorD 

e52a 57 20 49 4e 8b 

e52f 25 28 8a 89 25/28, WritE ErroR 

e533 26 8a 20 50 52 4f 54 45 26, WritE protect oN 

e53b 43 54 20 49 44 85 

e540 29 88 20 49 44 85 29, DisK id MismatcH 

e546 30 31 32 33 34 d3 59 4e 30/31/32/33/34, Syntax ErroR 

e54e 54 41 58 89 

e552 60 8a 03 84 60, WritE FilE OpeN 

e556 63 83 20 45 58 49 53 54 63, FilE existS 

e55e d3 

e55f 64 83 20 54 59 50 45 85 64, FilE type MismatcH 

e567 65 ce 4f 20 42 Ac 4f 43 65, No blocK 

e56f ch 

e570 66 67 c9 A4c 4c 45 47 41 66/67, Illegal track or sektoR 

e578 4c 20 54 52 41 43 4b 20 

e580 4f 52 20 53 45 43 54 4f 

e588 d2 

e589 61 83 06 87 61, FilE NoT OpeN 

e58d 39 62 83 06 87 39/62, FilE NoT FounD 

e592 01 83 53 20 53 43 52 41 01, FilE 's scratcheD 

e59a 54 43 48 54 cA 

e59f 70 ce 4f 20 43 48 41 4e 70, No channel 

e5a7 de 45 cc 

e5aa 71 c4 49 52 89 71, Dir ErroR 

e5af 72 88 20 46 55 4c cc 72, DisK £ulL 

e5b6 73 c3 42 Ad 20 44 4f 53 73, Cbm dos v3.0 1571 

e5be 20 56 33 2e 30 20 31 35 

e5c6 37 bl bzw. bO für 1570 

e5c8 74 c4 52 49 56 45 06 20 74, Drive NoT readY 

e5d0 52 45 41 44 d9 

e5d5 09 c5 52 52 4f d2 ErroR 

e5db 0a d7 52 49 54 c5 WritE 

e5el 03 c6 49 4c c5 FilE 

e5e6 04 cf 50 45 ce OpeN 

e5eb 05 cd 49 53 4d 41 54 43 ismatcH 

e5f3 c8 

e5f4 06 ce 4f d4 oT 

e5f8 07 c6 4f 55 4e c4 FounD 

e5fe 08 c4 49 53 cb DisK 

e603 0b d2 45 43 4f 52 c4 RecorD 

e60a Fehlerbehandlung nach Ausführung eines Jobs, wobei A die 
Fehlernummer und X die Puffernummer enthalten muß. 

e60a 4c b9 a9 jmp Sa9b9 Erweiterte Behandlung bei DOS 3.0 

e60d 8a txa Puffernummer 





e60e 0a asl mal 2 
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e60f 
e610 
e612 
e614 
e616 
e618 
e619 
e61b 
e6ld 
e6lf 
e621 
e623 
e625 
e627 
e629 
e62a 
e62b 
e62c 
e62d 
e62e 
e631 
e633 
e635 
e637 
e63a 
e63b 
e63e 
e641 
e644 
e645 
e648 
e64b 
e64d 
e650 
e653 
e656 
e658 
e65a 
e65c 
e65d 
e65f 
e661 
e663 
e665 
e667 
e668 
e66a 
e66c 
e66e 
e670 
e672 
e675 
e677 
e679 
e67b 
e67d 


02 


02 
e6 
do 
e6 


e6 
cl 


02 
cl 
d4 


02 


e6 


tax 
lda 
sta 
lda 
sta 
pla 
and 
beq 
cmp 
bne 
lda 
bne 
lda 
ora 
tax 
dex 
dex 
txa 
pha 
lda 
cmp 
bne 
lda 
sta 
pla 
jr 
jSE 
jmp 
pla 
Jjsr 
jsrt 
lda 
sta 
jsr 
jsr 
lda 
sta 
ldx 
txs 
lda 
and 
sta 
cmp 
beq 
sei 
lda 
bne 
lda 
bne 
ldx 
lda 
cmp 
beq 
and 
sta 
jmp 











506,x 
$80 
507,x 
s8l 


#S0£ 
$e625 
#S0£ 
$e627 
#574 
Se62d 
#506 
#520 











als Index 

Tracknummer aus Jobspeicher holen 
und für Ausgabe übernehmen 
Sektornummer aus Jobspeicher holen 
und für Ausgabe übernehmen 
Fehlernummer zurückholen 

auf Fehlernummer $10 prüfen 
verzweige, wenn Fehler $10 
auf Fehlernummer $0Of testen 
verzweige, wenn nein 

Nummer der Fehlermeldung 

unbedingter Sprung zu '74, DRIVE NOT READY' 
6 

plus 32 

nach X 

und 

minus 2 

ergibt $24 

Fehlernummer merken; '24, READ ERROR' 
ummer des auszufürenden Befehls 
VALIDATE? 

verzweige, wenn nein 

Befehlsnummer 

löschen 

Fehlernummer zurückholen 
Fehlermeldung in Puffer 

Diskette initialisieren 

weiter... 

Fehlernummer zurückholen 
Fehlermeldung in Puffer 

INPUT-Puffer löschen 

Flag für BAM auf Diskette schreiben 
löschen; Schreiben verhindern 
LED-Blinken aktivieren 
Lese-/Schreibkanäle schließen 

Zeiger in INPUT-Puffer 

löschen 

Stackpointer 

initialisieren 

übliche Sekundäradresse 

setzen 

und übernehmen 

mit 15 (Kommandokanal) vergleichen 
verzweige, wenn 15 

Diskcontroller abschalten 

Flag für LISTEN gesetzt? 

verzweige, wenn ja 

Flag für TALK gesetzt? 

verzweige, wenn ja 

Sekundäradresse 

zugehöriger Kanalstatus 

Kanal aktiv? 

verzweige, wenn nein 

Kanalnummer isolieren 

und übernehmen 

weiter... 
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Fehlerbehandlung bei TALK vom Bus. 
Kanal zum Lesen suchen 

Rest vom 

DOS V2.6 

1541 

unbedingter Sprung 


al 


Fehlerbehandlung bei LISTEN vom Bus. 

Kanal zum Schreiben suchen 

Rest vom 

DOS V2.6 

der 1541 

Filetyp holen 

relative Datei? 

verzweige, wenn ja 

alle Kanäle außer dem Kommandokanal freigeben 
1571 zurücksetzen; zur Warteschleife 





00 


00 
07 


01 


Ir 


e6 


e6 


#500 


#500 
Sebaa 


#501 


Se69£f 


Se6b4 


#50£ 
#530 
(Sa5),y 


Wandelt eine Hex-Zahl in eine Dezimalzahl um, 
Einsprung den Hex-Wert enthalten muß. Bei der 
enthält A das Ergebnis. 

Wert retten 
A initialisieren 

auf Dezimalrechnung umschalten 
Hex-Byte gleich 0? 

verzweige, wenn ja 

Im Akku wird nun 

der Wert durch 

schrittweises Addieren 

aufgebaut 

auf Binärrechnung umschalten 
Dezimalwert retten 

und 

viermal rechtsverschieben, um 

an den Wert des Hi-Nibbles 
heranzukommen 

Nibble in ASCII-Wert umwandeln 
Dezimalzahl zurückholen 

und Lo-Nibble ebenfalls 

in eine ASCII.Ziffer umwandeln 

und den Wert in den Puffer schreiben 
Pufferzeiger plus 1 

Ende 





cl 











Se6bc wird die OK-Meldung im Puffer generiert. 
Löschen des Fehlerstatus 

Code für OK-Meldung 

Parameterwert 0 

Track gleich 0 

Sektor gleich 0 


Puffer index auf Null 
Lo.Byte für Fehlerpuffer 
Adresse Lo setzen 
Hi-Byte für Fehlerpuffer 








wobei A beim 
Rückkehr 


Fehlermeldung in Fehlerpuffer schreiben. Bei Einsprung ab 
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e6 


02 
02 


e7 


e6 


e6 


02 





$a6 
Sebab 
#82c 
(Sa5),y 


$02d5 
50243 


$e706 
#82c 
(Sa5),y 


$80 
Se69b 
#82c 
(Sa5),y 


sel 
Se69b 


Adresse Hi setzen 

Se6ab Fehlernummer als ASCII in Puffer 
',' Komma 

in Puffer schreiben 

Zeiger erhöhen 

Hi-Anteil der ASCII-Fehlernummer 
für Ausgabe bereitstellen 
Fehlernummer 

Text der Fehlermeldung in Puffer 
',' Komma 

in Puffer 

Zeiger erhöhen 

Tracknummer 

in ASCII umwandeln und in Puffer 
',' Komma 

in Puffer 

Zeiger erhöhen 

Sektornummer 

in ASCII umwandeln und in Puffer 
Zeiger minus 1 

und 

Addition vorbereiten 

Länge der Fehlermeldung setzen 
und abspeichern 

Pufferadresse Lo auf zweites Byte setzen 
READY TO TALK Status 

setzen 

Ende 





e7 


e7 


e7 








86 
87 


#Sfc 
$86 
#S$e4 
587 


#500 
($86,x) 
Se73d 


$e775 
$e727 
$e775 
$e722 
$87 
#S$e6 
$e735 
$e739 
#50a 
$86 
$e739 


$e718 


Schreibt den Text für die Fehlermeldung aus der ASCII- 
Tabelle in de Fehlerpuffer. 
Fehlernummer retten 

Wert 

retten 

Wert 

retten 

Adresse Lo der Systemmeldungen 
setzen 

Adresse Hi der Systemmeldungen 
setzen 

Fehlernummer zurückholen 
Fehlernummer in 

Tabelle suchen 

verzweige, wenn gefunden 
Fehlernummer retten 

Bit 7 ins Carry; im Byte löschen 
verzweige, wenn nicht gesetzt 
Bit 7 ins Carry; im Byte löschen 
verzweige, wenn nicht gesetzt 
Zeiger in Tabelle Hi 

vergleiche mit $e6 

verzweige, wenn kleiner 
verzweige, wenn ungleich 

10 

vergleiche mit Zeiger Lo 
verzweige, wenn kleiner 
Fehlernummer zurückholen 

Suche fortführen 
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e739 68 pla Stack wiederherstellen 

e73a 4c 4d e7 jmp Se74d Parameter wieder zurückholen; Ene 

e73d 20 67 e7 jsr $e767 Zeichen holen; Bit 7 ins Carry 

e740 90 £b bec Se73d verzweige, wenn Bit 7 gelöscht 

e742 20 54 e7 jsr Se754 Zeichen in Fehlerpuffer schre;:- 

e745 20 67 e7 jsr $e767 Zeichen holen; Bit 7 ins Carry 

e748 90 £8 bcec $e742 verzweige, wenn Bit 7 gelöscht 

e74a 20 54 e7 jsr $e754 letztes Zeichen in Puffer schrei- 

e74d 68 pla Wert zurückholen 

e74e 83: 87 sta 587 wieder in Zwischenspeicher 

e750 68 pla Wert zurückholen 

e751 85 86 sta 586 wieder in Zwischenspeicher 

e753 60 rts Ende 

e754 Prüft auf Kontrollcodes oder ASCII-Codes; im Falle eines 
ASCII.Zeichens wird dieses in den Puffer geschrieben; 
ansonsten erfolgt die Übergabe des Codes in x. 

e754 c9 20 cmp #520 ' "SPACE 

e756 bo 0b bes $e763 verzweige, wenn größer 

e758 aa tax ASCII.Code merken 

e759 a9 20 lda #520 ' 1 SPACE 

e75b 91 a5 sta ($Sa5),y in Puffer schreiben 

e75d c8 iny Pufferindex erhöhen 

e75e 8a txa ASCII.Code zurückholen 

e75f 20 06 e7 jsr $e706 entsprechende Meldung ausgeben 

e762 60 rts Ende 

e763 91 a5 sta ($Sa5),y Zeichen in Fehlerpuffer schreiben 

e765 c8 iny Pufferindex erhöhen 

e766 60 rts Ende 

e767 Zeiger in Tabelle erhöhen und Byte aus der Tabelle holen. 
Bit 7 dieses Bytes in Carry. 

e767 e6 86 inc 586 Zeiger Lo erhöhen 

e769 do 02 bne Se76d verzweige, wenn kein Überlauf 

e76b e6 87 inc 587 sonst Zeiger Hi erhöhen 

e76d al 86 lda ($86,x) Zeichen aus ASCII.Tabelle holen 

e76£ 0a asl Bit 7 ins Carry.Flag schieben 

e770 al 86 lda ($86,x) Zeichen nochmal aus Tabelle 

e772 29 IE and #5 7£ Bit 7 im Zeichen löschen 

e774 60 rts Ende 

e775 Zeichen aus Fehlertabelle holen und Zeiger in Tabelle 
erhöhen. 

e775 20 6d e7 jsr Se76d Byte aus Tabelle; Bit 7 ins Carry 

e778 e6 86 inc 586 Zeiger Lo plus 1 

e771a d0 02 bne Se77e verzweige, wenn kein Überlauf 

e7Tc e6 87 inc 587 sonst Zeiger Hi ebenfals plus 1 

e77e 60 rts Ende 

e77f 60 rts Ende 

e780 Überrest einer AUTOBOOT.Routine, die in den älteren 
Versionen des DOS 2.6 der 1541 noch existierte. 

e780 60 rts bei Aufruf sofortiger Rücksprung 

e78l ea... nop mit NOP's aufgefüllter 

e7al ... ea nop Speicherbereich 

e7a2 60 rts Ende der ehemaligen AUTOBOOT.Routine 
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e7a3 

e71a3 4c fe a5 
e7a6 ea 

e7a7 ea 


e7bl 8d 78 02 


e7b8 20 Af cA4 


e7bb ad 80 02 


e7c2 20 c8 ci 


e71c6 8d. 78 02 
e7c9 ad 80 02 


e’ce ad 85 02 


e7d5 20 77 d4 


e7dc 20 39 e8 


e7el 20 4b e8 
eT7e4 20 39 e8 


e7e9 20 4b e8 


eif2 48 
e1fs a5 89 
©7125 48 


e7fa 20 39 e8 
e7£ff 20 4b e8 
e802 20 39 e8 


e809 20 4b e8 


eslb 20 35 ca 





&-Befehl ('"utility loader'). 
Sa5fe Erweiterung für 1571-Modus 
übriggebliebener 

Platzrest 

(RTS) 

Anzahl der Filenamen 

merken 

1 als neue Anzahl 

setzen 

Flag für Startadresse 

setzen 

File im Directory suchen 
Tracknummer des Files 
verzweige, wenn File gefunden 
Nummer der Fehlermeldung 

‘39, FILE NOT FOUND!" ausgeben 
Zahl der Filenamen zurückholen 
und wieder übernehmen 
Tracknummer des Files 
übernehmen 

Sektornummer des Files 
ebenfalls Übernehmen 

Code für Filetyp USR 

File öffnen; ersten Block lesen 
Prüfsumme mit Defaultwert 
vorbesetzen 
Byte aus Puffer holen 

und als Programmstartadresse Lo merken 
Wert zu Prüfsumme addieren 

Byte aus Puffer holen 

und als Programmstartadresse Hi merken 
Wert zu Prüfsumme addieren 

Startadressen Flag prüfen 

verzweige, wenn Adresse schon geholt 
Programmstartadresse Lo 

merken 

Programmstartadresse Hi 

merken 

Flag für Adresse geholt 

setzen 

Byte aus Puffer holen 

und als Anzahl der nachfolgenden Bytes merken 
Wert zu Prüfsumme addieren 

Byte aus Puffer holen 

Byte als Programmbyte 

abspeichern 

Wert zu Prüfsumme addieren 
Programmstartadresse Lo 

plus 1 

zeigt damit auf 

das nächste Byte 

verzweige, wenn kein Übertrag 

sonst auch Adresse Hi erhöhen 

Anzahl der Bytes vermindern 

und weitere Bytes holen, wenn nötig 

noch ein Byte holen; ohne Test auf EOI 
Datenbyte mit 
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e820 c5 87 cmp 587 Prüfsumme vergleichen 

e822 £0 08 beq Se82c verzweige, wenn Prüfsumme stimmt 

e824 20 3e de jsr Sde3e Parameter für Fehlermeldung an Diskcontroller 

e827 39.30 lda #550 Nummer der Fehlermeldung 

e829 20 45 e6 jsr Se645 '50, RECORD NOT PRESENT' ausgee- 

e82c as. 58 lda s£f8 auf EOI testen 

e82e d0 a8 bne Se7d8 weitermachen, wenn noch kein EOI 

e830 68 pla Programmstartadresse Hi zurückholen 

e83l 85..89 sta 589 und setzen 

e833 68 pla Programmstartadresse Lo zurückholen 

e834 85 88 sta 588 und ebenfalls setzen 

e836 6c 88 00 jmp (50088) Programm im Speicher ausführen 

e839 20 35 ca jsr $ca35 Byte aus Puffer; ohne Test auf EOI 

e83c a5 £8 lda Ss£8 EOI gesendet? 

e83e do 08 bne Se848 verzweige, wenn ja 

e840 20 3e de jsr Sde3e Parameter für Fehlermeldung an Diskcontroller 

e843 a9 51 lda #$51 Nummer der Fehlermeldung 

e845 20 45 e6 jsr $e645 '51, OVERFLOW IN RECORD' ausgeben 

e848 a5 85 lda 585 Datenbyte holen 

e84a 60 rts Ende 

e84b Prüfsumme bilden. 

e84b 18 clc Übertrag löschen 

e84c 65 87 adc 587 Byte zu Prüfsumme addieren 

e84e 69 00 adc #500 Übertrag addieren (0 oder 1) 

e850 85 87 sta 587 und Summe wieder abspeichern 

e852 60 rts Ende 

e853 IRQ-Routine für den seriellen Bus, die jedesmal ein 
eventuelles ATN vom Computer anzeigt. 

e853 ad 01 18 lda s1801 Port A (Buscontroller) lesen; IRO-Flag löschen 

e856 a9 01 lda #501 Flag für ATN 

e858 85 Tc sta S7c setzen 

e85a 60 rts Ende; zum IRQ-Programm 

e85b Routine zur Bedienung des seriellen Bus nach Auftreten 
eines ATN. 

e85b 78 sei Diskcontroller ausschalten 

e85c a9 00 lda #500 Löschen: 

e85e 85 Tc sta $7c Flag für ATN 

e860 85. 79 sta 579 Flag für LISTEN 

e862 85 7a sta 57a Flag für TALK 

e864 a2 45 ldx #545 Stackpointer 

e866 9a txs zurücksetzen 

e867 a9 80 lda #580 EOI-Flag 

e869 85 £8 sta s£f8 löschen 

e86b 85 7d sta $7d Flag für ATN-Modus setzen 

e86d 20 b7 e9 jsr $e9b7 CLOCK OUT Hi setzen 

e870 20 a5 e9 jsr Se9a5 DATA OUT Lo setzen 

e873 ad 00 18 lda s1800 Bus lesen 

e876 09 10 ora #510 Antwortleitung für ATN löschen 

e878 8d 00 18 sta 51800 und Signal auf Bus geben 

e87b ad 00 18 lda 51800 Bus lesen 

e8Te 10 57 bpl Se8d7 verzweige, wenn AIN zurückgesetzt ist 

e880 29 04 and #504 ATN noch vorhanden; CLOCK IN testen 

e882 do £7 bne $e87b warten, bis CLOCK IN Hi wird 

e884 20 c9 e9 jsr $e9c9I Kommandobyte vom Bus holen 





e887 c9 3£ cmp #S3£ UNLISTEN? 
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e889 
e88b 
e88d 
essf 
e891 
e893 
e895 
e897 
e899 
e89b 
e89d 
es8gf 
esal 
e8a3 
e8a5 
e8a7 
e8a9 
e8sab 
edad 
edaf 
e8bl 
e8b3 
e8b5 
e8b7 
e8b8 
e8ba 
edbc 
eöbe 
esbf 
escl 
e8c3 
e8c5 
e8c7 
e8c9 
edöchb 
edcd 
eöce 
esdl 
e8d2 
e8d5 
e8d7 
e8d9 
e8db 
eöde 
e8e0 
e8e3 
e8e5 
ede7 
edea 
eded 
edef 
esfl 
e8sf4 
e8f7 
esfa 
esfd 
esff 
e902 


18 


18 


18 


ea 
83 


e9 
e9 
e9 
ea 


18 
18 


bne 
lda 
sta 
beq 
cmp 
bne 
lda 
sta 
beq 
cmp 
bne 
lda 
sta 
lda 
sta 
beq 
cmp 
bne 
lda 
sta 
lda 
sta 
beq 
tax 
and 
cmp 
bne 
txa 
sta 
and 
sta 
lda 
and 
cmp 
bne 
cli 
jSE 
sei 
bit 
bmi 
lda 
sta 
lda 
and 
sta 
lda 
beq 
jSE 
jmp 
lda 
beq 
Jjsr 
jsr 
jSE 
jmp 
lda 
sta 
Sit 














verzweige, wenn nein 

Flag für LISTEN 

löschen 

unbedingter Sprung 

UNTALK? 

verzweige, wenn nicht 

Flag für TALK 

löschen 

unbedingter Sprung 

TALK-Adresse? 

verzweige, wenn nein 

Flag für TALK 

TALK setzen 

Flag für LISTEN 

löschen 

unbedingter Sprung 
LISTEN-Adresse? 

verzweige, wenn nein 

Flag für LISTEN 

setzen 

Flag für TALK 

löschen 

unbedingter Sprung 

Kommandobyte merken 

Bits 5 und 6 

testen 

verzweige, wenn ein Bit gesetzt ist 
Kommandobyte zurückholen 

als Befehlssekundäradresse merken 
reine Sekundäradresse isolieren 
und abspeichern 
Befehlssekundäradresse holen 

und Kommandobits isolieren 
CLOSE-Kommando? 

verzweige, wenn nein 
Diskcontroller wieder aktivieren 
CLOSE ausführen 

Diskcontroller inaktivieren 

ATN immer noch gesetzt? 

wieder versuchen, wenn ja 
ATN-Modus ist beendet 

Flag für ATN-Modus löschen 

Bus lesen 

Antwortsignal auf ATN setzen 

und senden 

Flag für LISTEN gesetzt? 
verzweige, wenn nein 

Daten vom Bus in den Puffer schreiben 
Busbehandlung für 1571-Erweiterung 
Flag für TALK gesetzt? 

verzweige, wenn nein 

DATA OUT Hi setzen 

CLOCK OUT Lo setzen 

Daten aus Puffer auf Bus ausgeben 
zurück zur Warteschleife 

alle Leitungen bis auf die ATN ACK (Antwort- 
leitung für ATN) löschen 

Bus prüfen 
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do 


ea 
e9 


e9 


ea 
e9 


ea 
e9 


ea 
e9 


e9 
ea 
e9 


e9 


02 


02 


e9 


e9 
e9 


bpl 
bmi 





$e8d7 
$e902 


$Se8d7 Ende, 
$e902 sonst 


verzweige, 
Kanalnummer 
Kanalstatus 
verzweige, 
Ende 

auf ATN-Sig 


Datenbit is 
und dessen 


Datenkit zu 
verzweige, 
auf ATN-Sig 


Datenkit is 
verzweige, 
Kanalnummer 
Kanalstatus 
auf EOI tes 
verzweige, 


auf ATN-Sig 
FOI senden; 
Datenkit is 





auf ATN-Sig 
DATA-Leitun 
Datenkit is 


CLOCK OUT a 
auf ATN-Sig 
DATA-Leitun 
Datenkit is 














setzen (Ber 
Datenkbit is 


verzweige, 
Kanalnummer 


verzweige, 


unbedingter 





wenn ATN nicht gesetzt 


warten, bis ATN zurückgesetzt wird 


Routine zum Senden von Daten auf den Bus, 
TALK-Kommandos vom Computer. 
Diskcontroller inaktivieren 

freien Kanal zum Lesen suchen 

wenn kein Kanal frei 


prüfen 


wenn Status ok 


nal prüfen 


warten, bis CLOCK IN Lo wird 


olieren 


als Folge eines 


Wertigkeit (Z-Flag=O oder 1) merken 


CLOCK OUT-Leitung auf Hi setzen 


rückholen 


wenn Bit gleich 0 war 


nal prüfen 


warten, bis CLOCK IN Lo wird 


olieren 


wenn Bit gleich 1 ist 


holen 
ten 
wenn kein EOI 


nal prüfen 


DATA-Leitung prüfen 


olieren 


auf Reaktion des Computers warten 


nal prüfen 
g prüfen 
olieren 


auf Reaktion des Computers warten 


uf Lo setzen 
nal prüfen 

g prüfen 
olieren 


auf Reaktion des Computers warten 
Zähler auf 8 Bits vom seriellen Bus 


Die folgenden Befehle senden das EOI zum Computer weiter: 


eitschaft, um ein Byte zu holen) 


Port zum seriellen Bus lesen 


olieren 


wenn Bit gesetzt 


Datenregister aus Tabelle 

Bit vom Bus ins Datenregister schieben 
und Registerinhalt wieder merken 

wenn Datenbit gleich 1 war 
DATA OUT-Leitung auf Lo setzen 


Sprung 


DATA OUT-Leitung auf Hi setzen 
CLOCK OUT-Leitung auf Hi setzen 
auf Busverzögerung prüfen 
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e97b d0 03 bne $e980 verzweige, wenn schneller Busbetrieb 

e97d 20 £3 fe jse Sfef3 sonst Verzögerung (für C64) 

e980 20 £b fe jsr Sfefb CLOCK OUT Lo und DATA OUT Hi setzen 

e983 c6 98 dec 598 Zähler für die Bits vom Bus vermindern 

e985 d0 d5 bne Se95c verzweige, wenn noch keine Bits auszugeben sind 

e987 20 59 ea sr Sea59 auf ATN-Signal prüfen 

e98a 20 c0 e9 jsr Se9c0 auf Antwort vom Computer testen 

e98d 23 91 and #501 Datenbit isolieren 

e98f £0 £6 beq Se987 auf Reaktion vom Computer warten 

e991 58 cli Diskcontroller aktivieren 

e992 20 aa d3 jsr Sd3aa nächstes Byte für Ausgabe bereitstelle, 

e995 78 sei Diskcontroller wieder inaktivieren 

e996 4c Of e9 jmp Se90f und Byte über den Bus senden (TALK) 

e999 4c 4e ea jmp Seade zurück zur Systemwarteschleife 

e99c DATA OUT-Leitung auf Hi setzen. 

e99c ad 00 8 lda s1800 Port lesen 

e99£f 29 Zd and #S$fd DATA OUT Bit löschen (entspricht Leitung Hi) 

e9al 8d 00 8 sta 51800 neuen Zustand auf Bus ausgeben 

e9a4 60 rts Ende 

e9a5 DATA OUT-Leitung auf Lo setzen. 

e9a5 ad 00 8 lda s1800 Port lesen 

e9a8 09 02 ora #502 DATA OUT Bit setzen (entspricht Leitung Lo) 

e9daa 8d 00 8 sta s1800 neuen Zustand auf Bus ausgeben 

e9ad 60 rts Ende 

e9ae CLOCK OUT-Leitung auf Lo setzen. 

e9ae ad 00 8 lda s1800 Port lesen 

e9bl 09 08 ora #508 CLOCK OUT Bit setzen (entspricht Leitung Lo) 

e9b3 8d 00 8 sta s1800 neuen Zustand auf Bus ausgeben 

e9b6 60 rts Ende 

e9b7 CLOCK OUT-Leitung auf Hi setzen. 

e9b7 ad 00 8 lda 51800 Port lesen 

e9ba 29-27 and #S$£7 CLOCK OUT Bit löschen (entspricht Leitung Hi) 

e9bc 8d 00 8 sta s1800 neuen Zustand auf Bus ausgeben 

e9bf 60 rts Ende 

eIc0 Wartet auf Antwortsignal vom Bus. 

eIc0 ad 00 8 lda 51800 Port lesen 

e9c3 cd 00 8 cmp 51800 konstanter Wert? 

e9c6 a0 £8 bne SeIc0 warten, bis ein konstanter Wert anliegt 

e9c8 60 rts Ende 

e9c9 Routine holt ein Datenbyte vom Bus als Folge eines LISTEN- 
Kommandos vom Computer. 

e9c9 a9 08 lda #508 Zähler für die Übertragung von 8 Bits 

e9Icb 833.298 sta 598 setzen 

eIcd 20 59 ea jsr Sea59 auf ATN-Signal prüfen 

e9d0 20. 2089 jr SeIc0 CLOCK IN-Leitung prüfen 

e9d3 29 04 and #504 CLOCK IN-Bit prüfen 

e9d5 do £6 bne SeIcd warten, bis Bit gleich 0 wird 

e9d7 20 9229 jsE Se99Ic DATA OUT-Leitung auf Hi setzen 

e9da a9 01 lda #501 255 Mikrosekunden Verzögerung 

e9dc 4c 20 ££f jmp Sff£20 durch Tirner setzen 

e9df 20 59 ea jsr Sea59 auf ATN-Signal prüfen 





e9e2 ad Od 18 lda s1804 Timerwert prüfen 
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e9 


e9 


e9 
ea 
e9 


18 


ea 


e9 


e9 





#540 
Se9f2 
Se9c0 
#504 
Segdf 
Sea0b 
Se9a5 
#50a 


Se9f£7 
Se99c 
Sea59 
Se9c0 
#504 
Se9fd 
#500 
s£8 
51800 
#501 


#502 
Sea0b 


Abfrage, ob EOI gesendet wurde 
verzweige, wenn ja 

CLOCK IN-Leitung prüfen 

CLOCK IN-Bit prüfen 

warten, bis Bit gleich 1 wird 
unbedingter Sprung 

DATA OUT auf Lo setzen; Antwortmeldung 
Verzögerung für Computer 

von ca. 50 Mikrosekunden 

ausführen 

DATA OUT Hi setzen 

auf ATN-Signal prüfen 

CLOCK IN-Leitung prüfen 

CLOCK IN-Bit isolieren 

warten, bis Bit gleich 1 wird 
EOI-Signal anzeigen 

Flag setzen 

Port vom seriellen Bus lesen 

Datenbit invertieren 

und ins Carry schieben 

vorheriges CLOCK IN-Bit auf Daten testen 
noch einmal, wenn Bit ungültig 
Speicherbereich, der 

durch Modifizierung des ROM 

in der 1541 entstand 

Datenbit in Register schieben 

auf ATN-Signal prüfen 

CLOCK IN-Leitung prüfen 

CLOCK IN-Bit isolieren 

warten, bis Bit gleich 1 wird 

Zähler für die 8 Bits vermindern 
weitermachen, wenn noch Bits zu holen sind 
DATA OUT-Leitung Lo setzen; Antwortsignal 
Datenbyte aus Zwischenspeicher holen 
Ende 





al 


ea 
e9 


c£ 
ea 


18 
83 
e8 


Holen von Daten über den seriellen Bus und Schreiben dieser 
Daten in den aktuellen Puffer. 
Diskcontroller inaktivieren 

freien Schreibkanal suchen 

verzweige, wenn kein Kanal frei 
Kanalstatus holen 

testen, ob Kanal inaktiv 

verzweige, wenn Kanal nicht aktiv 
Befehlssekundäradresse 

Kommando isolieren 

OPEN-Befehl? 

verzweige, wenn ja 

zurück zur Systemwarteschleife 

Datenbyte vom Bus holen 

Diskcontroller wieder aktivieren 

und Datenbyte in aktiven Puffer schreiben 
weitermachen; nächstes Byte holen 

Port für weiteren Signalempfang 

löschen 

zur erweiterten Behandlung für 1571-Betrieb 
zur Busbedienung bei ATN vom Computer 
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18 


Testet auf ATN-Modus. 

Flag für ATN-Modus gesetzt? 

Sea63 verzweige, wenn nein (kein ATN) 

Port zum seriellen Bus lesen 

verzweige, wenn kein ATN anliegt 

Ende 

Port zum seriellen Bus lesen 

verzweige, wenn kein ATN mehr 

zur 1571 oder 1541-Busbedienung (je nach Modus) 
zur 1571 oder 1541.Busbedienung (je nach Modus) 


00 


6£ 


lc 
fe 


Te 


Te 


Routine zur Behandlung von Hardwaredefekten oder Fehler 
beim Selbsttest. Wird ab $ea7l eingesprungen, so erfolgt 
die Blinkanzeige für einen Hardwaredefekt. Bei Einsprung ab 
Sea6be wird ein Prüfsummenfehler im ROM oder ein defektes 
RAM angezeigt. In allen Fällen blinkt die LED des Laufwerks 
und die Floppy wird gegen weiteren Betrieb durch 
Verriegelung abgesichert, bis der Schaden behoben worden 
ist. 

Wert 0 für Hardwaredefekt 

nächsten Befehl überspringen 


Fehlernummer für RAM oder ROM-Fehler 
Wert merken 

X-Inhalt zurückholen 

LED-Bit setzen 

und die LED am Laufwerk 

einschalten; Rückkehr mit JMP 
Verzögerung 

für Blinkbetrieb 

durch Additionen 

setzen; verzweige, wenn ungleich Null 
Verzögerungszähler Hi vermindern 

und weitermachen 

LED-Status holen 

LED-Bit löschen und 

LED dadurch ausschalten 

Verzögerung 

für Blinkbetrieb 

durch Additionen 

setzen; verzweige, wenn ungleich Null 
Verzögerungszähler Hi vermindern 

und weitermachen 

Fehlernummer ebenfalls vermindern 
durch fehlerspezifischen Blinkrhythmus 
der LED kann der Fehler optisch 
angezeigt und analysiert 

werden, da Floppybetrieb nicht mehr möglich 


ea59 

ea59 a5 
ea5b £O 
ea5d ad 
ea60 10 
ea62 60 
ea63 ad 
ea66 10 
ea68 4c 
ea6bb 4c 
eabe 

eabe a2 
ea70 Ze 
ea7l a6 
ea73 9a 
ea74 ba 
ea75 a9 
ea77 0a 
eala 4c 
ea7d 98 
eale 18 
eaTf 69 
easl d0 
ea83 88 
ea84 d0 
ea86 ad 
ea89 29 
easb sd 
eaßde 98 
easf 18 
ea90 69 
ea92 d0 
ea94 88 
ea95 d0 
ea97 ca 
ea98 10 
ea9a e0 
ea9c d0 
ea9e £O 
eaa0 

eaa0 78 
eaal d8 


sei 
cld 


RESET-Routine der Floppystation. Beim ersten Einschalten 
befindet sich die Floppy grundsätzlich im 1541-Modus und 
muß erst vom Computer in den 1571-Modus gebracht werden. 
Diskcontroller inaktivieren 

Prozessor auf hexadezimale Rechnung stellen 
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eaa2 a2 66 ldx #566 Wert für DDRA des Buscontrollers 

eaaf 46. 10 E££ jmp Sf£10 VIAs setzen; Zurück mit jmp $eaa7 

eaa?7 e8 inx X = $67 

eaa8 a0 00 ldy #500 Zähler für RAM-Test 

eaaa a2 00 ldx #500 vorbereiten 

eaac 8a txa Füllinhalt 

eaad 95:00 sta 500,x Zeropage löschen 

eaaf e8 inx nächste Speicherstelle 

eab0 a0 fa bne Seaac bis alles gelöscht 

eab2 8a txa Testwert für Speicherstellen 

eab3 d5 00 cmp 500,x mit Speicherstelle vergleichen 

eab5 d0 57 bne Seabe Fehler, wenn ungleich 

eab7 f6 00 inc 500,x Wert in Zeropageadresse erhöhen 

eab9 c8 iny Zähler für Testwert erhöhen 

eaba d0 f£fb bne Seab7 alle Werte durchprobieren 

eabc d5 00 cmp 500,x immer noch in Ordnung? 

eabe d0 ae bne Seabe verzweige zur Fehleranzeige, wenn nein 
eac0 94 00 sty 500,x Zähler merken 

eac2 b5 00 lda 500,x Zeropageadresse testen 

eac4 d0 a8 bne Seabe verzweige, wenn Fehler 

eac6 e8 inx nächste Adresse testen 

eac?7 d0 e9 bne Seab2 bis die gesamte Zeropage getestet wurde 
eac9 e6 6£f inc Ss6£f Zeiger für RAM/ROM-Test erhöhen 

each a2 80 1dx #580 128 Pages für Test 

eacd 86 76 stx 576 ROM-Startadresse Hi setzen 

eacf a9 00 lda #500 Startadresse Lo des ROM-Bereichs 

eadl 83.75 sta 575 ebenfalls setzen 

ead3 a0 02 ldy #502 Index auf 2 (erste zwei Bytes im ROM weglassen) 
ead5 18 (eike! da diese die Prüfsumme beinhalten 

ead6 e6 76 inc 576 Zeiger Hi plus 1 

ead8 #1. 15 adc ($75),y Speicherstelle addieren 

eada c8 iny nächstes Byte 

eadb do £b bne Sead8 weitermachen, wenn noch nicht alle addiert 
eadd ca dex nächste Page 

eade d0 £6 bne Sead6 weitermachen, wenn noch nicht alle addiert 
eae0 En. Er adc #S£ff Prüfsumme mit Obertrag ausgleichen 
eae2 85 76 sta 576 und merken 

eae4 d0 39 bne Seblf verzweige, wenn ungleich Null 

eae6 ea nop Speicherplatz, der 

eae7 ea nop durch Modifikation des 1541-ROM 

eae8 ea nop übriggeblieben 

eae9 ea nop ist 

eaea a9 01 lda #501 Adresse für RAM-Test (Page 1) 

eaec 85 76 sta 576 Adresse Hi setzen 

eaee e6 6£f inc Ss6£f Testzeiger plus 1 

eaf0 a2 07 1dx #507 7 Pages sind zu testen (bis $07££) 
eaf2 98 tya Testwert nach A 

eaf3 18 clc und 

eaf4 65 76 adc 576 Prüfwert für Speicher daraus bilden 
eaf6 9175 sta ($75),y Speicherstelle testen 

eaf8 c8 iny nächste Speicheradresse 

eaf9 do: <£7 bne Seaf2 eine Page mit Testwerten füllen 

eafb e6 76 inc 576 Zeiger Hi auf nächste Page 

eafd ca dex Pagezähler minus 1 

eafe d0 £2 bne Seaf2 weitermachen, wenn noch Pages zu testen sind 
eb00 a2 07 ldx #507 wieder 7 Pages 

eb02 c6 76 dec 576 diesmal von oben nach unten 


eb04 88 dey Index auf Speicherstelle einer Page 
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oo oa oo oo po oo op pop a po oa pp pa aa a op ap pa op po op aa a pa op pa ao oa op oa ao op oa a a op pa aa op aD DD m 








76 
75 
12 
££ 
75 
75 
75 
08 


ea 


e5 
03 
71 
co 
00 
£7 
00 
03 
0c 
82 
0d 
0e 
00 
60 


ea 
a7 


oo 





fe 


tya 
EiLc 
adc 
cmp 
bne 
eor 
sta 
eor 
sta 
bne 
tya 
bne 
dex 
bne 
beq 
jmp 
jmp 
lda 
and 
sta 
lda 
sta 
lda 
sta 
sta 
lda 
and 
asl 
rol 
rol 
rol 
ora 
sta 
eor 
sta 
ldx 
ldy 
lda 
sta 
inx 
lda 
sta 
inx 
iny 
cpy 
bne 
lda 
sta 
inx 
lda 
sta 
inx 
lda 
sta 
inx 
lda 
sta 
lda 








$76 
(S75),y 
Seblf 
#Sff 
(S75),y 
(S75),y 
(S75),y 
Seblf 


Seb04 


Seb02 
Seb22 
Sea7l 
Sa7c0 
$1c00 
Ss£7 

$1c00 
$03 

$180c 
82 

51804 
$180e 
51800 
$60 








#548 
$78 
#560 
577 
#500 
#500 
#500 
599,x 


Sfee0,y 
599,x 


505 
SebAf 
500 
599,x 


502 
599,x 


$d5 
399, 


502 
99,2 
S££ 








wieder den Prüfwert 

bilden 

und 

Speicherstelle mit Prüfwert vergleichen 

zur Fehleranzeige, wenn ungleich 

sonst Prufwert invertieren 

und in Speicherstelle 

Speicherstelle invertieren 

und noch einmal abspeichern (wieder alter Wert) 
verzweige, wenn Fehler 

nächster Prüfwert 

und weitermachen 

nächste Page testen 

weitermachen bis zur Zeropage 

unbedingter Sprung 

Sprung zum Fehlerblinken für Hardwaredefekte 
Stackpointer setzen; zurück mit jmp $eb25 
Port für Diskcontroller lesen 

LED-Bit löschen 
und LED damit ausschalten 

Interrupte;ngänge der VIA triggern 

ATN IN neg. und WRITE PROTECT auf pos. Flanke 
IRO-Anzeige im IFR 
setzen 

IROs im IER ermöglichen 

Port des Buscontrollers lesen 

Bits 5 und 6 für Gerätenummer 

isolieren und 

nach Bitposition 

0 und 1 schieben, um 

die ordnungsgemäße Geräteadresse 

für TALK zu erhalten 

Nummer für TALK merken 

Nummer für LISTEN herstellen 

und ebenfalls abspeichern 

Indexregister 

initialisieren, um 

die Lo-Bytes der Pufferadressen 

zu setzen 

nächste Speicherstelle 

Pufferadresse Hi 

setzen 

nächste Speicherstelle 

Zeiger für Pufferadresse 

schon alle 5 Adressen gesetzt? 

weitermachen, wenn nein 

sonst Lo-Byte des INPUT-Puffers 

setzen 

und 

Hi-Byte des INPUT-Puffers (gibt Adresse $0200) 
ebenfalls setzen 

nächste Speicherstelle: 

Lo-Byte des ERROR-Puffers 

setzen 

und 

Hi-Byte (ergibt Adresse S02d5) 

ebenfalls setzen 

Sff für Kanalstatus (heißt: Kanal nicht belegt) 
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eb74 a2 12 ldx #512 13 Speicherstellen 

eb76 94 2b 02 sta $022b,x Kanalstatus setzen 

eb79 ca dex nächste Kanalnummer 

eb7a 10 fa bpl Seb76 und weitermachen 

eb’c a2 05 ldx #505 5 Puffer 

eb7e 95 a7 sta Ssa7;,Xx als frei ($S££f heißt "Puffer frei') 

eb80 95 ae sta Sae,X deklarieren und diesen Status 

eb82 95 cd sta Scd,x in alle Puffertabellen eintragen 

eb84 ca dex nächste Puffernummer 

eb85 1.0: 3£4. bpl Seb7e und weitermachen 

eb87 a9 05 lda $05 Puffer Nummer 5 (INPUT-Puffer) 

eb89 85 ab sta Sab dem Kanal 4 zuordnen 

eb8b a9 06 lda 506 Puffer Nummer 6 (Fehlerpuffer) 

ebsd 85 ac sta Sac dem Kanal 5 zuordnen 

ebsf agn£R lda Sff Puffer 7 existiert nicht und ist 

eb91 85 ad sta Sad demzufolge 

eb93 85 b4 sta Sb4 unbenutzt und inaktiv 

eb95 a9 985 lda 505 Kanal für Fehlerpuffer 

eb97 8d 3b 02 sta 5023b wird zum Lesen benutzt 

eb9a a9 84 lda 584 Kanal für INPUT-Puffer ist 

eb9c 8d 3a 02 sta 5023a generell ein Schreibkanal 

eb9£f a9. OE lda Sof die Kanäle 0 bis 3 

ebal 8d 56 02 sta 50256 dienen dem allgemeinen Betrieb 

eba4 a9 01 lda sol Flag für 'READY TO LISTEN" 

eba6 85 «E sta sf6 setzen 

eba8 a9 88 lda 588 Flag für 'READY TO TALK" 

ebaa 85 £ sta Ssf7 setzen 

ebac a9 e0 lda Se0 Puffer 0 bis 4 (Bitmuster) 

ebae 8d 4£ 02 sta SO24£ freigeben 

ebbl a9 £ lda Ssff alle restlichen Puffer 

ebb3 8d 50 02 sta 50250 sind belegt 

ebb6 a9 01 lda so Flags für 

ebb8 85 © sta Sle Drivestatus und WRITE PROTECT 

ebba 85 d sta sid setzen 

ebbc 20 63 cb jsr $cb63 Sprungtabelle für USER-Befehle initialisieren 
ebbf 20 fa ce jsr Scefa Kanaltabelle initialisieren 

ebc2 20 82 Ff££ jsr sff82 Diskcontroller für 1541 und 1571 setzen 
ebc5 a9 22 lda 522 Zeiger für NMI 

ebc7 85 65 sta 565 auf 

ebc9 a9 eb lda Seb die Adresse $EB22 

ebcb 85 66 sta 566 setzen 

ebcd a9 06 lda 506 Sektorabstand beim Schreiben auf Diskette 
ebcf 85 69 sta 569 (engl. "sector interleave') auf 6 setzen 
ebdil a9 05 lda 505 Anzahl der Leseversuche (engl. 'retries') 
ebd3 85 6a sta S6a setzen 

ebd5 83:78 lda 573 Nummer der (Fehler-)Meldung 

ebd7 20 cl e6 jsr Se6cl ‘73, CBM DOS V3.0 1571' ausgeben 

ebda a9 00 lda s00 seriellen Bus 

ebdc 8d 00 18 sta 51800 initialisieren 

ebdf a9 la lda Sla Datenrichtungsregister für seriellen Bus 
ebel 8d 02 18 sta 51802 setzen 

ebe4 20 86 a7 jsr Sa786 Peripherie für 1571 (CIA und WD1770) setzen 
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ebe7 

ebe7 58 

ebe8 ad 00 18 
ebeb 29 e5 
ebed 8d 00 18 
eb£0 ad 55 02 
ebf3 £f0 0a 
eb£f5 a9 00 
ebf7 8d 55 02 
ebfa 85. 0% 
ebfc 4c 1c a6 
ebff 58 


ec04 4c b3 a7 


cli 
lda 
and 
sta 
lda 
beq 
lda 
sta 
sta 
jmp 
cli 
lda 
beq 
jmp 


51800 
#$e5 
51800 
50255 
Sebff 
#500 
50255 
$67 
Sa6lc 


$7c 
$Sec07 
$a7b3 


Eingang der Systemwarteschleife. Dieser Programmabschnitt 

wird solange durchlaufen, bis ein gültiger Befehl über den 
Bus kommt. Ansonsten befindet sich die Floppy in einer Art 
von Wartezustand, der nur durch ein ATN unterbrochen wird. 
Diskcontroller wieder aktivieren 

CLOCK, DATA und ATN ACK-Leitungen auf Hi 

setzen, um den Bus damit in einen 

definierten Zustand zu bringen 

Liegt ein Befehl vom Computer an? 

verzweige, wenn nein 

sonst wird das Kommandoflag gelöscht, zum 

Zeichen, daß der Befehl erkannt wurde 

NMI-Zustand löschen (ohne Belang!!!) 

Befehl analysieren und ggf. ausführen 

Diskcontroller wieder aktivieren 

ATN vom Bus eingetroffen? 

verzweige, wenn nein 

zur Bedienung bei aufgetretenem ATN 
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ec07 58 cli Diskcontroller wieder aktivieren 
ec08 a9 0e lda #50e maximale Sekundäradresse (14) für Files 
ec0a 85 72 sta 572 setzen (15 ist ja der Kommandokanal) 
ec0c a9 00 lda #500 Zähler für anliegende Jobs 

ec0e 85 6f sta Ss6£f für Drive 0 und 

ecl0 85 70 sta 570 für Drive 1 löschen 

ecl2 a6 72 ldx 572 Sekundäradresse für Files 

ecl4 bd 2b 02 lda 5022b,x entsprechenden Kanal auf aktiv 

ecl7 eI9. <EE cmp #S£ff prüfen 

ec19 £0 10 beq Sec2b verzweige, wenn Kanal inaktiv 

eclb 29 -3E and #S$3£ sonst Kanalnummer isolieren 

ecld 85 82 sta 582 und setzen 

eclf 20 93 d£ sr Sar93 zugehörige Puffernummer holen 

ec22 aa tax und als Index 

ec23 bd 5b 02 lda 5025b,x Drivenummer für entsprechenden Puffer 
ec26 29, 01 and #50 isolieren 

ec28 aa tax und als Index 

ec29 £ 6£ inc S6f,x Zähler für die Jobs erhöhen 

ec2b c6 72 dec 572 nächste Sekundäradresse 

ec2d 0 e3 bpl Secl2 untersuchen, falls noch nicht fertig 
ec2f a0 04 ldy #504 Index für Puffer 

ec3l b9 00 00 lda 50000,y Jobspeicher prüfen 

ec34 005 bpl Sec3b verzweige, wenn kein Job anliegt 
ec36 29 01 and #50 sonst Drivenummer isolieren 

ec38 aa tax und als Index nehmen 

ec39 f6 6£ inc Ss6f,x entsprechenden Jobzähler erhöhen 
ec3b 88 dey nächsten Puffer untersuchen 

ec3c 0 £3 bpl Sec3l bis auch Puffer 0 geprüft wurde 
ec3e 78 sei Diskcontroller inaktivieren 

ec3f ad 00 Ic lda S1c00 Steuerport des Diskcontrollers 

ec42 29 E17 and #S£7 LED-Bit löschen 

ec44 48 pha sonstigen Inhalt merken 

ec45 a5 7£ lda ST£ aktuelle Drivenummer 

ec47 85 86 sta 586 merken 

ec49 a9 00 lda #500 Drive 0 als neue Nummer 

ec4b 85 7£ sta STE setzen 

ec4d a5 6£ lda Ss6£f Jobzähler prüfen; liegen Jobs an? 
ec4f £f0O 0b beq Sec5c verzweige, wenn nein 

ec5l a5 Ic lda $lc wurde die Diskette gewechselt? 

ec53 £0 03 beq Sec58 verzweige, wenn nein 

ec55 20 13 d3 jsr $4d313 sonst alle Kanäle für Drive 0 schließen 
ec58 68 pla Wert für Steuerport zurückholen 
ec59 09 08 ora #508 und LED-Bit setzen 

ec5b 48 pha Wert wieder merken 

ec5c e6 T£ inc STE Drive 1 setzen 

ec5e a5 70 lda 570 liegen Jobs für Drive 1 an? 

ec60 £f0 0b beq Sec6d verzweige, wenn nein 

ec62 a5 1d lda sid wurde die Diskette gewechselt? 

ec64 £0: '03 beq Sec69 verzweige, wenn nein 

ec66 20 13 d3 jsr $4d313 alle Kanäle für Drive 1 schließen 
ec69 68 pla Wert für Steuerport zurückholen 
ec6ba 09 00 ora #500 (LED-Bit für Drive 1 setzen) n.v.!!! 
ec6c 48 pha Wert wieder merken 

ec6d a5 86 lda 586 Drivenummer für aktuelles Drive zurückholen 
ec6f 83 TE sta STE und wieder setzen 

ec7l 68 pla Wert für Steuerport zurückholen 


ec72 ae 6c 02 ldx 5026c Fehlerflag prüfen 
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lc 





verzweige, wenn kein Fehler 

sonst Steuerport lesen 

Fehlerflag auf neu erkannten Fehler testen 
verzweige, wenn ein neuer Fehler erkannt wurde 
sonst LED-Blinken des 'alten' Fehlers steuern 
Timer auslesen; ist die Blinkzeit abgelaufen? 
verzweige, wenn nein 

sonst den Timer 

neu setzen 

und den Fehlerzähler vermindern 

verzweige, wenn Zähler nicht abgelaufen 1s: 
sonst LED-Maske umdrehen 

und den Blinkzähler neu 

setzen 

LED-Status neu setzen 

weiter in der Systemwarteschleife 





al 


d4 


02 


df 


02 


er 


c£ 


c£ 


er 


02 


c£ 


Cr, 


ed 
af 


EE 


c£ 
c£ 
c6 


02 
c£ 
02 








Laden und Aufbereiten des Directory. 
interne Sekundäradresse auf 0 (LOAD) 
setzen 

einen 

Kanal suchen und Puffer belegen 
Pufferzeiger auf Null 

setzen 

Kanalnummer 

Endezeiger für Kanalnummer 

löschen 

Puffernummer für Kanal holen 

und als Index 

aktuelle Drivenummer 

in Tabelle schreiben 





$01l in den 
Puffer schreiben (Startadresse Lo) 
$04 in den 


Puffer schreiben (Adresse $0401 im Speicher) 
so 
zweimal in den Puffer 

schreiben (Dummy für BASIC-Interpreter) 
Drivenummer für Directory 

in den Puffer schreiben (1. Teil der Zeilennr.) 
zweiter Teil der Zeilennummer (für BASIC) 
ebenfalls in Puffer (gibt '0' als Zeilennummer) 
Diskettennamen in Puffer schreiben 

Puffernummer holen 

mal 2 

als Index 

Pufferzeiger 

minus 2 

500 als BASIC-Zeilenende in den Puffer 
schreiben (erste Directoryzeile fertig) 

$01 wieder zweimal in den Puffer, damit der 
BASIC-Interpreter daraus die echten Linker 
zwischen den BASIC-Zeilennummern macht 
Directoryeintrag holen 

verzweige, wenn kein Eintrag mehr 

sonst Blockzahl Lo 

in den Puffer 

Blockzahl Hi (des Fileeintrags) 
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c£ 
ed 


c£ 


af 


02 
00 





Sc£fl 
Sed59 
#500 

Sc£fl 
Secea 
SAf93 


#500 
599,8 
#588 


$82 


in den Puffer 

Directoryeintrag dahinter schreiben 

500 als Zeilenendekennzeicher 

in den Puffer 

verzweige, wenn Puffer noch nicht voll 
Puffernummer holen 

mal 2 

als Index 

Pufferzeiger auf Null 

setzen 

Flag für READY TO TALK setzen, damit der 
Computer den Directoryteil abholt; Kanalnummer 
Flag als Status für den Directorykanal 
und als Status allgemein setzen 
Datenbyte in Akku 

Ende 


Abschluß des Directory 'BLOCKS FREE'-Angabe herstellen. 


Blockzahl der Diskette Lo 

in Puffer schreiben 

Blockzahl der Diskette Hi 

in Puffer schreiben 

'BLOCKS FREE' dahinter in Puffer schreiben 
Puffernummer holen 

mal 2 

als Index 

Pufferzeiger 

minus 2 

dreimal $00 als 

Kennzeichen für BASIC-Programmende 

in den Puffer 

schreiben 

Puffernummer holen 

mal 2 

als Index 

Pufferzeiger Lo 

Kanalnummer 

Pufferzeiger als Endezeiger in den Puffer 
Endezeiger minus 1 ist Anzahl der Bytes 
Ende; Abschluß des Directory 


HZ 
c£ 





Directoryzeile in den Ausgabepuffer schreiben, 
Ausgabe an den Computer erfolgen kann. 

Zeiger auf erstes Zeichen 

Zeichen aus dem Directorypuffer 

in einen Programmpuffer schreiben 

nächstes Zeichen nehmen 

und ausgeben; Ende schon erreicht? 
weitermachen, wenn nein 

sonst Ende 


edO00 20 
ed03 20 
ed06 a9 
ed08 20 
edOb do 
edOd 20 
ed10 0a 
edil aa 
edl2 a9 
ed14 95 
edl16 a9 
ed18 a4 
edla sd 
edlid 99 
ed20 a5 
ed22 60 
ed23 

ed23 ad 
ed26 20 
ed29 ad 
ed2c 20 
ed2£ 20 
ed32 20 
ed35 0a 
ed36 aa 
ed37 d6 
ed39 d6 
ed3b a9 
ed3d 20 
ed40 20 
ed43 20 
ed46 20 
ed49 0a 
ed4a a8 
ed4b b9 
ed4e a6 
ed50 9A 
ed53 de 
ed56 4c 
ed59 

ed59 a0 
ed5b b9 
ed5e 20 
ed6l c8 
ed62 co 
ed64 {el} 
ed66 60 
ed67 

ed67 20 
ed6ba £O 


ed6c 60 


37 
01 


al 


$d137 
Sed6d 


damit die 


Byte aus Directory holen; ggf. nächsten Block von der 


Diskette nachladen. 

Byte aus Datei holen; ggf. Block nachladen 
verzweige, wenn Fileende erreicht 

Ende 
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ea 


02 


00 


ec 


$85 

82 
50244, y 
Sed7e 
#580 
s00f2,y 
$85 


Secea 


Datenbyte merken 
Kanalnummer als Index 
Endezeiger des Blocks holen 
verzweige, wenn Null 

Flag für EOI 

setzen 

Datenbyte holen 

Ende 

Endezeiger (0) merken 
Directoryzeile in Puffer schreiben 
Endezeiger zurückholen 

Ende 











VALIDATE-Befehl (V-Befehl). 
Drivenummer aus Befehlsstring holen 
Diskette initialisieren; BAM laden 
Flag für BAM 'dirty' 

setzen 

neue BAM im Puffer erzeugen 

neue BAM im Puffer erzeugen 

Flag für Suche nach gültigem Directoryeintrag 
setzen 

Eintrag in Directory suchen 
verzweige, wenn gefunden 

sonst Sektornummer 0 

für BAM setzen 

und Tracknummer 18 

ebenfalls für BAM setzen 
Directoryblöcke in der BAM belegen 
BAM 'dirty' Flag 

löschen 

BAM auf Diskette schreiben 
Diskstatus bereitstellen; Ende 





ed6d 85 
ed6£f a4 
ed7l b9 
ed74 £0 
ed76 a9 
ed78 99 
ed7b a5 
ed7d 60 
ed7e 48 
edT7£ 20 
ed82 68 
ed83 60 
ed84 

ed84 20 
ed87 20 
edsa a9 
ed8c 8d 
*]l ed8f20 
*0 ed8f20 
ed92 a9 
ed94 8d 
ed97 20 
ed9a d0 
ed9c a9 
ed9e 85 
eda0 ad 
eda3 85 
eda5 20 
eda8 a9 
edaa 8d 
edad 20 
edb0 4c 
edb3 

edb3 c8 
edb4 bl 
edb6 48 
edb7 c8 
edb8 bl 
edba 48 
edbb a0 
edbd bl 
edbf = 
edcl 85 
edc3 c8 
edc4 bl 
edc6 85 
edc8 20 
edcb 68 
edcc 85 
edce 68 
edcf 85 
eddil 20 
edd4 20 
edd7 £0 


94 





ed 


ed 
c6 





(894),y 


(894),y 


#513 
(594),y 
Sedcb 
$80 


(594),y 
ss8l 
Sede5 


sel 


$80 

Sede5 
$c604 
Sed9c 





Blöcke eines Files im Directory nacheinander durchgehen und 
auf Vorhandensein testen. Sind sie vorhanden, werden sie in 
der BAM belegt. 

nächste Position 

Tracknummer holen 

und merken 

Zeiger auf Sektor 

Sektornummer holen 

und merken 

19; Zeiger auf Side-Sektor-Block 

Track für Side-Sektor holen 

verzweige, wenn kein Side-Sektor vorhanden 
Tracknummer merken 

Zeiger auf Sektornummer 

Sektornummer des Side-Sektors holen 

und merken 

Side-Sektor-Blöcke als belegt kennzeichnen 
Sektornummer des Files zurückholen 

und wieder setzen 

Tracknummer zurückholen 

und ebenfalls setzen 

Blöcke des Files in der BAM belegen 
nächsten gültigen Fileeintrag holen 
verzweige, wenn kein Eintrag mehr vorhanden 
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edd9 a0 00 ldy #500 Zeiger auf Filetyp 

eddb bl 94 lda ($94),y Filetyp aus Puffer holen 

eddd 30 da bmi Sedb3 verzweige, wenn File geschlossen 

eddf 20 b6 c8 jsr $c8b6 sonst File löschen (SCRATCH) 

ede2 4c d4 ed jmp Sedd4 und weitermachen 

ede5 File anhand der Linkbytes in den Sektoren nachverfolgen und 
Blöcke in der BAM belegen 

ede5 20: 52.08 jsr Sa55f Track und Sektor prüfen 

ede8 20 90 ef jSE Se£f90 Block in der BAM als belegt kennzeichnen 

edeb 20 75 d4 jsr $d475 Kanal öffnen und Block lesen 

edee a9 00 lda #500 Pufferzeiger auf Null 

ed£0 20 c8 d4 jsr $d4c8 setzen 

edf3 20. 371 jsE $d137 Byte aus Puffer holen 

ed£f6 85 80 sta s80 und als Tracknummer merken 

edf8 2. 37 .dl jsr $d137 noch ein Byte aus Puffer holen 

edfb 85 81 sta sel und als Sektornummer merken 

edfd a5 80 lda s80 Tracknummer prüfen 

edff d0O 03 bne See04 verzweige, wenn noch ein Block folgt 

ee0l de: -2°E, :d2 jmp $d227 letzter Block im Puffer; Kanal schließen; Ende 

ee04 20 90 ef jsE Sef90 Block in der BAM belegen 

ee07 20 4d d4 jsr Sd44d nächsten Block lesen 

eelda 4c ee ed jmp Sedee und weitermachen 

ee0d NEW-Befehl (N-Befehl). 

ee0d 20 12 c3 jsr $c312 Driveparameter setzen 

eel0 a5 e2 lda Se2 Drivenummer holen 

eel2 10 05 bpl Seel9 verzweige, wenn Drivenummer ok 

eel4 a9 33 lda #533 Nummer der Fehlermeldung 

eel6 4c c8 ci jmp $Sc1lc8 '33, SYNTAX ERROR' ausgeben 

eel9 29 01 and #501 Drivenummer isolieren 

eelb 85 7£ sta STE und setzen 

eeld 20: Ic: -E£ SE Sf£f9c Drivestatus setzen und LED einschalten 

ee20 as IE lda ST£ Drivenummer 

ee22 0a asl mal 2 

ee23 aa tax als Index 

ee24 ac 7b 02 ldy 5027b Position der ID im Befehlsstring 

ee27 eo: "74 02 cpy 50274 wurde eine neue ID angegeben? 

ee2a £f0 la beq See46 verzweige, wenn nein 

ee2c b9 00 02 lda 50200,y erstes Zeichen der neuen ID 

ee2f 95 12 sta $12,x setzen 

ee3l b9 01 02 lda 50201,y zweites Zeichen der neuen ID 

ee34 95. 13 sta $13,x setzen 

ee36 20 07 d3 SE 54307 alle Kanäle schließen 

ee39 a9 01 lda #501 Track als Starttrack für die Formatierung 

ee3b 85 80 sta s80 setzen 

ee3d 20° 2E- \E£ jsr Sf£2E£ auf Format prüfen; Diskette formatieren 

*l ee404c 64 a7 jmp Sa764 BAM-Puffer löschen; Diskettenseite setzen 

*0 ee4020 05 £0 jsr S£f005 BAM-Puffer löschen 

ee43 4c 56 ee jmp See56 weiter... 

ee46 20 42 do jsr 5d042 Diskette initialisieren 

ee49 a6 7£ ldx STE Drivenummer 

ee4b bd 01 01 lda 50101,x Formatkennzeichen holen 

eede cd d5 fe cmp Sfed5 mit 'A' vergleichen 

ee5l £f0 03 beq See56 verzweige, wenn alles ok 

ee53 4c 72 d5 jmp $d572 ‘73, CBM DOS V3.0 1571' ausgeben 

ee56 20 c7 a7 Js? Sa7c7 neue BAM erzeugen (ein- oder zweiseitig) 


ee59 a5 £9 lda Ss£f9 Puffernummer 
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fe 


02 


c6 


fe 
01 


fe 


fe 


ef 





Sfe88 
599,x 
5027a 
#51b 
Sc66e 
#512 
STE 
Sfed5 
50101,x 


512,x 
(594),y 


513,x 
(594),y 


#532 
(894) ,y 


Sfed5 
(594),y 
#502 
(S6d),y 
Sfe85 
$80 
Sef93 
#501 
sel 
Sef93 
Seeff 
S£005 
#501 
#S£f 
(S6A),y 
5d464 
ssl 


als Index 
mal 2 
als Index 

Konstante 590; Position des Disknamens 
setzen 

Puffernummer holen 

27; Länge des Disknamens insgesamt 
Diskname in BAM-Puffer schreiben 

18 als Position der ID 

Drivenummer 

ASCII-Code für 'A'; 1541/1571 Format 
setzen 

Drivenummer 

mal 2 
als Index 

erstes Zeichen der ID 

in Puffer schreiben 

Index auf 19 

zweites Zeichen der ID 
ebenfalls in Puffer schreiben 
Zeiger auf 

21 
ASCII-Code für '2' 
in Puffer 

und 
ASCII-Code für 'A' 
ebenfalls in Puffer 
und 
an Position 2 noch einmal in Puffer 

18 (Tracknummer der BAM) 

setzen 

Block 18,0 in der BAM belegen 
Sektornummer 1 (erster Directoryblock) 
setzen 
Block 18,1 in der BAM belegen 
neue BAM auf Diskette schreiben 
BAM-Puffer löschen 

ersten Directoryblock mit 

Sff als Anzahl der Bytes 
herstellen 

Block auch auf Diskette schreiben 
Sektornummer auf 0 

Diskette initialisieren 

Block von Diskette lesen 
Diskstatus bereitstellen 

















ee5b a8 
ee5c 0a 
ee5d aa 
ee5e ad 
ee6l 95 
ee63 ae 
ee66 a9 
ee68 20 
ee6b a0 
ee6d a6 
ee6f ad 
ee72 9A 
ee75 8a 
ee76 0a 
ee77 aa 
ee78 b5 
ee7la 91 
ee’Ic c8 
ee7d b5 
eeT7f 91 
ee8l c8 
ee82 c8 
ee83 a9 
ee85 91 
ee87 c8 
ee88 ad 
ee8db 91 
eedd a0 
eesf 91 
ee91l ad 
ee94 85 
ee96 20 
ee99 a9 
ee9b 85 
ee9d 20 
eeal 20 
eea3 20 
eea6 a0 
eea8 a9 
eeaa 91 
eeac 20 
eeaf c6 
*] eebl 20 
*0 eeb1l20 
eeb4 4c 
eeb7 

eeb7 20 
eeba a0 
eebc a9 
eebe 91 
eec0 c8 
eecl 98 
eec2 91 
eec4 c8 
eec5 c8 
eec6 c8 
eec?7 a9 


6d 


00 


($6d),y 


($6d),y 


#500 


Neue BAM erzeugen. 
BAM-Puffer löschen 
Index in Puffer setzen 
18 
als Linkbyte für Directory in Puffer 
und 

1 

als Sektor für Directory 

Zeiger in Puffer 

plus 3 

auf Position 4 setzen 

Startwert für Eintragungen 
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eec9 85 6f sta Ss6£ 24 Bits für die Belegung 

eecb 85 70 sta s70 der Blöcke eines Tracks 

eecd 85 71 sta 571 reservieren 

eecf 98 tya Zeiger in BAM 

eedO0 4a lsr geteilt durch 4 

eedl 4a lsr ergibt Tracknummer der Eintra,; 

eed2 20 4b £2 jsr Sf24b maximale Anzahl der Sektoren des Tracks holen 

eed5 91 6d sta ($6d),y und in BAM-Puffer 

eed7 c8 iny Zeiger plus 1 

eed8 aa tax Anzahl der Sektoren als Zähler setzen 

eed9 38 sec Bitmuster der 

eeda 26 6£ rol Ss6£f belegten Blöcke 

eedc 26 70 rol s70 eines Tracks 

eede 26 71 rol s71 erzeugen 

eee0 ca dex nächster Sektor des Tracks 

eeel do £6 bne Seed9 und weitermachen 

eee3 b5: :6£ lda S6f,x jetzt: 

eee5 91 6d sta ($6d),y die Blockbelegungen aus dem Zwischenspeicher 

eee7 c8 iny in die BAM 

eee8 e8 inx übertragen; 

eee9 e0 03 cpx #503 insgesamt drei Bytes 

eeeb 90 £6 bec Seee3 weitermachen 

eeed c0 90 cpy #590 schon Ende der BAM erreicht? 

eeef 90 d6 bec Seec?7 nächster Track, wenn nein 

eefl 4c 75 do jmp 54075 Anzahl der 'BLOCKS FREE' berechnen und eintragen 

eef4 BAM auf Diskette schreiben, wenn sie im Puffer geändert 
wurde (BAM 'dirty'). 

eef4 20 93 df jsr $sAf93 Puffernummer holen 

eef7 aa tax und als Index 

eef8 bad’ ‚5b 102 lda 5025b,x Jobcode für Puffer holen 

eefb 29> 01 and #501 Drivenummer isolieren 

eefd 83, 7E sta STE und übernehmen 

eeff ad 7£ ldy STE Drivenummer als Index 

ef£fol b9 51 02 lda 50251,y zugehöriges BAM 'dirty' Flag gesetzt? 

ef£f04 do 01 bne Sef07 verzweige, wenn ja 

ef£f06 60 rts sonst Ende; BAM in Ordnung 

e£07 a9 00 lda #500 'dirty' Flag 

ef£f09 99.51 ..02 sta 50251,y löschen 

ef0c 20 3a ef jsr Sef3a Pufferzeiger für BAM setzen 

ef0f ads. TE lda STE Drivenummer 

efll 0a asl mal 2 

efl2 48 pha merken 

ef13 20.83.7808 jSE Sf0a5 Eintragungen (Drive 0) holen 

ef16 68 pla Drivenummer mal 2 zurückholen 

efl7 18 elc und 

ef18 69 01 adc #501 plus 1 

efla 20 a5 £0 jsE S£f0a5 Eintragungen (Drive 1) holen 

efld a5 80 lda s80 Tracknummer 

eflf 48 pha merken 

ef20 a9 01 lda #501 Track 1 

ef22 85 80 sta s80 setzen 

ef24 0a asl l mal 4 

ef25 0a asl ergibt 4 als 

ef26 85 6d sta S6d Anzahl der Bytes pro Track in der BAM 

*1 ef2820 37 a9 jsr $a937 Anzahl der 'BLOCKS FREE' in der BAM prüfen 

*0 ef2820 20 £2 jsr sf220 Anzahl der 'BLOCKS FREE' in der BAM prüfen 

ef2b e6 80 inc s80 Tracknummer plus 1 
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ef2d a5 80 lda s80 Tracknummer 

*l ef2£fcd ac 02 cmp S02ac schon Maximalwert (36,72) erreicht? 

*0 ef2£fcd d7 fe cmp Sfed7 schon Maximalwert (36) erreicht? 

ef32 90 £0 bec Sef24 verzweige, wenn nein 

ef34 68 pla Tracknummer zurückholen 

ef35 85 80 sta s80 und wieder setzen 

*l ef374c 8d a5 jmp Sa58d BAM auf die Diskette schreiben; Ende 

*0 ef374c 8a d5 jmp $Sd58a BAM auf Diskette schreiben; Ende 

ef3a BAM, falls notwendig, lesen und Zeiger auf BAM setzen. 

ef3a 20 0£ £1 jsr S£1l0£ Kanalnummer für BAM (6) holen 

ef3d aa tax als Index 

ef3e 20 d£f £0 jsr Sf0df zugehörigen Puffer belegen 

ef4l a6 £9 ldx s£f9 Puffernummer als Index 

ef43 ba e0 fe lda Sfee0,x Pufferadresse Hi holen 

ef46 85 6e sta S6e und setzen 

ef48 a9 00 lda #500 Pufferadresse Lo (0) 

ef4a 85 6d sta S6d setzen 

ef4c 60 rts Ende 

ef4d Anzahl der freien Blöcke auf Diskette aus $02fa und $02fc 
holen. 

ef4d a6 7£ ldx ST£ aktuelle Drivenummer 

ef4f bda fa 02 lda 502fa,x Anzahl der Blöcke Lo 

ef52 8d 72 02 sta 50272 übernehmen 

ef55 bd fc 02 lda S02£c,x Anzahl der Blöcke Hi 

ef58 8d 73 02 sta 50273 übernehmen 

ef5b 60 EtS Ende 

ef5c Block in der BAM freigeben. 

ef5c 20 fl ef jsr Seffl BAM schreiben, wenn "dirty! 

*l ef5£f4c 3e a8 jmp Sa83e Zeiger für 1541 holen; 1571 Block freigeben 

*0 ef5f20 cf ef jsr Sefcf Zeiger in BAM holen 

ef62 38 sec Flag für Block frei setzen 

ef63 d0 22 bne Sef87 verzweige, wenn Block schon frei 

ef65 bl 6d lda ($6d),y Bitmuster für Block holen 

ef67 ld e9 ef ora Sefe9,x Block als frei kennzeichnen 

ef6ba 91 6d sta ($6d),y und Bitmuster wieder abspeichern 

ef6c 20 88 ef jsr Sef88 BAM 'dirty' Flag setzen 

ef6f ad 6f ldy Ss6£f Zeiger auf Zahl der BLOCKS FREE pro Track 

ef7l 18 ale Addition vorbereiten 

ef£f72 bl 6d lda ($6d),y Anzahl der freien Blöcke pro Track 

e£f74 69 01 adc #501 plus 1 

e£f76 91 6d sta ($6d),y und wieder abspeichern 

ef£f78 a5 80 lda s80 Tracknummer 

ef7la cd 85 fe cmp Sfe85 mit 18 vergleichen (Directorytrack) 

ef£f7d £0.. 3b beq Sefba übergehen, wenn Track 18 

ef7£f fe fa 02 inc 502£fa,x Anzahl der BLOCKS FREE erhöhen 

ef82 d0O 03 bne Sef87 verzweige, wenn kein Überlauf 

ef84 fe fc 02 inc Sso2£fc,x sonst auch Zahl Hi erhöhen 

ef87 60 rts Ende 

ef88 Flag für BAM geändert ('dirty' Flag) setzen. 

ef88 ab 7£ ldx ST£ aktuelle Drivenummer 

ef8a a9. 91 lda #501 'dirty' Flag 

ef8c 94 51 02 sta 50251,x setzen 

efsf 60 rts Ende 
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ef90 Block in der BAM als belegt kennzeichnen. 

ef90 20 fl ef jsr Se£ffl BAM schreiben, wenn "dirty"! 

*]l ef934c 74 a8 jmp $a874 Zeiger holen (1541); Block belegen (1571) 

*0 ef9320 cf ef sr. Sefcf Zeiger in BAM holen 

ef96 £f0O 36 beq Sefce verzweige, wenn schon belegt 

ef98 bl 6d lda ($6d),y Byte mit Bitmuster des Blocks holen 

ef9a 5d e9 ef eor Sefe9,x Bit des Blocks löschen (Block belegt) 

ef9d 91 6d sta ($6d),y Bitmuster wieder abspeichern 

ef9£f 20 88 ef Bir Sef88 BAM 'dirty' Flag setzen 

efa2 a4 6£f ldy Ss6£ Zeiger auf Anzahl der BLOCKS FREE pro Track 

efa4 bl 6d lda ($6d),y Anzahl der freien Blöcke des Tracks holen 

efa6 38 sec und 

efa7 e9 01 sbc #501 einen Block abziehen 

efa9 91 6d sta ($6d),y Wert wieder abspeichern 

efab a5 80 lda 580 Tracknummer 

efad cd 85 fe cmp Sfe85 gleich 18 (Directorytrack)? 

efb0 m 0b beq Sefbd übergehen, wenn ja 

efb2 bd fa 02 lda So2fa,x sonst Anzahl der BLOCKS FREE Lo 

efb5 d0 03 bne Sefba verzweige, wenn ungleich 0 

efb7 de fc 02 dec S02£c,x Anzahl Hi minus 1 

efba de fa 02 dec 502£fa,x Anzahl Lo minus 1 

efbd bd £c 02 lda S02£c,x Anzahl der BLOCKS FREE Hi 

efcO do 0c bne Sefce verzweige, ungleich Null 

efc2 ba fa 02 lda 502£fa,x Anzahl der BLOCKS FREE Lo 

efc5 c9 03 cmp #503 kleiner 3? 

efc7 b0O 05 bcs Sefce verzweige, wenn nein 

efc9 a9 72 lda #572 Nummer der Fehlermeldung 

efcb 20 c7 e6 jsr Se6c7 '72, DISK FULL' ausgeben 

efce 60 rts Ende 

efc£ Berechnet den Index in die BAM, der für den entsprechenden 
Block zuständig ist. Bei der Rückkehr zeigt das Zero-Flag 
den Zustand des gewünschten Bits an: 1 = Block belegt 0 = 
Block frei. 

efcf 20 11 £0 jsr s£oll Bitmuster für Track in der BAM suchen 

efd2 98 tya Zeiger auf Bitmuster in Y 

efd3 85 6f sta Ss6£ Zeiger merken 

efd5 a5 81 lda sel Sektornummer 

efd7 4a Isr geteilt durch 8 

efd8 4a lsr ergibt das für den Block zuständige 

efd9 4a lsr Byte in der BAM (0 bis 2) 

efda 38 sec plus Carry 

efdb 65 6£ adc Ss6£ plus Zeiger auf Anfang der Bitmap 

efdd a8 tay ergibt Zeiger auf zuständiges Byte 

efde a5 81 lda sel Sektornummer 

efe0 29- 07 and #507 Nummer des zuständigen Bits holen 

efe2 aa tax und als Index 

efe3 bl 6d lda ($6d),y Byte aus BAM holen 

efe5 3d e9 ef and Sefe9,x zuständiges Bit löschen (Block belegen) 

efe8 60 rts Ende 

efe9 Tabelle der Bitmasken für jedes Bit 





efe9 01 02 04 08 10 20 40 80 eines Bytes (Zweierpotenzen). 
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E£3 ze 2 02 








($6d),y 


sf00b 


BAM bei Bedarf auf Diskette schreiben 
Flag für BAM schreiben 

prüfen 

verZlo/e i gen 

wenn Flag nicht 

gesetzt ist 

Flag für BAM schreiben 

löschen 

BAM auf Diskette schreiben 

BAM auf Diskette schreiben 


Puffer für BAM löschen. 
BAM-Zusatzpuffer für 1571 löschen 

BAM lesen; Zeiger setzen 

Zeiger setzen 

Akku = 0 

Speicherstelle löschen 

nächste Speicherzelle 

und weitermachen, bis Puffer gelöscht 
Ende 








£00a 98 
£00b 31. 68 
£00A c8 
£00e do £b 
£010 60 
£o11l 

£o1ll a5 6£ 
£013 48 
£014 a5 70 
£016 48 
£017 4c 25 aa 
fola ea 


£olf 20 48 e6 
£022 20. DE Ei 


£027 8a 
£028 0a 
£029 83 20 
£02b aa 


£02e dd 9d 02 


£036 dd 9d 02 


£03b 20 5b £O 


£040 as: IE 
£042 94 9b 02 
£045 0a 

£046 0a 

£047 18 

£048 69 al 
£04a 85 6d 
£04c a9 02 
£04e 69 00 





FH 
oO 
0 
oO 
oo 
0 
fo) 
® 


BAM-Maske im Puffer erzeugen. 
Parameter 

retten 

Parameter 

retten 

Drivestatus holen 

freier Platz 

verzweige, wenn Drivestatus ok 
sonst Nummer der Fehlermeldung 
‘74, DRIVE NOT READY' ausgeben 
Puffer- und Kanalnummer holen 
Kanalnummer setzen 
Puffernummer 

mal 2 

merken 

als Index 

aktuelle Tracknummer 

gleich Track für BAM? 
verzweige, wenn ja 

nächsten Kanal (Alternative) 
merken 

Track jetzt ok? 

verzweige, wenn ja 

BAM herstellen 

Kanalnummer 

Drivenummer 

merken, daß BAM wiederhergestellt 
Kanalnummer 

mal 4 

und 

plus 161 

ergibt Zeiger auf Bitmap Lo 
Übertrag des Ergebnisses 
addieren 

und Zeiger auf Bitmap Hi merken 
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00 


70 


6£ 


ldy 
pla 


#500 


s70 


s6f 


Index löschen 
Parameter wieder holen 
und abspeichern 
Parameter wieder holen 
und abspeichern 

Ende 


80 


39 


£0 


02 


£0 


02 








($99,x) 
$502al,y 
#500 
(599,x) 
599,x 


#503 
S£OTE 
s70 
$80 
5029d,x 
s02f9 
sfo9f 
Sa58d 
$d58a 
#580 
s02f9 


BAM-Masken im Puffer vertauscrer. 
$S6f Kanalnummer holen 

BAM lesen 

Drivenummer 

als Index 

mal 2 

mit Flag verknüpfen 

Bit 0 invertieren 

und isolieren 

Wert merken 

Bitmuster in BAM schreiben 
Puffernummer 

mal 2 

als Index 

aktuelle Tracknummer 

mal 4 

und 

als Pufferzeiger setzen 
Bitmuster zurückholen 

und 

mal 4 nehmen 

als Index 

Wert aus Puffer holen 

und merken 

bisherigen Wert 

löschen 

Pufferzeiger erhöhen 

Index erhöhen 

und 

die Bits 0 und 1 isolieren 
verzweige, wenn ungleich Null 
Bitmuster zurückholen 
Tracknummer 

merken 

BAM 'dirty' Flag testen 
verzweige, wenn BAM ok 
sonst BAM auf Diskette schreiben 
BAM auf Diskette schreiben 
BAM 'dirty' Flag 

setzen; BAM nicht ok 

Ende 





02 


02 


aske der BAM in die richtige Position im Speicher bringen. 
Wert merken 

aske für BAM aus Zwischenspeicher holen 

verzweige, wenn BAM nicht im Speicher 

Wert merken 

Flag für BAM im Speicher 

setzen 

Puffernummer 
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99 


02 


02 





s99,x 


$S02al,y 
($99,x) 
#500 
$S02al,y 
599,x 


#503 
sfObe 


mal 2 

als Index 

Wert zurückholen 
und 
mal 4 nehmen 

als Pufferzeiger Lo setzen 
Einsprungert zurückholen 
und 
mal 4 nehmen 

als Index nehmen 

Wert aus Zwischenspeicher 

als Pufferzeiger setzen 
Zwischenspeicher 

löschen 

Pufferzeiger erhöhen 

Index erhöhen 

vom Index 

die Bits 0 und 1 isolieren 
verzweige, wenn ungleich Null 
Ende 





02 


02 





Tracknummer für BAM auf Null setzeno 
Drivenummer 

mal 2 
als Index 
Tracknummer 

löschen 

und 

noch einmal löschen 
Ende 





£0b3 0a 
£0b4 aa 
£06b5 68 
£0b6 0a 
£06b7 0a 
£0b8 95 
£0ba 98 
£0bb 0a 
£fObc 0a 
£fObd a8 
£fO0be b9 
£0c1 8l 
f0e3 a9 
Eles 99 
£0c8 £6 
£f0ca c8 
£fOch 98 
fOcc 29 
£Oce d0 
£0d0 60 
£0dl 

£odl a5 
£043 0a 
£0d4 aa 
£0d45 a9 
£047 9A 
fOda e8 
£0db 9A 
£f0de 60 
£fOd£ 

fOdf b5 
£f0el e9 
£0e3 d0 
£0e5 8a 
£0e6 48 
£0e7 20 
f0ea aa 
£f0eb 10 
f0ed a9 
£f0ef 20 
£O£2 86 
£of4 68 
£0£5 a8 
£O£f6 8a 
£O£f7 09 
£0£9 99 
fOfc 0a 
fOfd aa 
fOfe ad 
£101 95 
£103 a9 
£105 95 
*1 £1074c 
*0 £1074c 


d2 


cl 


00 


fe 


a6 


#580 
500a7,y 


Sfe85 
506,x 
#500 

507,x 
$a667 
54586 


BAM von Diskette lesen, sofern nötig. 
Puffernummer 

Puffer frei? 

verzweige, wenn nein 
Kanalnummer 

merken 

freien Puffer suchen 
Puffernummer 

verzweige, wenn Puffer gefunden 
Nummer der Fehlermeldung 

'70, NO CHANNEL' ausgeben 
Puffernummer setzen 
Kanalnummer zurückholen 

und als Index 

Puffernummer 

Puffer als belegt kennzeichnen 
und als Status in Tabelle 
Puffernummer mal 2 

als Index 

18, Track für BAM 

in Jobspeicher 

0, Sektor für BAM 

in Jobspeicher 

BAM von Diskette lesen 

BAM von Diskette lesen 
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#S0f 
sf9 


Puffernummer isolieren 
und abspeichern 
Ende 


Kanalnummer für Bearbeitung der BAM in den Akku holen. 
Kanalnummer 6 

Drivenummer 

verzweige, wenn Null 

Kanalnummer 

plus Puffernummer 

ergibt 13 (Kanal für BAM); Ende 


Kanalnummer für BAM holen und in X übergeben. 
Kanalnummer holen 

und nach X 

Ende 











£l0a 29 
£l0c 85 
£fl0e 60 
£10£ 

£10£ a9 
£1ll a6 
£113 d0 
£115 18 
£116 69 
£118 60 
£119 

£119 20 
fllc aa 
£flld 60 
flle 

flle 20 
£121 a9 
£123 85 
£125 a9 
£127 0d 
fl2a 8d 
*1l £l2d4c 
*0 £12da5 
*0 £12£48 
£130 20 
2133 68 
£134 85 
£136 bl 
£138 d0 
£fl3a a5 
£fl3c cd 
£13£ £0 
£14 90 
£143 e6 
£145 a5 
*1 £l47cd 
*0 £fl47cd 
fl4a d0 
£fl4c ae 
£l4£ ca 
£150 86 
£152 a9 
£154 85 
£156 c6 
£158 d0 
£1l5a a9 
et 20 
£iSE c6 
£161 d0 
£163 ae 
£166 e8 
£167 86 


£0 


fe 


02 
fe 


fe 


cl 


fe 








it der Angabe der aktuellen Track- und Sektornummer sucht 
diese Routine nach dem nächsten verfügbaren Sektor. 
Track und Sektor holen 

Zählwert 

setzen 

Bit 1 als Flag für BAM nicht auf Diskette 
schreiben 

setzen 

Zählwert und ggf. Bitmuster aus BAM holen 
aktuellen Zeiger in BAM 

merken 

richtiges Bitmuster in BAM holen 

Zählwert zurückholen 

und wieder merken 

Anzahl der freien Blöcke des Tracks 
verzweige, wenn noch Blöcke frei 
Tracknummer 

mit 18 (Directorytrack) vergleichen 
verzweige, wenn gleich 

verzweige, wenn kleiner 18 

Tracknummer plus 1 

[racknummer 

mit höchster Nummer vergleichen 

mit höchster Nummer vergleichen 
verzweige, wenn ungleich 

8; Directorytrack 

minus 1 

setzen 

Sektor 0 

setzen 

Zählwert vermindern 

weitersuchen, wenn ungleich Null 

sonst Nummer der Fehlermeldung 

‘72, DISK FULL' ausgeben 

Tracknummer minus 1 

weitermachen, wenn noch nicht Null 

18; Directorytrack 

plus 1 

als Tracknummer setzen 
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£169 a9 00 lda #500 Sektor 0 

£fl6b 85 81 sta sel setzen 

£fl6d c6 6£ dec Ss6f Zählwert vermindern 

£l6£ d0 be bne sfl2d weitermachen, wenn noch nicht Null 

£171 £f0O e7 beq sfl5a unbedingt; '72, DISK FULL' ausgeben 

££73 Optimalen nächsten Sektor der aktuellen Spur ausfindig 
machen. 

£173 a5 81 lda sel Sektornummer 

£175 18 eLc und 

£176 65 69 adc 569 Schrittweite (normal 6) addieren 

£178 85 81 sta sel neue Sektornummer merken 

£1l7a a5 80 lda s80 Tracknummer 

£LTE 20 4b £2 jsr Sf24b dazu maximale Sektornummer holen 

£1T7f 8d 4e 02 sta S024e und merken 

£182 8d Ad 02 sta s024d zweimal! 

£185 c5 81 cmp sel mit neuer Sektornummer vergleichen 

£187 b0O 0c bes $£195 verzweige, wenn größer gleich 

£189 38 sec und 

fl8a a5 81 lda sel aktuelle Sektornummer 

£fl8c ed 4e 02 sbc S024e minus maximale Sektornummer 

£18f 85 81 sta sel setzen 

£191 £0:.:02 beq $£f195 verzweige, wenn gleich 

£193 c6 81 dec sel Sektornummer minus 1 

£195 20 fa £1 jsr sflfa ggf. anderen freien Sektor suchen 

£198 £0 03 beq Sf1l9A verzweige, wenn kein Sektor der Spur frei 

£f19a 4c 90 ef jmp Sef90 sonst Block in BAM belegen; Ende 

£19d a9 00 lda #500 Sektornummer 0 

£19f 85 81 sta sel setzen 

£flal 20 £a £l jsr sflfa wiederum freien Sektor suchen 

fla4 a0 f£4 bne sfl9a verzweige, wenn gefunden 

£fla6 4c £5 £1 jmp Sflf£5 '71, DIR ERROR' ausgeben; Ende 

£fla9 Nächsten optimalen Sektor suchen und belegen. 

£fla9 a9 01 lda #50 Flag für BAM nicht schreiben 

flab 0d £9 02 ora so2£f setzen 

flae 8d £9 02 sta so2£ und abspeichern 

£libt a5 86 lda 586 Zwischenspeicherwert 

£1b3 48 pha retten 

£lb4 a9 01 lda #50 Zählwert für Tracknummern 

£1b6 85 86 sta 586 setzen 

£f1b8 ad 85 fe lda Sfe85 18; Directorytrack 

£flbb 38 sec minus 

£flbc e5 86 sbc 586 Zähler für Tracks 

£flbe 85 80 sta S80 Ergebnis merken 

£lc0O 90 09 bec Selch verzweige, wenn Zähler kleiner 18 

£flc2 £0O 07 beq Sflchb verzweige, wenn Zähler gleich 18 

*1 £lc44c 05 a9 jmp Sa905 richtiges Bitmuster in BAM holen 

*0 £lc420 11 £0 jsE s£oll Zeiger in BAM setzen 

£fle7 bl 6d lda ($6d),y Zahl der freien Blöcke des Tracks 

£1lc9 d0O 1b bne Sfle6 verzweige, wenn noch Blöcke frei 

£flcb ad 85 fe lda Sfe85 18; Directorytrack 

flce 18 Ele plus 

£flc£ 65 86 adc 586 Zähler für Tracks 

£fld 85 80 sta s80 als Tracknummer merken 

£1d3 e6 86 inc 586 plus 1 

*1 £fld5cd ac 02 cmp S02ac mit höchster Tracknummer vergleichen 

*0 fld5cd d7 fe cmp Sfed7 mit höchster Tracknummer vergleichen 
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£ld8 90 05 bcec Sfld£f verzweige, wenn kleiner 

flda a9 67 lda #567 Nummer der Fehlermeldung 

£fldc 20 45 e6 jsr Se645 '67, ILLEGAL TRACK OR SECTOR' ausgeben 
*1 £fldf4c le a9 jmp Sa9le richtiges Bitmaster in BAM holen 

“0 ELdE:20- II 0 jr s£oll Zeiger in BAM setzen 

fle2 bl 6d lda ($6d),y Zahl der freien Blöcke des Tracks 
fle4 £f0 d2 beq S£1b8 verzweige, wenn kein Block f£re; 
£fle6 68 pla Zwischenspeicherwert zurückholen 
fle7 85 86 sta 586 und wieder abspeichern 

£fle9 a9 00 lda #500 Sektor 0 als Startwert 

fleb 85 81 sta sel setzen 

fled 20: “Fa: „El jer sflfa und freien Sektor suchen 

£f1l£O £.0:- 03 beq Self5 verzweige, wenn keinen gefunden 
E1LF2 4c 90 ef jmp Sef90 sonst Block in BAM belegen; Ende 
ELfS a9 71 lda #571 Nummer der Fehlermeldung 

£fl£7 20 45 e6 jsr Se645 ‘71, DIR ERROR' ausgeben 

ELE& nächsten freien Sektor eines Tracks suchen. 
flfa 20 11 £0 sr s£oll richtiges Bitmuster in BAM holen 
£flfd 98 tya Index auf Beginn des Bitmusters 
flfe 48 pha merken 

£lf£f 20 20 £2 jSE sf220 Bitmuster in BAM prüfen 

£202 a5 80 lda s80 Tracknummer 

£204 20 4b £2 jsr sf24b maximale Anzahl von Sektoren dieses Tracks holen 
£207 8d 4e 02 sta S024e und merken 

£f20a 68 pla Index in Bitmuster zurückholen 
£20b 85 6f sta Ss6£f und merken 

£20d a5 81 lda sel Sektornummer 

£20£f cd 4e 02 cmp S024e mit maximaler Anzahl vergleichen 
f212 b0O 09 bes sf2ld verzweige, wenn größer gleich 

£214 20 d5 ef jsr Sefd5 Bitstatus des Sektors holen 

£217 d0 06 bne SLE2LTE. verzweige, wenn Sektor frei 

£219 e6 81 inc s8l Sektornummer plus 1 

£21b do £0 bne s£f20dA und wieder prüfen 

£f2ld a9 00 lda #500 Flag für alle Sektoren belegt setzen 
F2IE 60 rts Ende 

£220 Gültigkeit der Blockangaben in der BAM prüfen. 
£220 a5 6£f lda Ss6f Speicherwert 

£222 48 pha retten 

£223 a9 00 lda #500 zähler gleich Null 

E22 853: BE sta Ss6£f setzen 

£227 ac 86 fe ldy Sfe86 4; Anzahl der Bytes pro Track 

f22a 88 dey minus 1 als Index 

£f22b a2 07 1dx #507 Bitzeiger 

£22d bl 6d lda ($6d),y 8 Bits aus BAM holen 

£22£ 3d e9 ef and Sefe9,x und ein Bit isolieren 

£232 £0 02 beq S£f236 verzweige, wenn Block belegt 

£234 e6 6£f inc s6f Anzahl der freien Blöcke plus 1 
£236 ca dex Bitzeiger auf nächstes Bit 

£237 10 £4 bpl sf22d alle Sektoren überprüfen 

F233 88 dey Zeiger auf die nächsten 8 Bits 
£f23a d0 ef bne sf22b und wieder prüfen 

£23c bl 6d lda ($6d),y eingetragene Zahl der freien Blöcke 
f23e es: .6E cmp Ss6£ mit Rechenwert vergleichen 

£f240 do 04 bne S£246 Fehler, wenn ungleich 

£242 68 pla Speicherwert zurückholen 


£243 85. x6E sta Ss6f und wieder setzen 
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Ende 
Nummer der Fehlermeldung 
‘71, DIR ERROR! ausgeben; 





fe 


Stellt die Maximalanzahl der Sektoren einer Spur fest; 


Tracknummer in A. 
Bearbeitung für Tracks grö 
Anzahl der Trackzonen auf 


Ber 35 
Diskette 


Sektornummer mit Maximum vergleichen 


Zeiger minus 1 





Ber 


verzweige, wenn Sektor qgrö 
aximalzahl der Sektoren erhöhen 
Ende 

Ende 


£245 60 
£246 a9 
£248 20 
£f24b 

*1 £24b20 
*0 f24bae 
f24e dad 
2251 ca 
£252 b0 
£254 ba 
£257 60 
£258 60 
£259 

£259 a9 
£25b 8d 
£25e 29 
£260 8d 
£263 4c 
£266 29 
£268 09 
£f26a 09 
£26c 8d 
£26£ a9 
£271 sd 
£274 a9 
£276 8d 
£279 a9 
£27b 8d 
£27e 8d 
£281 a9 
£283 sd 
£286 a9 
£288 8d 
£f28b sd 
f23e a9 
£290 85 
£292 85 
£294 a9 
£296 85 
£298 a9 
£f29a 85 
£f29c a9 
£29e 85 
f2a0 a9 
f2a2 85 
f2a4 a9 
£2a6 85 
f2a8 a9 
f2aa 85 
f2ac a9 
f2ae 85 














korrespondierende Bits 


PCR lesen 

CA2 auf negative Flanke tr 
CBl auf Eingang und CB2 al 
Schreiben/Lesen schalten 
PCR setzen 
Timer 1 auf 
schalten 





alle 8 ms setzen 
Timerwert Hi 
setzen 

Timer starten 
RQO-Flag 

löschen 
nterruptmaske 
setzen; 

ROs zulassen 
alle Laufwerke inaktiv 
setzen 





Initialisierung der Register für den Diskcontroller. 
Bit 4A und 7 auf Eingang schalten 
entspricht SYNC und WRITE PROTECT 


Status für Drivemotor löschen 


iggern (BYTE READY) 
s Kontrolle für 


'free running mode"! 


[imerwert für IRQ (Diskcontroller) etwa 


keine laufende Formatierung anzeigen 
8 als Konstante für Blockheader 


setzen 

7 als Konstante für Datenblock 
setzen 

Zeiger auf 

Sfa05; Routine für 


Steppermotorbehandlung 
setzen 

200; 
den schnellen Steppermodus 


minimale Anzahl der Schritte für 


4; Wert zum Anfahren und Abbremsen 


des Steppermotors setzen 
und noch einmal 
setzen (Drive 1) 
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£2h>3 ad 04 1c 
£f2b6 ad 0c Ic 


f2bb 8d 0c I1c 


£2c0 b9 00 00 


f2ca 4c: 70 £3 


£2d5 4c 69 £9 


f2df 20 Te €£9 


f2e6 4c 9c £9 


£f2£O de :9€. ,E9 


£2£6 de 9c £9 


£301 20: 93. 83 


£30c 20 95 £3 


f3ld 4c 9c £9 








RO-Routine des Diskcontrollers. Prüft auf Jobs und 
diese ggf. aus. 

Stackpointer 

merken 

RQO-Flag durch Lesen löschen 

Bits 1,2 und 3 setzen, um 

die BYTE READY-Leitung zu 
initialisieren 

ndex in Jobspeicher setzen 

liegt Job für Puffer an? 
verzweige, wenn nein 

Job: Programm im Puffer ausführe? 
verzweige, wenn nein 

Puffernummer zur Ausführung 
übergeben und Programm starten 
Drivenummer isolieren 

verzweige, wenn Drivenummer 0 
Puffernummer merken 

Nummer der Fehlermeldung 

‘74, DRIVE NOT READY' ausgeben 
Drivenummer (0) nach X 

Nummer für Diskcontroller setzen 
läuft aktuelles Drive? 

verzweige, wenn ja 

Laufwerksmotor einschalten 
Drivenummer für Diskcontroller 
als aktuelles Drive übernehmen 
weiter in Jobschleife 

Drive schon auf konstanter Geschwindigkeit? 
verzweige zur Jobschleife, wenn nein 
Steppermotor in Aktion? 
verzweige, wenn nein 

zur Jobschleife 

Index in Jobspeicher minus 1 
weiter, wenn noch Puffer übrig 
zur Jobsch lei fe 

Flag für Drive in Aktion 

setzen 

ndex in Jobspeicher 

setzen 

Pufferadresse für Job setzen 
verzweige, wenn Job anliegt 

ndex auf nächsten Jobspeicher 
nächsten Jobspeicher prüfen 
Puffernummer für nächsten Job 
Pufferadresse für Job setzen 
Traekdifferenz zu letztem Job 
setzen 

Wert mal 2 (Anzahl der Stepperschritte) 
Flag für Steppermodus 

setzen 

Tracknummer für Job holen 

und übernehmen 

Kopfpositionierung vorbereiten; Jobschleife 
Drivenummer isolieren 

gleich Nummer des letzten Jobs? 
verzweige, wenn nein 











führt 
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£3 


fe 


fe 


lc 


le 


£3 


lda 


22 
$£33c 


(532),y 
$£f33c 
#S£f 
s42 

s42 

s3£ 

sal 
$£306 
#504 
(532),Yy 
s40 
Sfed6,x 


$f342 
Sfedl,x 
$43 


sa4 
$1c00 
#59£ 
sa4 
$1c00 
$3d 
$45 
#540 
sf3T7c 
#560 
sf36e 
sf3b1 
s3£ 


#503 
s31 
#500 
530 
(50030) 


Tracknummer des le 
verzweige, wenn ni 
und 

Abstand zu neuem T 
verzweige, wenn gl 
Anzahl der Steps e 
und setzen 

plus 1 
Puffernummer des J 
übernehmen 

weitere Jobs prüfe 
4; Anzahl der Trac 
Tracknummer für Jo 
übernehmen 

mit Zonengrenzen v 
Anzahl der Sektore 
zu errechnen 
Anzahl der Sektore 
und übernehmen 
Zonennummer 

jetzt 

mal 32 

rechnen, um 

die Bits an die 


tzten Jobs 
cht gesetzt 


rack berechnen 

eicher Track 

rzeugen 

obs 

n 

kzonen auf der Diskette (GCR) 


b 


ergleichen, um 
n in der Zone 


n holen 


richtige Stelle im Byte zu verschieben 


als Wert für Kontr 
Kontrollport des D 
entsprechende Bits 
konstante für Disk 
wichtig für Timing 
Drivenummer 
Jobcode für dieses 
BUMP des Tonkopfes 
verzweige, wenn ja 
Jobprogramm im Puf 
verzweige, wenn ja 
sonst Blockheader 
Puffernummer 

plus 3 

rechnen, um die 
Pufferadresse Hi z 
Pufferadresse Lo 
setzen 

Sprung in Puffer; 





ollport setzen 
iskcontrollers 

(5 und 6) löschen, um Timer- 
controller-Hardware zu setzen 
beim Diskettenbetrieb 


Drive 
ausführen (Nullanschlag)? 


fer ausführen? 


auf Track suchen 


u erhalten 


Programm ausführen 


lc 


le 


£9 


Routine zum Ausfüh 
den Nullanschlag z 
einwandfreie Posit 
Flag für Steppermo 
setzen 

Steuerport des Dis 
Bit für Steppermot 
Steppermotor an 
164; entspricht -4 
zu überfahrenden T 
Tracknummer 1 als 
setzen 

Abschluß der Jobsc 





ren eines BUMP, d.h. der Tonkopf wird an 
urückgefahren, um danach eine 

jionierung zu sichern. 

dus 


kcontrollers 
or löschen, d.h. 


5; Anzahl der 
racks bei BUMP 
Anschluß an BUMP 


hleife 
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7395 b9 00 00 


f3ab a0 00 
f3ad 84 30 
f3af 68 
£3b0 60 

£3b 

£f3b a2 5a 





£f3bb 20 56 #5 


£f3c1 ad 01 Ic 





£f3cb ad 01 Ic 


£3d0 e8 
£3dl eu. 07 
£3d3 a0 £ 


2349 20 97 f£4 


£3dc 9 6 00 





s3£ 
$0000,y 


sf3ab 
578 
45 


506 
32 


503 
s31 
500 
530 








s00 
$0016,y 


sf3dc 
500 
sf4le 
$3e 
s18 
522,x 
$45 
#530 
Sf410 








Pufferadresse und Pufferzeiger für Job setzen; in $30/31 
und $32. 

Index in Jobspeicher 

Jobcode holen 

und merken 

verzweige, wenn kein aktueller .:= 

reinen Jobcode isolieren 

und abspeichern 

Index in Jobspeicher 

mal 2 

plus 6 

als Zeiger in Jobspeicher (auf T"a:i-.rre-; 
Index in Jobspeicher 

und 

plus 3 

als Pufferadresse Hi setzen 

Pufferadresse Lo 

setzen 

Jobcode zurückholen 

Ende 


Suchroutine zum Finden einer Spur auf Diskette (SEEK). 
Hierbei wird nach einem beliebigen gültigen Blockheader 
gesucht, wobei 90 Leseversuche gemacht werden. 
90; Anzahl der Leseversuche 

als Zähler setzen 

ndex in Zwischenspeicher setzen 

GCR-Code für S08 (Blockheaderkennzeichen) 

für Suche setzen 

SYNC-Signal abwarten 

warten bis Byte eingelesen 

Flag löschen 

Byte vom Diskcontroller holen 

und mit Blockheaderkennzeichen vergleichen 
verzweige, wenn kein Headerkennzeichen 

Byte einlesen 

Flag für 'Byte eingelesen' (BYTE READY) löschen 
Byte vom Diskcontroller holen 

und in Zwischenspeicher für Blockheader 
nächstes Byte 

schon 7 Bytes eingelesen? 

weiterlesen, wenn nein 

Blockheader von GCR nach binär umwandeln 

Index für Prüfsumme 

Prüfsumme über den 

Blockheader bilden 

noch ein Byte? 

ja; weitermachen 

Prüfsumme korrekt? 

'27, READ ERROR', wenn nein 

Drivenummer für Job 

Tracknummer von gelesenem Blockheader 
übernehmen 

Jobcode 

Job: Sektor suchen (SEEK)? 

verweige, wenn ja 
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3e 


00 


00 


£4 


£9 


lda 





$3e 


$0012,y 
516 
Sf4lb 
s0013,y 
17 
Sf41lb 
$f423 
S4b 
sf3bb 
#502 
5£f969 
516 


Drivenummer für den Job 

mal 2 

als Index 

ID 1 holen und 

mit gelesener ID vergleichen 

‘29, DISK ID MISMATCH', wenn falsch 
ID 2 holen 
und mit gelesener ID vergleichen 

'29, D:SK ID MISMATCH', wenn ungleich 
nächstbesten Sektor bearbeiten 

Zähler für Leseversuche minus 1 
weitermachen, wenn noch keine 90 Versuche 
Nummer der Fehlermeldung 

'20, READ ERROR' ausgeben 

ID 1 vom Blockheader 

als neue ID 1 setzen 

ID 2 vom Blockheader 

ebenfalls übernehmen 

Nummer der Rückmeldung (alles ok!) 
nächsten Befehl überspringen 

Nummer für '29, DISK ID MISMATCH' 
nächsten Befehl überspringen 

Nummer für '27, READ ERROR' 
(Fehler-)Meldungen ausgeben; Ende 











23 




















Sucht nach dem besten Job, der bearbeitet werden kann. 


Günstig ist jeweils der Job, der mit der geringsten 
Kopfbewegung auf der Diskette verbunden ist, also am 
nächsten liegt. 
Entfernungszähler zu nächstem Sektor 

setzen 

Sektornummer vom Blockheader 

mit 

2 addieren; gibt optimalen Sektor 

kleiner als der Maximalwert? 

verzweige, wenn ja; alles ok 

sonst Maximalwert abziehen 

und eventuellen Wert für nächsten Sektor merken 
Puffernummer 

setzen 

zugehörige Pufferadresse 

setzen 

verzweige, wenn kein Job für diesen Puffer 
sonst Jobcode merken 

Drivenummer isolieren 

und mit aktuellem Drive vergleichen 

verzweige, wenn Job für anderes Drive 

Index in Jobspeicher 

Tracknummer für Job holen 

gleich Tracknummer dieses Jobs? 

verzweige, wenn nein 

Jobcode holen 

Jobprogramm im Puffer ausführen? 

verzweige, wenn ja 

Index in Jobspeicher 

zeigt jetzt auf Sektornummer 

Sektornummer aus Jobspeicher holen 

größer gleich neue Sektornummer? 
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bpl 
(elle: 
adc 
cmp 
bcs 
pha 
lda 
beq 
pla 
cmp 











verzweige, wenn ja 

sonst 

Maximalzahl addieren 

und mit Sektorzähler prüfen 
verzweige, wenn Entfernung ungünstig 
sonst Vergleichswert merken 
Jobcode 

verzweige, wenn kein Job anliegt 
Vergleichswert holen 

kleiner als 9? 

nächsten Job prüfen, wenn ja 
größer gleich 12? 

nächsten Job prüfen, wenn ja 
Entfernungswert merken 
Puffernummer für den Job 

jetzige Nummer merken 

außerdem plus 3 

als Pufferadresse Hi setzen 
unbedingter Sprung; nächsten Job prüfen 
Entfernungswert zurückholen 
kleiner als 6 

Job bearbeiten, da Aufwand gering 
Puffernummer minus 1 

nächsten Job prüfen 

wurde ein Job gefunden? 
verzweige, wenn ja 

zur Jobschleife 

Puffernummer wieder merken 
zugehörige Pufferadresse setzen 
Jobcode 

prüfen; ggf. Datenblock lesen 





£497 
£499 
f49a 
f49c 
£49d 
£49£ 
£f4al 
f4a3 
f4a5 
£f4a7 
f4a9 
f4ac 
f4ae 
£4b0 
£4b2 
£f4b4A 





530 


s31 


#524 
s30 
#500 
s31 
#500 
534 
Sf7e6 
55 
s18 
554 
19 
53 


Konvertiert die Bytes des gelesenen Headers vom GCR- (5 
Bit) 'Code in den normalen Binär-(4 Bit)-Code. Der GCR- 
codierte Header steht dabei ab $24; das Ergebnis der 
Umwandlung steht dann von $16 bis $la und zwar: 

$16 - ID 1 der Diskette 

$17 - ID 2 der Diskette 

$18 - Tracknummer des Sektors 

$19 - Sektornummer des Sektors 

$la - Prüfsumme über den Blockheader. 

Pufferadresse Lo 


retten 

Pufferadresse Hi 

retten 

Pufferzeiger Lo auf $24 
setzen 


Pufferzeiger Hi auf $00 

setzen; ergibt Adresse 80024 

Zeiger auf erstes GCR-Byte für Decodierung 
setzen 

5 GCR-Bytes in 4 Binärbytes konvertieren 
Tracknummer 

übernehmen 

Sektornummer 

übernehmen 

Prüfsumme 
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E7 


übernehmen 

5 GCR-Bytes in 4 Binärbytes konvertieren 
zweites Zeichen der ID (ID 2) 
übernehmen 

erstes Zeichen der ID (ID 1) 
übernehmen 

Pufferadresse Hi zurückholen 
und setzen 

Pufferadresse Lo zurückholen 
und setzen 

Ende 


£5 
£5 


le 


lc 
01 


£8 


£9 
£5 


$1c0l 
($S30),y 


Ssf4d4 
#S$ba 
Sf4el 


$1col 
50100,y 


Sf4el 
Ssf8e0 
$38 
547 
Ssf4fb 
#504 
5£f969 
sf5e9 
$3a 
sf505 
#505 





Prüft auf Jobcode für Lesen; wenn ja, wird der verlangte 


Blockheader gesucht und der Block gelesen und decodiert. 


Jobcode für Block lesen (READ) 
verzweige, wenn ja 

sonst Jobcode weiter prüfen 
gewünschten Blockheader suchen 
Byte einlesen 

Flag wieder löschen 

Byte vom Diskcontroller holen 

und in den Puffer schreiben 
nächstes Byte 

und 256 Bytes einlesen 

Index in Ausweichpuffer 

Byte einlesen 

Flag wieder löschen 

Byte vom Diskcontroller holen 

und in Ausweichpuffer schreiben 
nächstes Byte 

weitermachen, bis 70 Bytes gelesen 
Pufferinhalte nach Binär konvertieren 
erstes Byte des Datenblocks 

gleich $07; Datenblockkennzeichen? 
verzweige, wenn ja 

Nummer der Fehlermeldung 

'22, READ ERROR' ausgeben 
Prüfsumme über Datenblock berechnen 
mit gelesenem Wert vergleichen 
verzweige, wenn korrekt 

Nummer für '23, READ ERROR' 
nächsten Befehl überspringen 
Nummer für '00, OK' 

Rückmeldung ausgeben 


Sucht nach einem bestimmten Blockheader und 
SYNC-Signal des nachfolgenden Daten- blocks 
Blockheader suchen 

SYNC-Signal abwarten; Ende 


es10 


a5 


3d 


lda 


$3d 


wartet das 
ab. 


Sucht nach einem Blockheader, dessen Parameter vorher 
gesetzt wurden. Die Parameter sind ent. sprechend den 
speicherstellen S12 und $13 zu setzen; im Jobspeicher muß 


Track- und Sektornummer des Blocks stehen. 
Drivenummer für den Job 
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£9 


£5 


Le 
00 








mal 2 

als Index 
ID 1 holen 
und übernehmen 
ID 2 holen 
und übernehmen 

Index in Jobspeicher 

Tracknummer aus Jobspeicher holen 

und übernehmen 

Index auf Sektor 

Sektornummer aus Jobspeicher holen 

und übernehmen 

Startwert für Prüfsumme 

Prüfsumme über 

den zusammengestellten 

Blockheader 

berechnen und 

abspeichern 

Blockheader in GCR umwandeln 

90 Leseversuche maximal setzen 
SYNC-Signal abwarten 

Index auf Start 

Byte einlesen 

Flag löschen 

Byte vom Diskcontroller holen 

und mit abgespeicherten GCR-Bytes vergleichen 
verzweige, wenn ungleich 

Index erhöhen 

schon alle Headerbytes geprüft? 
weitermachen, wenn nein 

Ende; alles ok 

Zähler für Leseversuche minus 1 

und wieder versuchen 

Nummer der Fehlermeldung 

'20, READ ERROR' ausgeben; Ende 











Wartet ein SYNC-Signal auf Diskette ab. 
53 ms als maximale Suchzeit 

Timer starten 

Nummer der Fehlermeldung setzen 

Timer schon abgelaufen? 

'21l, READ ERROR', wenn ja 

SYNC-Signal erhalten? 

weitermachen, wenn nein 
Diskcontroller lesen; Port freimachen 
Flag löschen 

Index löschen 

Ende 


£6 
23 


Le 


Block aus dem aktuellen Puffer auf die Diskette. 
Jobcode für Block schreiben? 

verzweige, wenn ja 

Jobcode weiter prüfen 

Prüfsumme über Datenblock im Puffer berechnen 
und abspeichern 

Kontrollport lesen 

WRITE PROTECT isolieren 





Prüft auf Jobcode für Schreiben und schreibt ggf. 


einen 
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£9 
54 
£5 


lc 
lc 


Te 


le 


01 


lc 











verzweige, wenn Lichtschranke frei 
sonst Nummer der Fehlermeldung 
'26, WRITE PROTECT' ausgeben 
Pufferinhalt in GCR umwandeln 
Blockheader suchen 

9 Bytes 
Byte überlesen, um hinter den Header 
des Sektors zu kommen 

weitermachen 

und nächstes Byte überlesen 
Schreib-/Lesekopf auf Schreiben 
umschalten 

PCR laden und 

auf Schreibbetrieb 

umschalten 

PCR wieder initialisieren 

SFF; Bytewert für SYNC-Markierung 

5 Bytes 

zum Diskcontroller 

und 
Schreibvorgang abwarten 

Flag wieder löschen 

Zähler auf nächstes Byte 

weitermachen 

Index in Ausweichpuffer 

Byte aus Ausweichpuffer 

nächsten Schreibvorgang abwarten 

Flag löschen 

Byte zum Diskcontroller 

nächstes Byte 

und gesamten Ausweichpuffer schreiben 

Y=0; 'normalen' Puffer 

Schreibvorgang abwarten 

Flag löschen 

und Byte zum Diskcontroller 

nächstes Byte aus Puffer 

und weitermachen, bis alle Daten geschrieben 
Schreib-Ende abwarten 

PCR laden und 
und wieder auf Lesen 
umschalten 
Schreib-/Lesekopf wieder auf Lesen 
umschalten 
Pufferinhalt wieder in Binärbytes umwandeln 
Puffernummer für Job 

Jobcode aus Puffer von 'Schreiben' 

in VERIFY umwandeln 

und wieder abspeichern 

VERIFY ausführen 




















00 


30 


fb 


#500 
(830),y 


sf5ec 


Prüfsumme über Datenblock bilden und im Akku an 
übergeordnete Routine übergeben. 

Startwert für Prüfsumme 

Index laden 

Pufferinhalt verknüpfen 

bis 

gesamter Puffer abgefragt 

Ende; Summe in A 
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£5£2 

£5£2 a9 00 lda #500 
£5£4 85 2e sta S2e 
£5£6 85 30 sta s30 
£5£8 85 4f sta Ss4f 
£f5fa ab: 31 lda s31 
£5£fc 85 4e sta S4e 
£f5fe a9 01 lda #501 
£600 85 31 sta s31 
£602 85 2€ sta s2f 
£604 a9 bb lda #Sbb 
£606 85 34 sta 534 
£608 85 36 sta 536 
£60a 20 e6 £7 jsr Sf7e6 
£604 as. 52 lda 552 
£60£f 85 38 sta 538 
£611 a4 36 ldy 536 
£613 a5 53 lda 553 
2615 91 2e sta ($2e),y 
£617 c8 iny 

£618 a5 54 lda 554 
f6la 91 2e sta ($2e),y 
f6lc c8 iny 

f6ld a5 55 lda $55 
f6l£f 91 2e sta (S2e),y 
£621 c8 iny 

£622 84 36 sty 536 
£f624 20 e6 £7 jsr SfT7e6 
£627 a4 36 ldy 536 
£629 a5 52 lda 552 
£f62b 91 2e sta ($2e),y 
f62d c8 iny 

f62e a5..:53 lda 553 
£630 91 2e sta ($2e),y 
£632 c8 iny 

£633 £0 0e beq $£f643 
£635 a5 54 lda 554 
£637 91 2e sta (S2e),y 
£639 c8 iny 

£63a a5 55 lda $55 
£f63c 91 2e sta ($2e),y 
f63e c8 iny 

£63£ 84 36 sty 536 
£641 d0 el bne sf624 
£643 a5 54 lda 554 
£645 91 30 sta ($30),y 
£647 c8 iny 

£648 a5 55 lda $55 
f64a 91 30 sta ($30),y 
f64c c8 iny 

£64d 84 36 sty 536 
£64£f 20 e6 £7 jsr Sf7e6 





zu) 
{62} 
a 
N 
v 
> 
w 
{62} 
jan 
fon 
X 


536 


Routine wandelt den Inhalt des Ausweichpuffers und des 
aktuellen Datenpuffers aus dem GCR-(5 Bit)-Code wieder in 
den Binär-(4 Bit)-Code um und schreibt diese Werte dann in 
den aktuellen Puffer zurück. 

Pufferaddressen und Indizes löschen: 

Pufferadresse für Konvertierung Lc 

Pufferadresse Lo 

Zeiger in späteren Puffer für Umwandlung 

Pufferadresse Hi 

Adresse des aktuellen Puffers merken 

Adresse des Ausweichpuffers Hi 

setzen 

setzen 

Index in Ausweichpuffer 

setzen 

setzen 

5 GCR-Bytes in 4 Binärbytes umwandeln 

erstes umgewandeltes Byte 

als Datenblockkennzeichen merken 

Index in Ausweichpuffer 
zweites umgewandeltes Byte 

in aktuellen Puffer schreiben 
nächstes Byte 
drittes umgewandeltes Byte 

in aktuellen Puffer schreiben 
nächstes Byte 
viertes umgewandeltes Byte 

in aktuellen Puffer schreiben 
nächstes Byte 

Index merken 

5 GCR-Bytes in 4 Binärbytes umwandeln 
Index in Puffer holen 

erstes umgewandeltes Byte 

in aktuellen Puffer schreiben 
nächstes Byte 
Zweites umgewandeltes Byte 
in aktuellen Puffer schreiben 
nächstes Byte 
verzweige, wenn Puffer schon voll 
drittes umgewandeltes Byte 
in aktuellen Puffer schreiben 
nächstes Byte 
viertes umgewandeltes Byte 
in aktuellen Puffer schreiben 

nächstes Byte 

Index merken 

weitermachen, wenn Puffer noch nicht voll 
drittes umgewandeltes Byte 

in aktuellen Puffer schreiben 

nächstes Byte 

viertes umgewandeltes Byte 

in aktuellen Puffer schreiben 

nächstes Byte 

Index merken 

5 GCR-Bytes in 4 Binärbytes umwandeln 
Index holen 
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52 
30 


01 








$52 
(830),y 


$53 
(830),y 


$54 
(830),y 


$55 
(830),y 


536 
#Sbb 
Sf64f 
#545 
S2e 

s31 

s2£ 
#S$ba 
(530),y 
(S2e),y 


$£678 
(830),y 
($2e),y 
#Sbb 
$0100,x 
(830),y 


$f685 
s50 


erstes umgewandeltes Byte 

in aktuellen Puffer schreiben 
nächstes Byte 
zweites umgewandeltes Byte 
in aktuellen Puffer schreiben 
nächstes Byte 
drittes umgewandeltes Byte 
in aktuellen Puffer schreiben 
nächstes Byte 
viertes umgewandeltes Byte 
in aktuellen Puffer schreiben 

nächstes Byte 

Index merken 

erster Teil schon erledigt? 

weitermachen, bis erledigt 

Pufferadresse Lo auf zweiten Teil 

setzen 

Pufferadresse Hi 

setzen 

Index auf erstes Byte im aktuellen Puffer 

Byte aus erstem Teil des aktuellen Puffers 

in zweiten Teil des aktuellen Puffers 

nächstes Byte 

verzweige, wenn noch nicht fertig 

letztes Byte 

ebenfalls übertragen 

Index auf Ausweichpuffer 

Teil des Ausweichpuffers 

vorne an die Bytes im aktuellen Puffer setzen 
nächstes Byte im aktuellen Puffer 

nächstes Byte aus Ausweichpuffer 

wei termachen 

Flag für Pufferinhalt im Binärcode setzen; x=o 
Ende 


























Prüft auf den Jobcode für VERIFY und vergleicht ggf. die 
Daten im aktuellen Puffer nach GCR. Codierung direkt mit 





£6 
£5 


E24 
£5 
01 


lc 


le 


den entsprechenden Daten auf der Diskette. 
Jobcode für VERIFY? 
verzweige, wenn ja 
Jobcode weiter prüfen 

Prüfsumme über den Datenblock berechnen 
und merken 
Datenblock in GCR umwandeln 
Datenblockbeginn suchen 
Index in Ausweichpuffer 

70 Bytes aus Ausweichpuffer 
Byte lesen 
Flag löschen 

Byte aus Puffer mit Byte von DC vergleichen 
verzweige, wenn ungleich 

Index auf nächstes Byte 

weitermachen 

nun die Daten aus dem aktuellen Puffer 

Byte lesen 
Flag löschen? 

mit Daten von Diskette vergleichen 
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f6bb d0 08 bne sf6c5 verzweige, wenn ungleich 

f6bd c8 iny nächstes Byte 

£f6be c0 f£d cpy #Sfd schon Ende des Puffers erreicht? 

f6c0 a0 £il bne Sf6b3 weitermachen, wenn nein 

£6c2 4c 18 f£4 jmp sf418 Ende; alles ok 

£6c5 a9 07 lda #507 Nummer der Fehlermeldung 

£6c7 4c 69 £9 jmp S£969 '25, WRITE ERROR' ausgeben; Ende 

f6ca Sucht nach einem Blockheader. 

f6ca 20 10 £5 jsr sf510 Blockheader auf Diskette suchen 

f6cd 4c 18 f£4 jmp sf418 Ende; alles ok 

£6d0 Wandelt 4 Binärbytes in den Speicherstellen $52 bis $55 in 
5 GCR-codierte Bytes um und schreibt diese in den aktuellen 
Puffer. Pufferzeiger dabei in $34. 

£f6d0 a9 00 lda #500 Rechenbereich 

f6d2 8557 sta 557 löschen 

£f6d4 85 5a sta s5a löschen 

£6d6 aa 34 ldy 534 Pufferzeiger holen 

£6d8 a5 52 lda 552 erstes Byte holen 

f6da 29 E£0 and #S£0 Hi-Nibble isolieren 

fedc 4a lsr und die 

f6dd 4a lsr 4 Bits in 

f6de 4a lsr die unteren 4 

f6df 4a lsr Bitpositionen schieben 

f6e0 aa tax Wert als Index 

f6el ba- VE 7 lda SETIE,X 5-Bit-Nibble als GCR-Äquivalent holen 

f6e4 0a asl 5 Bits im Byte 

£f6e5 0a asl an die oberen 

£f6e6 0a asl Positionen (Bits 3 bis 7) schieben 

f6e7 85. 96 sta 556 und diesen Wert merken 

£6e9 ab. 52 lda 552 jetzt das Ausgangsbyte holen 

f6eb 23. DE and #S0f und das Lo-Nibble 

f6ed aa tax entsprechend 

f6ee bd 7£ £7 lda SETTE,x umwandeln 

f6£fl 6a ror die zwei 

EGEZ 66 57 ror 557 untersten Bits in 

f6f4 sa ror den Zwischenspeicher 

£6f5 66 57 ror 557 an oberste Position (6,7) bringen 

£6£7 29 07 and #507 Restwert im Akku auf 3 Bits Länge begrenzen 

£6£9 (03:96 ora 556 und an Hi-Nibble anhängen; 1. GCR-Byte fertig 

£6£fb 91 30 sta ($30),y Byte in Puffer schreiben 

f6fd c8 iny Zeiger auf nächstes Byte 

f6fe a5 53 lda 553 zweites Byte für Umwandlung holen 

£700 29 £0 and #S£0 und Hi-Nibble isolieren 

£702 4a Isr ebenfalls das Hi-Nibble 

£703 4a lsr an die 

£704 4a lsr untersten 4 Positionen im Byte 

£705 4a lsr schieben 

£706 aa tax Wert als Index 

£707 bd 7£ £7 lda SETTE,X 5 Bit GCR-Äquivalent holen 

£70a 0a asl 5 Bits auf Positionen 1 bis 5 bringen 

£70b 08, #97 ora 557 und mit 2 Bits des vorherigen Bytes summieren 

£70d 85:53 sta 557 Wert ablegen; es fehlt jetzt noch Bit 0 

£70£ a5 53 lda 553 zweites Byte für Umwandlung nochmals holen 

2711 29 DE and #S0f und Lo-Nibble jetzt isolieren 


£713 aa tax Wert wiederum 
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£714 
£717 
£718 
£719 
£7la 
£71b 
£71d 
£7le 
£720 
122 
£724 
£725 
2727 
£729 
£72a 
£72b 
£72c 
£72d 
£72e 
£731 
£732 
£733 
£735 
£737 
£738 
£739 
£73b 
£73d 
£73£ 
£74 
£74 
£74 
£74 
£74 
£74 
£74 
£74 
£74 
£751 
£752 
£753 
£754 
2758 
£756 
£759 
£75a 
£75c 
£75d 
£75£ 
£760 
£762 
£764 
£766 
£768 
£769 
£76b 
£76d 
£76£ 





HaTosaaumnmHm 


IE 


58 
01 
57 
30 


54 
£0 


7£ 


£7 


£7 


lda 
rol 
rol 
rol 
rol 
sta 
7:01: 
and 
ora 
sta 
iny 
lda 
and 
lsr 
lsr 
lsr 
lsr 
tax 
lda 
(ee) 
ror 
ora 
sta 
iny 
ror 
and 
sta 
lda 
and 
tax 
lda 
asl 
asl 
and 
ora 
sta 
lda 
and 
lsr 
lsr 
lsr 
lsr 
tax 
lda 
ror 
ror 
ror 
ror 
ror 
ror 
and 
ora 
sta 
iny 
bne 
lda 
sta 
lda 


SETTE,x 


558 


#501 
$57 
(830),y 


54 
#S£0 


SETTE,x 


$58 
(830),y 


#580 
59 
54 
#S0f 


SETTE,x 


#57c 
559 
559 
$55 
#S£0 


SETTE,x 
$5a 
$5a 


$5a 
#503 
$59 
($830),y 


S£T76£ 
s2f 
s31 
$55 


in 5 Bit GCR-Äqivalent umwandeln 

und im Byte 

an die vier (!!) höchsten Stellen 

schieben (4 bis 7); das höchstwertige Bit 
landet dabei im Carry-Flag 

vier GCR-Bits merken 

höchstes Bit aus Carry wieder in Akku 

und auf Position 0 schieben 

dieses Bit zu den 6 vorigen GCR-Bits summieren 
und dieses zweite GCR-Byte in den Puffer 
Pufferzeiger erhöhen 

drittes Byte für Umwandlung holen 

und Hi-Nibble isolieren 

4 Bits wieder 

an die vier untersten 

Positionen (0 bis 3) 

schieben und 

den Binärwert in das entsprechende 

5 Bit GCR-Äquivalent umwandeln 

Carry-Bit löschen 

Bit 0 des GCR-Bytes ins Carry 

die vier Bits mit den vorigen Bits summieren 
und das dritte GCR-Byte in den Puffer schreiben 
Pufferzeiger erhöhen 

Bit aus Carry-Flag wieder in Akku (Position 7) 
und restliche Bits eliminieren 

neuen Byteteil zwischenspeichern 

und drittes Byte für Umwandlung wieder holen 
diesmal das lo-Nibble isolieren 

und 

in 5 Bit GCR-Äquivalent umwandeln 

die 5 Bits auf die Positionen 2 bis 6 
schieben 

und restliche Bits eliminieren 

Bit 7 des letzten Teils summieren und 

Wert merken; jetzt fehlen noch Bit O0 und 1 
viertes Byte für Umwandlung holen 

und Hi-Nibble isolieren 

dann die 4 Bits wieder 

an die Positionen 

0 bis 3 im Byte 

schieben 

und 

in 5 Bit GCR-Äquivalent umwandeln 

Bit 0 ins Carry-Flag schieben 

und danach an Position 7 in Zwischenspeicher 
Bit 1 ins Carry-Flag und 

danach an Position 7 in Zwischenspeicher 

Bit 2 ins Carry und 

als Bit 7 zu Bit 5 und 6 des Zwischenspeichers 
restliche 2 Bits im Akku isolieren 

und zu den vorigen 6 Bits summieren 

viertes GCR-Byte in Puffer schreiben 
Pufferzeiger erhöhen 

weiter, wenn Puffer noch nicht voll 

sonst auf aktuellen Puffer 

umschalten; Ausweichpuffer voll 

viertes Byte für Umwandlung wieder holen 
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£771 29 0£ and #S0£ 
£773 aa tax 

£774 bar =7E. E7 lda SETTE,x 
27177 05 5a ora s5a 
£779 91 30 sta ($30),y 
£77b c8 iny 

EFT 84 34 sty 534 
£77e 60 rts 

E7TE 




















£f78a 1b = 1101 für 3101 

£78b Od = 0110 für %1100 

£78c 1d = 1110 für %110 

£78d le = 11110 für 31110 

£f78e 15 = 1010 für 3111 

£78£ 

£78£ a9 00 lda #500 
£791 85 30 sta s30 
£793 85 2e sta S2e 
£795 85 36 sta 536 
£797 a9 bb lda #Sbb 
£799 85 34 sta 534 
£79b 85 50 sta s50 
£794 a5 31 lda 531 
£79£ 85 2£ sta s2f 
£f7al a9 01 lda #S01 
£7a3 85. 31 sta 531 
£7a5 a5 47 lda $47 
£7a7 85: 52 sta 552 
£7a9 a4 36 ldy 536 
£7ab bl 2e lda ($S2e),y 
f7ad 85: 53 sta 553 
f7af c8 iny 

£7b0 bl 2e lda ($2e),y 
£7b2 85 54 sta 554 
£7b4 c8 iny 

£7b5 bl 2e lda ($2e),y 
£767 85: 55 sta 555 
£7b9 c8 iny 

£7ba 84 36 sty 536 
£7bc 20 do £6 jsr Ssf6d0 
£7b£f a4 36 ldy 536 


und Lo-Nibble isolieren 

und 

in 5 Bit GCR-Äquivalent umwandeln 

mit vorigen 3 Bits summieren und 

fünftes GCR-Byte in den Puffer schreiben 
Pufferzeiger erhöhen 

und merken 

Ende 


GCR-Äquivalente für die Umwandlung eines 4 Bit Nibbles in 
ein 5 Bit GCR-Nibble. 

s00 

sol 

502 

03 

s04 

05 

506 

507 


Wandelt den gesamten aktiven Puffer von Binär (4 Bit)- 
Werten in GCR-(5 Bit)-Werte um. Der entstehende Überschuß 
an Bytes wird dabei im Ausweichpuffer von $01bb bis $0Olff 
abgelegt. 

Indizes und Adressen Lo löschen: 

Pufferadresse Lo 

Pufferadresse Lo für umwandlung 

Pufferzeiger 

Zeiger auf Ausweichpuffer 

setzen 

setzen 

Pufferadresse Hi 

kopieren 

Pufferadresse Hi 

auf Ausweichpuffer stellen 

Kennzeichen $07 für Datenblock 

als erstes Byte für Umwandlung setzen 

Pufferzeiger holen 

Byte aus Puffer 

für Umwandlung setzen 

Pufferzeiger erhöhen 

Byte aus Puffer 

für Umwandlung setzen 

Pufferzeiger erhöhen 

Byte aus Puffer 

für Umwandlung setzen 

Pufferzeiger erhöhen 

und merken 

4 Bytes umwandeln und in Puffer schreiben 

Pufferzeiger holen 
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£JEL bl 2e lda ($S2e),y 
£7c3 85 52 sta 552 
FIeS. c8 iny 

£7c6 £ 11 beq $£7d9 
£7c8 bl 2e lda ($2e),y 
£f7ca 85 53 sta 553 
£7cc c8 iny 

£7cd bl 2e da ($2e),y 
£7c£ 85 54 sta 554 
£7dal c8 iny 

£7d2 bl 2e da ($2e),y 
£7d4 85: :55 sta $55 
£7d6 c8 iny 

£747 d0 el bne sf7ba 
£7d9 a5 3a da $3a 
£7db 85 53 sta 553 
£7dd a9 00 da #500 
£7AE 85 54 sta 554 
£7el 85.55 sta $55 


£7e6 

£7e6 a4 34 ldy 534 
£7e8 bl 30 lda ($30),y 
£f7ea 29 258 and #$£8 
f7ec 4a lsr 

f7ed 4a lsr 

f7ee 4a lsr 

£f7ef 85 56 sta 556 
£7£1 bl 30 lda ($30),y 
£7E3 29 07 and #507 
£7£5 0a asl 

£7£6 0a asl 

FIET. 85 57 sta 557 
£7£9 c8 iny 

£7fa do 06 bne sf802 
EIER a5 4e lda S4e 
£7£fe 85 31 sta »S1 
£800 ad 4f ldy Ssaf 
£802 bl 30 lda ($30),y 
£804 29 c0 and #5$c0 
£806 2a rol 

£807 2a 201. 

£808 2a rol 

£809 05: 57 ora 557 
£f80b 85.197 sta 557 
£f80d bl 30 lda ($30),y 
£8of 29 3e and #$3e 
£fsll 4a lsr 

£812 85 58 sta 558 
£814 bl 30 lda ($30),y 
£816 29 01 and #501 
£818 0a asl 

£819 0a asl 

fsla 0a asl 


Byte aus Puffer holen 

erstes Byte für Umwandlung 
Pufferzejger erhöhen 

verzweige, wenn ganzer Puffer voll 
Byte aus Puffer holen 

zweites Byte für Umwandlung 
Pufferzeiger erhöhen 

Byte as Puffer holen 

drittes Byte für Umwandlung 
Pufferzeiger erhöhen 

Byte aus Puffer holen 

viertes Byte für Umwandlung 
Pufferzeiger erhöhen 

weiter umwandeln, bis Puffer voll 
Prüfsumme über Datenblock 

als zweites Byte für Umwandlung 
500 

als drittes und 
als viertes Byte für Umwandlung 

4 Bytes umwandeln und in Puffer schreiben; Ende 

















Wandelt 5 GCR-codierte Werte aus dem Puffer in 4 Binärwerte 
um und speichert diese dann nach $52 bis $55. Pufferzeiger 
in $34. 

Pufferzeiger holen 

Byte aus Puffer 

die 5 höchsten Bits isolieren 

und an die 

5 niedrigsten Positionen (0 bis 4) 

schieben 

ert merken (1. GCR-Nibble) 

Byte nochmals holen 

und die drei niederwertigen Bits isolieren 
und auf die Positionen 

2 bis 4 schieben 

ert merken; es fehlen noch die Bits 0 und 1 
Pufferzeiger erhöhen 

verzweige, wenn noch Bytes im Puffer 

sonst Adresse Hi für Ausweichpuffer 

setzen 

und Adresse Lo als Index nehmen 

zweites GCR-Byte aus Puffer holen 

die zwei höchstwertigen Bits (6,7) isolieren 
und an die 

Positionen 0 und 1 

schieben 

zu den drei restlichen Bits summieren 

und abspeichern (2. GCR-Nibble) 

zweites Byte noch einmal holen 

die Bits 1 bis 5 isolieren 

und an die Positionen O0 bis 4 schieben 

5 Bits merken (3. GCR-Nibble) 

zweites Byte wiederum holen 

Bit 0 isolieren 

und an 

die Position 

4 im Byte 

schieben 
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£8lc 85 59 sta 559 Bit merken 

föle c8 iny Pufferzeiger auf nächstes Byte 

£8Sl£ bl 30 lda ($30),y drittes GCR-Byte aus Puffer 

£821 29 20 and #S£0 und die vier obersten Bits isolieren 
£823 4a lsr diese 4 Bits 

£824 4a lsr an die 

£825 4a Iisr untersten vier Positionen (0-3) 

£826 4a lsr schieben 

£827 05, 58 ora 559 mit Bit 4 verknüpfen 

£829 85 59 sta 559 und 5 Bit-Nibble abspeichern (4. GCR-Nibble) 
£f82b bl 30 lda ($30),y drittes GCR-Byte noch einmal aus Puffer 
£f82d 29 0£ and #S0f und Lo-Nibble isolieren 

fs2f 0a asl Bits an die Positionen 1 bis 4 schieben 
£830 85 5a sta s5a Wert merken 

£832 c8 iny Pufferzeiger auf nächstes Byte 

£833 bl 30 lda ($30),y viertes GCR-Byte aus Puffer 

£835 29 80 and S80 und Bit 7 isolieren 

£837 18 eie Carry löschen 

£838 2a rol und Bit 7 über Carry 

£839 2a rol auf Position 0 rollen 

£f83a 29 01 and sol Bit 0 isolieren 

£f83c 05 5a ora s5a und zu den vorigen 4 Bits hinzufügen 
f83e 85 5a sta s5a Wert wieder merken (5. GCR-Nibble) 

£840 b1. -;30) lda ($30),y viertes GCR-Byte nochmal aus Puffer holen 
£842 29: Ie and >70 Bits 2 bis 6 isolieren 

£844 4a isr und an die 

£845 4a lsE Positionen 0 bis 4 schieben 

£846 83. 5D sta $5b Wert merken (6- GCR-Nibble) 

£848 bl 30 lda ($30),y viertes GCR-Byte wieder holen 

f84a 29 03 and #503 Bits 0 und 1 isolieren 

£f84c 0a asl und an die 

f84d 0a asl Positionen 3 und 4 

f84e 0a asl schieben 

f84f 82: Sc sta $5c Bits merken 

£851 c8 iny Pufferzeiger auf nächstes Byte 

£852 d0O 06 bne sf85a verzweige, wenn Puffer noch nicht fertig 
£854 a5 4e lda S4e Pufferadresse Hi des Ausweichpuffers 
£856 82. 31 sta 531 setzen 

£858 a4 4f ldy S4f Pufferadresse La des Ausweichpuffers als Index 
f85a bl 30 lda ($30),y fünftes GCR-Byte aus Puffer holen 

£85c 293 &0 and #S$e0 die obersten 3 Bits isolieren 

f85e 2a rol und an die 

£85£f 2a rol untersten 3 

£860 2a rol Positionen 0 bis 2 

£861 2a rol schieben 

£862 08 56 ora S5c die zwei vorigen Bits dazunehmen 

£864 85 5c sta $5c und Wert merken (7. GCR-Nibble) 

£866 bl 30 lda ($30),y Fünftes GCR-Byte noch einmal aus Puffer 
£868 29: "LE and #S1f und die fünf untersten Bits isolieren 
f86a 83. Sd sta S5d und merken (8. GCR-Nibble) 

£f86c c8 iny Pufferzeiger erhöhen 

£f86d 8a 34 sty 534 und merken 

£86£ a6 56 ldx 556 1. GCR-Nibble 

£871 ba a0 £8 lda sf8a0,x Binär-Äquivalent Hi holen 

£874 a6 57 ldx 557 2. GCR-Nibble 

£876 id c0 £8 ora s£f8c0,x und Binär-Äquivalent Lo addieren 

£879 85 52 sta 552 1. Binärbyte merken 

£87b a6 58 ldx 558 3. GCR-Nibble 
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Binär-Äquivalent Hi holen 

4. GCR-Nibb,e 

und Binär-Äquivalent Lo addieren 
2. Binärbyte merken 

5. GCR-Nibble 

Binär-Äquivalent Hi holen 

6. GCR-Nibble 

und Binär-Äquivalent Lo addieren 
3. Binärbyte merken 

7. GCR-Nibble 

Binär-Äquivalent Hi holen 

8. GCR-Nibble 

und Binär-Äquivalent Lo addieren 
4. Binärbyte merken 

Ende 














Höherwertige Nibbles für die Umwandlung von von GCR-(5 
Bit)-Werten in Binär-(4 Bit)-Werte. Das GCR-Nibble dient 
dabei als Index und erreicht theoretische Werte von 0 bis 
31. An den Stellen mit $f£f in der Tabelle kann keine 
Umwandlung erfolgen, da der GCR-Wert illegal ist. 


Gleiche Tabelle, wie $£f8a0. Nur handelt es sich hier um die 
niederwertigen Nibbles. 





$53 
($2e),y 


$54 
($2e),y 


wandelt die GCR-(5 Bit)-Werte aus dem Ausweichpuffer $0100 
bis $Ol1£f£ in Binär-(4 Bit)-Werte um und legt diese im 
aktuellen Puffer ab. 

Indizes und Adressen löschen: 

Pufferzeiger 

Pufferadresse Lo 

Pufferzeiger 

Adresse für Ausweichpuffer Hi 

setzen 

Adresse Lo (ergibt $01ba) 

ebenfalls setzen 

Pufferadresse Hi 

kopieren 

5 GCR-Bytes aus Puffer in 4 Binärbytes wandeln 
erstes Binärbyte 

als Kennzeichen für Datenblock setzen 
Pufferzeiger holen 

zweites Binärbyte 

in Puffer schreiben 

Pufferzeiger erhöhen 

drittes Binärbyte 

in Puffer schreiben 

Pufferzeiger erhöhen 
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£907 a5 55 lda 555 viertes Binärbyte 

£909 91 2e sta ($2e),y in Puffer schreiben 

£90b c8 iny Pufferzeiger erhöhen 

£90c 84 36 sty 536 merken 

£90e 20 e6 £7 BerS Sf7e6 5 GCR-Bytes in 4 Binärbytes umwandeln 

£911 a4 36 ldy 536 Pufferzeiger holen 

2913 a5 52 lda 552 erstes Binärbyte 

£915 91 2e sta ($2e),y in Puffer schreiben 

£917 c8 iny Pufferzeiger erhöhen 

£918 £0 11 beq sf92b verzweige, wenn Puffer fertig 

£f9la a5 53 lda $53 zweites Binärbyte 

£9l1c 91 2e sta ($2e),y in Puffer schreiben 

£f9le c8 iny Pufferzeiger erhöhen 

EILE a5 54 lda 554 drittes Binärbyte 

£921 91 2e sta ($2e),y in Puffer schreiben 

£923 c8 iny Pufferzeiger erhöhen 

£924 a5 55 lda $55 viertes Binärbyte 

£926 91 2e sta ($2e),y in Puffer schreiben 

£928 c8 iny Pufferzeiger erhöhen 

£929 d0 el bne Ss£f90c verzweige, wenn Puffer noch nicht voll 

£92b A909 lda 553 zweites Binärbyte 

£92d 85 3a sta $3a als Prüfsumme setzen 

LI2E a5 2£ lda s2£ Pufferadresse Hi 

£931 85-31 sta s31 wieder zurücksetzen 

£933 60 rts Ende 

£934 Routine konvertiert die Bytes des aktuellen Blockheaders in 
GCR-codierte Bytes und legt diese ab $24 in der Zeropage 
ab. 

£934 a 31 lda 531 Pufferadresse Hi 

£936 83 2E sta Ss2£ setzen 

£938 a9 00 lda #500 Pufferadresse Hi auf Zeropage 

£93& 85 31 sta 531 setzen 

2938 a9 24 lda #524 Pufferzeiger auf $24 

£f93e 85 34 sta 534 setzen 

£940 a5 39 lda 539 Konstante $08; Kennzeichen für Blockheader 

£942 83: 52 sta 552 als erstes Binärbyte für Umwandlung 

£944 a5 a lda $Sla Prüfsumme des Blockheaders 

£946 83 53 sta 553 als zweites Binärbyte für Umwandlung 

£948 a5 9 lda s19 Sektornummer des Blocks 

£f94a 85 54 sta 554 als drittes Byte für Umwandlung 

£f94c a5 8 lda s18 Tracknummer des Blocks 

f94e 85 55 sera $55 als viertes Byte für Umwandlung 

£950 20:40. £6 JSE Ssf6d0 4 Binärbytes in 5 GCR-Bytes umwandeln 

£953 a5 7 lda 17 ID 2 des Blockheaders 

£9595 89-92 sta 552 als erstes Byte für Umwandlung 

£957 a5 6 lda $16 ID 1 des Blockheaders 

£959 853. 453 sta $53 als zweites Byte für Umwandlung 

£95b a9 00 lda #500 Null als Füllwert für 

£95A 85 54 sta 554 Byte drei und 

£95£ 89 05 sta $55 Byte vier 

£961 20 do £6 jsr Ssf6d0 4 Binärbytes in 5 GCR-Bytes umwandeln 

£964 as @2E lda s2£ Pufferadresse Hi 

£966 85 31 sta 531 wieder setzen 


£968 60 rts Ende 
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00 


£5 


Ausgang aus der Jobschleife mit Übergabe der Fehlernummer 
inA. 

Puffernummer für Job 

Rückmeldung in Jobspeicher 

noch GCR-Bytes vorhanden? 

verzweige, wenn nein 

sonst restliche GCR-Bytes in Binär umwandeln 

Zähler für Ausschaltverzögerung des Drivemotors setzen, um 
das Drive nach einer Nachlaufzeit abzuschalten 
Stackpointer zurückholen 

und setzen 
zurück zur Jobabfrage 








le 


lc 


a6 


Laufwerksmotor einschalten. Nach dem Einschalten wird noch 
0.4 sekunden gewartet, bis das Laufwerk für den Betrieb 
freigegeben wird, da der Motor eine Hochlaufzeit benötigt. 
Die Be:riebsbereitschaft des Laufwerks wird durch Bit 7 in 
$20 signalisiert (Bit 7 dann 0). 

Flag fur Motor im Anlaufen aber noch nicht 

auf Endgeschwindigkeit setzen 

Steuerport des Diskcontrollers 

Bit für Motor setzen 

otor anschalten 

Zähler für Anlaufverzögerung des Motors 

Zähler für Anlaufverzögerung des Motors 

auf 0.4 Sekunden (50 IRQs) setzen 

Ende 


Laufwerksmotor ausschalten, nachdem ein Zähler für die 
Ausschaltverzögerung in $48 und $35 die 12.3 Sekunden 
dauernde Verzögerung heruntergezählt hat. 

Drivenummer für Jobschleife 

Flag für Motor im Ausschaltmodus 

setzen, um 

otor nach Verzögerung abzuschalten 

Verzögerungszähler setzen; Ende 

unbenutzter Platzrest aus den 

1541 ROMs 





£99c 
EIIE, 
£9a2 
£9a5 
£f9a7 
£9a9 
f9ab 
f9ae 


lc 
le 
lc 


a6 


lda 
sta 
lda 
and 
cmp 
sta 
jmp 
nop 


$1c07 
$1c05 
S1c00 
#510 
Sle 
Sle 
$a634 


Diese Routine ist die zentrale Steuerroutine des 
Diskcontrollers im DOS (1541-Modus). Sie existiert noch 
einmal für den 1571-Modus und ist für die Laufwerks- und 
Steppermotorsteuerung verantwortlich. Sie bildet den 
jeweiligen IRQ-Abschluß nach Durchlauf der Jobschleife und 
wird alle 8 ms aufgerufen. 

Timer neu setzen 
IRQ-Status löschen 
anhand der Schreibschutzlichtschranke auf 
einen eventuellen Diskettenwechsel testen 

hat Wechsel stattgefunden? 

neuen Status merken 

Flags setzen; Diskette zentrieren; Rücksprung 
unbenutzter Speicherplatz, der 
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fYaf ea nop aus den alten 1541 ROMs 

£9b0 ea nop übriggeblieben ist 

£9bl ad fe 02 lda s02fe Flag für Kopftransport 

£9b4 £O > beq Sf9chb verzweige, wenn Kopf auf Track 

£9b6 c9 02 cmp #502 Kopf gerade auf Track positioniert? 

£9b8 d0O 07 bne sf9cl verzweige, wenn nein 

£9ba a9 00 lda #500 Flag für 'Kopf auf Track! 

£9bc 8d fe 02 sta s02fe setzen 

£9bf £0 0a beq Ssf9cb unbedingter Sprung 

£f9c1 85 4a sta S4a Kopf steht auf Halbspur; also muß Kopf einen 

2923 a9 02 lda #502 halben Track bewegt und 

19e5 8d fe 02 sta s02fe Flag für 'Kopf gerade positioniert! 

£9c8 4c 2e fa jmp Sfa2e gesetzt werden 

£9ch a6 3e ldx S3e Drivenummer für Jobschleife 

£f9cd 30 07 bmi s£f9d6 verzweige, wenn Drive inaktiv 

fIc£ a5 20 lda 520 Flags für Drivestatus 

£f9dl a8 tay merken 

£9d2 c9 20 cmp #520 Drivemotor an und bereit? 

£9d4 d0O 03 bne 5f9d9 verzweige, wenn nein 

£9d6 4c be fa jmp Sfabe zurück aus IRQ-Programm 

£9d9 c6 48 dec 548 Verzögerungszähler für Drivemotor vermindern 

£f9db d0O Id bne sf9fa verzweige, wenn ungleich 0 

£f9dd 98 tya Flags für Drivestatus zurückholen 

f9de 10 04 bpl S£f9e4 verzweige, wenn Drive bereit 

f9e0 29 7£ and #S7£ sonst Flag für Drive nicht bereit 

£f9e2 85 20 sta s20 löschen 

£f9e4 23,10 and #510 otor in Ausschaltphase? 

£9e6 £0 12 beq sf9fa verzweige, wenn nein 

£f9e8 €6. .35 dec $35 Verzögerung Hi für Ausschaltphase vermindern 

f9ea d0O 0e bne sf9fa verzweige, wenn ungleich 0 

f9ec ea nop Rest aus 1541-ROM 

f9ed 20 70 87 jsr 58770 Drivemotor abschalten 

£IEO a9 ££f lda #S£ff Flag für aktives Drive 

2972 85 3e sta $3e löschen 

£9£A a9 00 lda #500 Flags für Drivestatus 

£9£6 85 20 sta 520 löschen 

£9£8 £0 de beq s£f9d6 unbedingter Sprung 

f9fa 98 tya Flags für Drivestatus zurückholen 

£f9fb 29 40 and #540 soll Steppermotor aktiviert werden? 

£f9fd d0O 03 bne sfa02 verzweige, wenn ja 

£YEE 4c be fa jmp Sfabe zurück aus IRQ-Programm 

fa02 6c 62 00 jmp (80062) Sprung auf aktuelle Steppermotorroutine: 
$sfa05 - Initialisierung des Steppermodus 


$Sfa3b - kurzer Steppermodus 

Sfa4de - Beenden des Steppermodus 
$Sfa7b - Anfahren des Steppermotors 
$fa97 - schneller Steppermodus 
Sfaa5 - Abbremsen des Motors 


£a05 Initialisierung der Steppermotorsteuerung. 
£fa05 a5 4a lda S4a Anzahl der Stepperschritte (2 pro Track) 

fa07 10 05 bpl Sfa0e verzweige, wenn Bewegung nach innen (Track 35) 
£fa09 49 £f£ eor #S£f£ Komplement und Absolutwert 

fa0b 18 clc der Stepperschritte 

fa0c 69 91 adc #501 bilden 

fa0e c5 64 cmp 564 Distanz größer als $c8 (200) Schritte? 

falOo bo 0a bcs Sfalc wenn ja, dann schneller Steppermodus 


£fal2 a9 3b lda #$3b sonst Adresse 
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fal4 85 62 sta 562 Sfa3b für 

£fal6 a9 fa lda #S$fa langsamen Steppermodus 

£fal8 85 63 sta 563 setzen 

fala do 12 bne Sfa2e unbedingter Sprung 

falc e5 5e sbc $5e Schritte für Schnellmodus berechnen; 

fale e5 5e sbc $5e dafür Anzahl der Anfahr- und Bremsschritte 

£fa20 85 61 sta s61 (jeweils 4) von den gesamten abziehen 

fa22 a5 5e lda S5e Zahl der Anfahrschritte 

fa24 85 60 sta S60 setzen 

fa26 a9 7b lda #$7b Adresse $fa7b 

fa28 85 62 sta 562 für schnellen 

fa2a a9 f£a lda #Sfa Stepprmodus 

fa2c 85 63 sta 563 setzen 

fa2e a5 4a lda S4a Kopfbewegung nach innen? 

£fa30 1:0- 31 bpl sfa63 Kopf 1 Step nach innen bewegen, wenn ja 

fa32 4c 45 ££ jmp Ssff£f45 Nullanschlag prüfen; Bewegung nach außen 

fa35 ea nop unbenutzter Speicherrest 

fa36 ea nop durch Abänderung des 

fa37 ea nop 541 ROM 

£fa38 4c 69 fa jmp Ssfa69 Kopfbewegung 1 Step nach außen 

fa3b Langsamer Steppermodus für kurze Wege beim 
Kopfpositionieren. 

fa3b a5 4a lda S4a Anzahl der zu fahrenden Schritte 

fa3d d0 ef bne Sfa2e verzweige, wenn noch nicht Null 

fa3£f a9 4e lda #$4e Adresse $fa4e für 

fa4l 85 62 sta 562 Beenden der 

£fa43 a9 f£a lda #S$fa Kopfpositionierung 

fa45 85 63 sta 563 setzen 

fa47 a9 05 lda #505 5 Steps für Anhalten des 

£fa49 85 60 sta S60 Kopfes setzen 

fa4b 4c be fa jmp Sfabe zurück aus IRQ-Programm 

fa4e Beendigung der Kopfpositionierung; Zurücksetzen der Flags 
für die Kopfpositionierung. 

fa4e c6 60 dec S60 Zähler zum Abbremsen des Motors minus 1 

fa50 d0 6c bne Sfabe verzweige, wenn noch nicht fertig 

fa52 ao.+720 lda 520 Flags für Drivestatus 

fa54 29 5 and #Sbf Bit 6 löschen, da Steppermotor nicht mehr in 

fa56 85 20 sta 520 Betrieb ist; Flags setzen 

fa58 a9 05 lda #505 Adresse auf $fa05 

fa5a 85 62 sta 562 zur Rückkehr 

fa5c a9 fa lda #S$fa aus den Stepperroutinen 

fa5e 85 63 sta 563 setzen 

£fa60 4c be fa jmp Sfabe zurück aus IRQ-Programm 

fa63 Serviceroutine für Steppermotor. Hier wird die eigentliche 


Bewegung des Kopfes gesteuert. Dies geschieht nach 
folgendem Prinzip: Der Steppermotor verfügt übr 2 Spulen, 
die durch die Bits 0 und 1 im Steuerport des Disk- 
controllers gesteuert werden. Erhalten die Bits 
nacheinander die erte: 00/01/10/11/00/..., so wird der Kopf 
nach innen bewegt. Das pas- siert beim Einsprung von $fa63 
mit 'INX'. Erhalten die Bits jedoch die Werte: 
11/10/01/00/11/..., so wird der Kopf nach außen bewegt 
(Richtung Track 0). Das passiert beim Einsprung ab $fa69, 
der z.B. von der Routine bei $ff7e mit 'DEX' erfolgt. 
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fa63 c6 4a 


lc 


lc 


S4a 
$1c00 


Zähler für Steps vermindern 
Steuerport lesen 
Bitfolge 00/01/10/11/... herstellen 


und Wert übergeben 

Bits 0 und isolieren 

und abspeichern 

Steuerport lesen 

Bits 0 und löschen 

neuen Zustand der Bits einfügen 

und an Diskcontroller ausgeben 

zurück aus IRQ-Programm; Ende der Jobschleife 





le 


le 


Anfahren des Steppermotors im schnellen Steppermodus 
steuern. Für den schnellen Steppermodus wird dabei die IROQO- 
Periodik von 8 ms auf (8192-(Inhalt von $5£f*256))/1000) ms 
heruntergesetzt. Bei einem Wert von 4 in $5f heißt das, 
eine Zyklendauer von 7 ms, statt wie bisher 8 ms. 
Subtraktion vorbereiten 

Timer Hi für Jobschleife um den Anfahrfaktor 4 

für den Steppermotor verringern, um damit ein 

schnelleres Timing zur Kopfbewegung zu bekommen 

Anzahl der Anfahrschritte minus 1 

verzweige, wenn noch nicht 0 

jetzt schon den Zähler für das Abbremsen 

setzen 

Adresse $fa97 

für den schnellen 

Steppermodus 

setzen 

Kopf um einen Step bewegen 


Routine zur Steuerung des schnellen Stepper. modus. Dieser 
odus wird durch ein Heraufsetzen der IRQ-Frequenz 
initialisiert, was eine schnellere Kopfbewegung zur Folge 
hat, da der Schreib-/Lesekopf der 1571 genau jeden IRQ. 
Durchgang einen Step bewegt wird. 

Schrittzähler minus 1 

weitermachen, wenn noch nicht Null 

Adresse $faa5 

zum Abbremsen des 

Steppermotors 

setzen 

unbedingter Sprung zur Kopfbewegung 





faa5 ad 07 


faa9 > SL 
faab 8d 05 


Le 


lc 


s5f 
$1c05 


Routine zum Abbremsen des Steppermotors durch Verringern 
der IRQ-Taktfrequenz. 

Timer Hi durch Addition des Abbremswertes 

wieder auf die 

normale Geschwindigkeit bringen 

und neu starten 
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le 


Te 


Zähler für Bremsen vermindern 
weitermachen, wenn noch nicht 0 
Adresse $fa4e 

zur Beendigung 

des schnellen Steppermodus 
setzen 

Bremsfaktor zum Anhalten auf 5 
setzen 

BYTE READY-Leitung 
zurücksetzen; Status wieder 
herstellen 

zum Hauptinterruptprogramm; Ende des IRQ 


un) 
0} 
Mh 
jo 


AHhAhhhhhhhrhhhkk 


oO 
oO 
oO 





le 


le 


06 


06 


06 
Een 





lda 
bpl 
ldx 
lda 
sta 
lda 
sta 
sta 
lda 
sta 
lda 
and 
sta 
lda 
sta 
lda 
sta 
lda 
sta 
jmp 
ldy 
cmp 
beq 
sta 
jmp 
lda 
and 
bne 
lda 
jmp 
jsr 
ISE 
lda 
sta 
SE 
jsr 
jsr 
lda 











Jobroutine zum Formatieren einer Diskette im 1541-Modus. 
Diese Routine wird durch die Formatierungsroutine ab $c8c6 
initialisiert und über einen Vektor im RAM bei $0600 (jmp 
$Sfac7) angesprungen; der Rest wird über die Jobschleife 
gesteuert, indem während jeden Durchlaufs ein Track 
formatiert wird. 

Formatierung bereits im Gange? 

verzweige, wenn ja 

Drivenummer für Jobschleife 

Bit 5 und 6 zum Bereitmachen des Laufwerks 

setzen 

Track 1 für Beginn an Jobschleife 

übergeben und Track (ist auch Flag) für 

laufende Formatierung setzen 

46 Tracks nach außen fahren (entspricht 

-92 Schritten) ; BUMP ausführen 

Schrittphase für Kopfbewegung auf 

00 (Bit O0 und 1) 
setzen 

10 Fehlversuche erlauben 
Zähler setzen 
erster Schätzwert für halbe Kapazität 

50621 eines Tracks auf 4000 Bytes 

(80621/0622 = $O0faO) 

$0622 setzen 

Jobschleife; Kopf positionieren; Drive starten 
Index in Jobspeicher 

neuer Track gleich letztem Track? 

verzweige, wenn ja 

neue Tracknummer übernehmen 

und Kopf positionieren; zur Jobschleife 
Steuerport für Diskcontroller lesen 

WRITE PROTECT? 

verzweige, wenn nein 

Nummer der Fehlermeldung 

'26, WRITE PROTECT ON' ausgeben 

Track löschen; mit SYNC beschreiben 

50621/0622 mal $ff schreiben 

GCR-Leerbyte (0) 

zum Diskcontroller 

und $0621/0622 mal schreiben 

auf Lesen umschalten 

SYNC-Signal abwarten 

Timer 1 auf 
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£522 0d 0b 8 ora s180b 'free running mode' 

Eb25 8d 0b 8 sta s180b setzen 

£fb28 a9 62 lda #562 98 Taktzyklen entsprechen ca. 0.1 ms 
fb2a 8d 06 8 sta 51806 sta $1806 als Timerwert setzen 
fb2d a9 00 lda #500 Timer Hi auf 0 

fb2f 8d 07 8 sta 51807 Timer setzen 

£fb32 8d 05 8 sta 51805 Timer starten 

£b35 a0 00 ldy #500 Zähler zurücksetzen 

£fb37 a2 00 ldx #500 Zähler zurücksetzen 

£fb39 2c 00 [e! bit S1c00 auf Beginn der SYNC-Zone 

£fb3c 30 £ bmi sfb39 warten 

fb3e 2c 00 c bit S1c00 auf Ende der SYNC-Zone 

£fb4l 10 £ bpl Sfb3e warten 

£fb43 ad 04 8 lda 51804 Interrupts für Timerstart löschen 
£fb46 2c 00 {e! bit S1c00 Schleife zur Messung des Nicht-SYNC 
£b49 10 T bpl Sfb5c Bereichs 

fb4b ad 0d 8 lda $1804 IFR lesen 

fb4e 0a asl Timerbit nach Position 7 schieben 
fb4f 10 £5 bpl S£fb46 warten, wenn Timer noch nicht 0 
£fb51l e8 inx Zähler Lo erhöhen 

£b52 d0 ef bne Sfb43 weitermachen 

£fb54 c8 iny wenn Null, auch Zähler Hi erhöhen 
£b55 d0 ec bne Sfb43 weitermachen, wenn nicht abgelaufen 
£fb57 a9 02 lda #502 Nummer der Fehlermeldung 

£b59 4c d3 fd jmp sfdd3 '20, READ ERROR' ausgeben 

£fb5c 86 71 SER 571 Zählerstand als Wert für die Länge 
£fb5e 84a 72 sty 572 des $55-Bereichs merken 

£b60 a2 00 ldx #500 Zähler wieder 

£b62 a0 00 ldy #500 zurücksetzen 

£fb64 ad 04 18 lda 51804 Interrupts für Timerstart löschen 
£fb67 2c 00 Ic bit S1c00 Schleife zur Messung des SYNC 
fb6sa 30 11 bmi Sfb7d Bereichs 

£fb6c ad 0d 18 lda s1804 IFR lesen 

£fb6f 0a asl Timerbit nach Position 7 schieben 
£fb70 10: :£5 bpl Sfb67 warten, wenn Timer noch nicht 0 
£fb72 e8 inx Zähler Lo erhöhen 

£b73 d0 ef bne Sfb64 weitermachen 

£fb75 c8 iny wenn Null, auch Zähler Hi erhöhen 
£b76 d0 ec bne Sfb64 weitermachen, bis Überlauf 

£b78 a9 02 lda #502 Nummer der Fehlermeldung 

£fb7a 4c d3 fd jmp sfdd3 '20, READ ERROR' ausgeben 

£fb7d 38 sec Differenz der bei den 

fb7e 8a txa eßwerte 

£fb7£ e5 71 sbc 571 bi lden, um 

£fb&l aa tax den Größenunterschied beider Felder 
£fb82 85.20 sta 570 zu erhalten 

£fb84 98 tya Ergebnis 

£fb85 e5 72 sbc 572 nach $70/71 

£fb87 a8 tay bringen und 

£fb88 85 71 sta 571 merken 

fb8a 10 0b bpl Sfb97 verzweige, wenn Differenz größer Null 
£fb8c 49 ££ eor #S£ff Bytes invertieren 

fb3e a8 tay und den 

fbsf 8a txa Absolutwert 

£b90 49 £f£ eor #S£ff der 

£fb92 aa tax Differenz 

£b93 e8 inx bi lden 

£fb94 do 01 bne $Sfb97 verzweige, wenn ungleich Null 
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06 
06 


06 
06 
fb 


le 


fd 


06 


06 


18 
18 


06 


06 


06 


06 


iny 
tya 
bne 
cpx 
bcec 
asl 
rol 
eie 
lda 
adc 
sta 
lda 
adc 
sta 
jmp 
ldx 
ldy 
clv 
lda 
bpl 
bvc 
clv 
inx 
bne 
iny 
bne 
lda 
jmp 
txa 
asl 
sta 
tya 
rol 
sta 
lda 
and 
sta 
lda 
sta 
ldx 
ldy 
tya 
celc 
adc 
bec 
iny 
iny 
dex 
bne 
eor 
sec 
adc 
Ele 
adc 
bes 
dec 
tax 
tya 





Sfb9e 
#504 
Sfbb6 
s70 
s7ı 


s70 
50621 
50621 
s7ı 
50622 
50622 
sfb0c 
#500 
#500 


S1c00 
sfbce 
Sfbbb 


Sfbbb 


sfbbb 
#503 
sfdd3 


50625 


50624 
#Sbf 
s180b 
s180b 
#566 
50626 
43 
#500 


50626 
Ssfbfl 


Sfbea 
#S£ff 


#500 
50625 


sfc03 
50624 


danach 
prüfen, ob 
Differenz 


kleiner 4? 

verzeige, enn ja 

Wert verdoppeln 

und zum 

ert für 

die Länge der 

$0621 Bereiche 

($0621/0622) 

addieren 

Hi-Anteil des ertes 

ebenfalls addieren und merken 
essung mit neuen Werten beginnen 
Zähler ieder 

zurücksetzen 

Flag für BYTE READY löschen 
Steuerport des Diskcontrollers lesen 
verzeige, enn SYNC noch anliegt 
sonst Byte einlesen 

Flag wieder löschen 

Zähler Lo erhöhen 
weitermachen 

wenn Überlauf, auch Zähler Hi erhöhen 
weitermachen, bis Zähler abgelaufen 
Nummer der Fehlermeldung 

'21, READ ERROR' ausgeben 
Zählerwert 

mal 2 

und in $0624/0625 abspeichern 
Zählerert Hi 

mit Übertrag mal 2 

und ebenfalls abspeichern 
Timer 1 

Steuerbit löschen; 

Timer anhalten 

Gesamtanzahl aller 

Bytes 

berechnen, 

die auf 

diesen Track 

passen und 

somit 

geschrieben 

werden 

müssen 

Zähler vermindern 

und weiter addieren 
Absolutwert bilden 

wenn Zähler auf Null 

Übertrag addieren 

Anzahl der Bytes in 

den Blockzwischenräumen 
berechnen 

zZählwert Hi vermindern 

und 

den 
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£c05 49 ££ eor Sf£ Absolutwert bilden 

£c07 38 sec danach 

£c08 69 00 adc s00 den Übertrag addieren 

£fc0a 18 ele und 

£cob ed 24 06 adc 50624 testen, ob Spurkapazität überschritten wurde 
£fc0e 10 05 bpl $sfc15 verzweige, wenn nein 

£c10 a9 04 lda 504 Nunrner der Fehlermeldung 

EcT2 4c d3 fd jmp sfdd3 '22, READ ERROR' ausgeben 

Leis a8 tay Gesamtanzahl der Bytes 

£fc16 8a txa in den Zwischenräumen 

fe17, a2 00 1dx s00 geteilt durch die 

£c19 38 sec Anzahl der Sektoren 

£fcla e5 43 sbc 543 ergibt die Anzahl 

FEeLe b0O 03 bes sfc2l der Bytes pro 

fcle 88 dey Zwischenraum 

fcl£ 30 03 bmi sfc24 weitermachen 

£e21 e8 inx Zähler erhöhen 

£c22 do £5 bne srel9 weitermachen 

fc24 8e 26 06 stx 50626 Zahl der Bytes merken 

£c27 e0 04 cpx #504 Anzahl kleiner als 41 

£c29 b0O 05 bes sfc30 verzweige, wenn nein 

£fc2b a9 05 lda #505 Nummer der Fehlermeldung 

£c2d 4c d3 fd jmp Ssfdd3 '23, READ ERROR' ausgeben 

£c30 18 ele und 

FosL 65 43 adc 543 Rest der Division plus Anzahl der Sektoren 
£c33 8d 27 06 sta 50627 merken 

£c36 a9 00 lda #500 Zähler für die Sektoren pro Track 
£c38 8d 28 06 sta 50628 setzen 

£c3b a0 00 ldy #500 Zeiger in Puffer 

£c3d a6 3d ldx S3d Drivenummer für Job 

EC3E a5 39 lda 539 Kennzeichen S08 für Blockheader 
£c4l 99 00 03 sta 50300,y in Puffer schreiben 

£fc44 c8 iny ein Byte für die Prüfsumme 

£c45 c8 iny überspringen 

£fc46 ad 28 06 lda 50628 Nummer des entsprechenden Sektors 
£fc49 99 00 03 sta 50300,y in den Puffer schreiben 

£c4c c8 iny nächstes Byte 

fc4d a5 51 lda 551 aktuelle Tracknummer der Formatierung 
fc4f 99 00 03 sta 50300,y in den Puffer schreiben 

£652 c8 iny nächstes Byte 

£c53 ba, 12 lda $13,x ID 2 

£c55 99 00 03 sta 50300,y in den Puffer schreiben 

£c58 c8 iny nächstes Byte 

2059 b5 22 lda 512,x ID 1 

fc5b 99 00 03 sta 50300,y in den Puffer schreiben 

£c5e c8 iny nächstes Byte 

£fc5£f a9 0£ lda #S0f sof als Füllbyte 

£c61l 99 00 03 sta 50300,y zweimal 

£c64 c8 iny in den 

£c65 99 00 03 sta 50300,y Puffer schreiben 

£c68 c8 iny nächstes Byte 

£c69 a9 00 lda #500 Startwert für Summe 

£c6b 59 fa 02 eor 502£fa,y Prüfsumme 

fc6e 59 fb 02 eor S02£fb,y über alle 

£fc7l 59% £©.,..02 eor S02fc,y Parameter 

£fc74 59%- “fd .02 eor So2fd,y berechnen 

£c77 99. :%9- 2.02 sta S02£9,y und in Puffer schreiben 


£fc7a ee 28 06 inc 50628 Nummer des Sektors erhöhen 
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£c7d ad 28 06 lda 50628 und 

£c80 c5 43 cmp 543 auf maximale Sektornummer testen 
£c82 90 bb bec Ssfc3£ nächsten Blockheader, wenn nicht erreicht 
£c84 98 tya Endeposition im Puffer 

£c85 48 pha merken 

£c86 e8 inx 500 + 1 (nnötig; eigentlich NOP) 
£c87 8a txa als 'dummy' (Leerinhalt) 

£c88 94 00 05 sta 50500,x in den Puffer schreiben 

Fo8b e8 inx und 

£fc8c a0 fa bne sfc88 gesamten Puffer vollschreiben 

fc8e a9 03 lda #503 Pufferadresse Hi auf $03 

£c90 85 31 sta s31 setzen 

£c92 20 30 f£e jsr Ssfe30 Pufferinhalt nach GCR umwandeln 
LE93 68 pla Endeposition im Puffer zurückholen 
£c96 a8 tay und wieder als Index 

£c97 88 dey minus 1; Pufferinhalt ab $0300,Y 
£c98 20 e5 fd jsr Sfde5 nach $0344,Y verschieben; GCR-Bytes in den 
2095 20 € E£ jsr sfdf5 freigewordenen Bereich davor schieben 
£c9e a9 05 lda #505 Pufferadresse Hi $05 

£fca0 83: 341 sta s31 setzen 

£fca2 20 e9 £5 jsr sf5e9 Prüfsumme über Datenblock berechnen 
£ca5 85 3a sta s3a und abspeichern 

fca7 20: -8E- .£7 jsr SfeT8£ Datenblock in GCR-Code umwandeln 
fcaa a9 00 lda #500 Zeiger auf Blockheader 

fcac 85 32 sta 532 setzen 

fcae 20 0e fe jsr Sfe0de Track löschen; DC auf Schreibbetrieb 
£cbl a9 £ lda #Sff SYNC-Markierung 

£cb3 8a 01 & sta S1c0l auf Diskette 

£cb6 a2 05 1dx #505 schreiben, d.h. 5 mal 

£cb8 50 fe bvc Sfcb8 den Wert Sf£ 

£fcba b8& clv auf die Diskette 

£fcbb ca dex bringen 

echbe do fa bne Sfcb8 und weitermachen 

£cbe a2 0a 1dx #50a 10 Bytes 

£fccO a4 32 ldy 532 Pufferzeiger (für Blockheader) 

Ece2 50 fe bvc Sfcc2 Schreiben abwarten 

fcc4 b8 clv Flag löschen 

£fcc5 b9 00 03 lda 50300,y Blockheader aus Puffer 

£fcc8 8d 01 Ic sta S1c0l auf die 

£fccb c8 iny Diskette 

fcecc ca dex schreiben und zwar 10 GCR-Bytes 
fccd do £3 bne Seee2 weiter, bis alle Bytes geschrieben wurden 
£fcc£ a2 09 1dx 509 9 'Leerbytes' 

£cdl 50 fe bvc Sfcdl schreiben 

£cd3 b8 elv Flag löschen 

£cd4 #9. 55 lda $55 'Leerbyte' 

£cd6 8a-0. Ig sta S1c0l zum Diskcontroller 

£cd9 ca dex nächstes Byte 

fcda do -£5 bne Sfcdl alle 9 Bytes schreiben 

£fcdc a9 ££ lda Sf£ Wert für SYNC-Markierung 

fcde 42-05 ldx 505 5 Bytes 

£fce0 50 fe bvc Sfce0 als SYNC-Markierung 

fce2 b8 clv auf 

fce3 8d 01 Ic sta S1c0l die Diskette 

£fce6 ca dex schreiben 

fce7 do £7 bne Sfce0 weitermachen, bis fertig 

fce9 a2 bb ldx #S$bb Index in Ausweichpuffer 

fceb 50 fe bvc Sfceb Schreibvorgang abwarten 
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fced b8 clv Flag löschen 

fcee bda 00 01 lda 50100,x Byte aus Ausweichpuffer 

Earl 8d 01 Ic sta S1c0l auf Diskette schreiben 

£cf4 e8 inx nächstes Byte 

£c£5 a0 f£4 bne Sfceb weitermachen, bis 70 Byte auf Diskette 
£c£7 a0 00 ldy #500 Index für aktuellen Puffer 

ECEI 50 fe bvc sfc£9 Schreibvorgang abwarten 

fcfb b8 clv Flag löschen 

£cfc bl 30 lda ($30),y Byte aus Puffer holen 

fcfe 8a 01  Ig sta S1c0l und auf Diskette schreiben 

£fdol c8 iny weitermachen, 

£d02 d0 £5 bne sfc£9 bis der gesamte Puffer geschrieben wurde 
£d04 a9 55 lda #555 'Leerbyte' 

£d06 ae 26 06 ldx 50626 Größe der Lücken holen 

£d09 50 fe bvc sfd09 Schreibvorgang abwarten 

£fd0b b8 clv Flag löschen 

£d0c 8d 01 Ic sta $S1col Byte auf Diskette schreiben 

fd0f ca dex nächstes Byte, 

£fd10 d0 .£7 bne sfd09 bis Lücke fertig 

£fd12 as 32 lda 532 Zeiger auf Blockheader in Puffer 
fdl4 18 clc mit 

£d15 69 0a adc #50a 10 addieren 

£d17 85 32 sta 532 zeigt jetzt auf nächsten Blockheader 
£d19 ce 28 06 dec 50628 nächste Sektornummer 

fale d0 93 bne Sfcbl weitermachen, wenn noch nicht alle geschrieben 
fdle 50 fe bvc sfdle Schreibvorgang abwarten 

£fd20 b8 clv Flag wieder löschen 

fad2l 50 fe bvc sfa2l Schreibvorgang abwarten 

£d23 b8 clv Flag wieder löschen 

fd24 20 00 fe jsr Ssfe00 Diskcontroller auf Lesen umschalten 
2q27 a9 c8 lda #508 200 Leseversuche 

£fd29 8d 23 06 sta 50623 setzen 

fd2c a9 00 lda #500 Pufferadresse Lo 

fd2e 85 30 sta s30 setzen 

£fd30 a9 03 lda #503 Pufferadresse Hi auf $03 

£fd32 83, 81 sta s31 setzen 

£fd34 a5 43 lda 543 Anzahl der Sektoren pro Track 

£fd36 8d 28 06 sta 50628 merken 

£d32 20 3 E jsr sf556 SYNC-Signal abwarten 

£fd3c a2 0a 1dx #50a 10 Bytes für Blockheader 

fd3e a0 00 ldy #500 Pufferzeiger 

fd40 50 fe bvc Sfd40 Byte lesen 

£fd42 b8 clv Flag für BYTE READY löschen 

£d43 ad 01 Ic lda S1c0l Byte vom Diskcontroller holen 

£fd46 di 30 cmp ($30),y und mit Speicherinhalt vergleichen 
£d48 d0O 0e bne sfd58 verzweige, wenn ungleich 

fd4a c8 iny Zeiger auf nächstes Byte 

fd4b ca dex Zähler vermindern 

fd4c do £2 bne Ssfd40 weitermachen, bis 10 Bytes verglichen 
fd4e 18 ec Pufferadresse 

fd4f a5 30 lda s30 um 10 erhöhen; zeigt jetzt auf den 
£fd51 69 0a adc #50a nächsten Blockheader 

£d53 85 30 sta s30 Pufferadresse setzen 

£d55 4c 62 fd jmp sfd62 weitermachen; alles ok 

£d58 ce 23 06 dec 50623 Fehlerzähler minus 1 

fd5b 10 CE bne sfd2c weitermachen, wenn ungleich 0 

fA5d a9 06 lda #506 Nummer der Fehlermeldung 


fa5£f 4c d3 fd jmp sfdd3 '24, READ ERROR' ausgeben 
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29 


16 
01 


lc 
05 


06 


£9 











SYNC.Signal abwarten 

Zeiger in Ausweichpuffer 

Byte lesen 

Flag für BYTE READY löschen 

Byte vom Diskcontroller holen 

mit Pufferinhalt vergleichen 

verzweige, wenn ungleich 

sonst Zeiger auf nächstes Byte 

und weitermachen 

Zähler für Anzahl der Bytes im Datenpuffer 
Byte lesen 

Flag löschen 

Byte vom Diskcontroller holen 

und mit Pufferinhalt vergleichen 
verzweige, wenn ungleich 

Zeiger auf nächstes Byte 

Zähler vermindern 

weitermachen; nächstes Byte vergleichen 
Sektorzähler vermindern 

nächsten Sektor testen 

Tracknummer für Formatierung plus 1 

und mit 

Maximalwert 36 vergleichen 

verzweige, wenn größer gleich 

sonst Kopf positionieren und weitermachen 
Flag für Formatierung beendet 

setzen 

Flag für GCR-Bytes im Puffer 

löschen 
Nummer der Rückmeldung 
'00, OK' ausgeben; Ende 


Spur durch Beschreiben mit 10240 $ff-Bytes löschen. 
PCR lesen 
und 

auf Schreibbetrieb 
umschalten 
Port für Schreib-/Lesekopf 
auf Ausgang 

Byte zum Diskcontroller 

und 

10240 mal 

Byte auf Diskette schreiben 
Flag löschen 

nächstes Byte 

schreiben 

und weitermachen 

bis 10240 mal geschrieben 
Ende 





2 
22 
fe 


06 
06 


abwarten. 

Index Lo 

Index Hi 

BYTE READY abwarten 
Flag löschen 

Index Lo vermindern 





Eine in $0621/0622 gegebene Anzahl von BYTE READY Signalen 
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fa 


sfdc9 


sfdc9 


und weitermachen 
Index Hi vermindern 
und weitermachen 
Ende 


06 


£9 


Fehler, wenn Null 
sonst weitermachen 


setzen 

Y=00 

Flag für GCR-Bytes im 
Ende; Fehlernummer in 


Fehlerausgang beim Formatieren 
Zähler für Versuche minus 1 


Flag für Ende der Formatierung 


Puffer löschen 


$0300,y 
$0345,y 


Schiebt die ersten 69 
Positionen nach oben, 
Byte vom Anfang holen 





($45) Bytes in Puffer 0 um 69 
um am Anfang Platz zu bekommen. 


und weiter oben ablegen 


Zähler vermindern 
und weitermachen 
erstes Byte am Anfang 


ebenfalls nach oben schieben 


Ende 


01 


4544 
$Olbb,y 
($30),y 


Sfdf7 


Puffer. 


Zeiger vermindern 
und weitermachen 
Ende 


Holt den Inhalt des Ausweichpuffers in den aktuellen 


Zeiger in Ausweichpuffer 
Byte aus Ausweichpuffer 
in aktuellen Puffer übernehmen 


PCR lesen 

und auf Lesebetrieb 
umschalten 
Richtungsregister für 
auf Eingang 

Ende 


Diskcontroller auf Lesen umschalten. 


Schreib-/Lesekopf 


fa 














PCR lesen 
und 
auf Schreibbetrieb 
umschalten 
Richtungsregister für 
auf Ausgang setzen 
Byte 

an Diskcontroller 

und 

10240 mal 

Byte schreiben 

Flag löschen 

Zähler vermindern 

und weitermachen 








überschreibt eine Spur mit 10240 $55 Bytes. 


Schreib-/Lesekopf 
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fe2c ca dex Zähler Hi vermindern 

fe2d do £7 bne Sfe26 und weitermachen 

fe2£f 60 rts Ende 

fe30 wandelt die Bytes des Blockheaders von Binär-(4 Bit)-Form 
in die GCR-(5 Bit)-Form um und schreibt diese Werte in den 
Ausweichpuffer. 

fe30 a9 00 lda 500 Puffer adressen und Indizes löschen: 

fe32 85 30 sta s30 Puffer adresse Lo 

fe34 85 2e sta S2e Pufferadresse Lo 

fe36 85 36 sta 536 Pufferzeiger 

fe38 a9 bb lda Sbb Pufferzeiger für Ausweichpuffer 

fe3a 85 34 sta 534 setzen 

fe3c a8. Sl lda s31 Pufferadresse Hi des aktuellen Puffers 

fe3e 83: @E sta Ss2£ übernehmen 

fe40 a9 01 lda sol Pufferadresse Hi 

fe42 85 31 sta 531 setzen 

fe44 a4 36 ldy 536 Pufferzeiger holen 

fe46 bl 2e lda ($2e),y Byte aus Puffer 

fe48 85: 52 sta 552 für Umwandlung 

fe4a c8 iny nächstes Byte 

fe4b bl 2e lda ($2e),y Byte aus Puffer 

fe4d 83 53 sta 553 für Umwandlung 

fe4f c8 iny nächstes Byte 

fe50 bl 2e lda ($2e),y Byte aus Puffer 

fe52 85 54 sta 554 für Umwandlung 

fe54 c8 iny nächstes Byte 

fe55 bl 2e lda ($2e),y Byte aus Puffer 

fe57 85 55 sta $55 für Umwandlung 

fe59 c8 iny nächstes Byte 

fe5a = 08 beq Sfe64 verzweige, wenn Ende 

fe5c 84 36 sty 536 Pufferzeiger merken 

fe5e 20 do £6 jsr S£f6d0 4 Bytes in 5 GCR-Bytes umwandeln 

fe6l 4c 44 fe jmp Sfe44 weitermachen 

fe64 4c do £6 jmp Sf6d0 4 Bytes in 5 GCR-Bytes umwandelnj Ende 

fe67 System-IRQ-Routinej wird über den Hardwarevektor 
angesprungen. 

fe67 6c a9 02 jmp ($02a9) Sprung zu den Routinen $9d88 oder $9dde 

feba ff... leerer Speicherbereich 

fe84 ... ff aus 1541 ROM' 

fe85 Werte für Organisation des Directory. 

fe85 12 Spurnummer des Directory (18) 

fe86 04 Anzahl der Bytes pro Spur in der BAM (4) 

fe87 04 BAM steht in 18,0 ab Position 4 

fe88 90 Anfang des Diskettennamens bei Position 144 

fe89 ASCII-Codes der einzelnen Floppy-Befehle. 

fe89 56 V = VALIDATE oder COLLECT Befehl 

fe8a 49 I = INITIALIZE Befehl 

fesb 44 D = DUPLICATE Befehl (n.v.) 

fe8c 4d M = MEMORY Befehle 

fe8d 42 B = BLOCK Befehle 

fe8e 55 U = USER Befehle 

fesf 50 P = POSITION oder RECORD Befehl 

fe90 26 & = &-Befehl 








! @ST: Der Speicherbereich $FE6A .. $FE84 ist nicht wirklich leer, er enthält Reste der IRQ-Routine aus der 1541. 
Wird aber nicht benutzt. 


C Das dokumentierte ROM-Listing der 1570/71 





COPY Befehl 

RENAME Befehl 

SCRATCH Befehl 

= NEW oder HEADER Befehl 


zunwn 
Il 


Lo 


Adresse Hi 


feal 
fea2 
fea3 
fea4 
fea5 
fea6 
fea7 


fea8 


ed 
d0 
c8 
ca 
cc 
cb 
e2 
e7 
c8 
ca 
c8 


Adressen der einzelnen Floppy-Befehle. 


Adresse Befehl 


$Sed84 = VAL !DA TE 
$d005 = INITIALIZE 
$c8c1 = DUPLICATE (n.v.) 
Scaf8 = MEMORY 
$cclb = BLOCK 
Scb5c = USER 

$e207 = POSITION 
Se7a3 = &-Befehl 
Sc8£f0 = COPY 

$ca88 = RENAME 
$c823 = SCRATCH 
See0d = NEW 


%01010001 
%11011101 
00011100 
%10011110 
00011100 


Kopieren eines Files 
Umbenennen eines Files 
Löschen eines Files 
Formatieren einer Diskette 
Laden eines Files 


R = READ; Lesen eines Files 
W = WRITE; Schreiben eines 


= MODIFY; Lesen eines off 


Bitmuster für Befehlssyntax. 


ASCII-Bytes der Filebetriebsarten. 


Files 


A = APPEND; Anhängen von Daten im File 


engebliebenen Files 





Kürzel der Filetypen. 
D = DELETED File 

S = SEQUENTIAL File 

P = PROGRAM File 

U = USER File 

Lı = RELATIVE File 








Bezeichnung der Filetypen im Directory. 


44 
53 
50 
> 
52 


fecO 


45 
45 
2 
53 
45 


fec5 


4c 
51 
47 
52 
4c 


DELeted file 
SEQuential file 
PRoGram file 
USeR file 
RELative file 


askenbytes für LED am Lauf 
LED-Maskenbyte für Laufwerk 
LED-Maskenbyte für Laufwerk 





werk. 
0 
1 (n.v.) 


Werte für Fehlermeldungen, 
andere Routinen übergeben. 
Z-Flag gesetzt 

kein Flag gesetzt 





die über den Prozessorstatus an 
werden. 
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fef£3 

fef£3 8a 
fef4 a2 05 
fe£f6 ca 


#505 


V-Flag gesetzt 
N-Flag gesetzt 


N-Flag und V-Flag gesetzt 


Maximalzahl der Sektoren für einen Track. 


17 Sektoren auf Spur 
18 Sektoren auf Spur 
19 Sektoren auf Spur 
21 Sektoren auf Spur 


Format-Zeichen. 


'A'; Formatkennzeichern der DOS-Version 
Anzahl der Zonen auf der Diskette mit verschiedenen 
Sektorzahlen pro Spur 


Spurnummern, bei denen ein Zonenwechsel und ein Wechsel des 


Timings beim Schreiben und Lesen stattfindet. 


Spur 36 = Ende der Zone 31-35 


Steuerbytes für die Kopfdejustierung bei Leseproblemen. 
Kopf wird dabei eine Halbspur nach innen, 


Der 


Halbspuren nach außen und wieder eine Halbspur nach innen 


bewegt. Dann steht er wieder normal auf der Spur. 


ein Halbschritt nach 
ein Halbschritt nach 
ein Halbschritt nach 
ein Halbschritt nach 
Endekennzeichen 


50300-03fF£) 
S0400-04££f 
50500-05£ 
50600-06f 
50700-07£ 
50700-07£ 





( 
( 
( 
( 
( 
( 


ehemalige ROM-Prüfsumme; 





Sprungvektor des NMI; 


innen 


Hi-Bytes der Pufferadressen. 


jetzt leer. 


zeigt auf $eb22 und führt den 
'kurzen' RESET ohne Speichertest aus. 


Sprung auf $eb22 (normalerweise) 


LED am Laufwerk einschalten; 


LED setzen. 


LED einschalten (A enthält bei Einsprung 8) 
entsprechendes Pin auf Ausgang 


und weiter in Fehlerroutine 


Verzögerung für seriellen Bus. 


Inhalt von X merken 
Wert für Verzögerung 
25 us Verzögerung 


Datenrichtungsreregister für 
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terfT do fd 


Sfef6 


ablaufen lassen 
X wieder zurückholen 
Ende 


fe£f9 aa 
fefa 60 
fefb 


CLOCK OUT auf Lo und DATA OUT auf Hi setzen. 
CLOCK OUT-Leitung auf Lo setzen 
DATA OUT-Leitung auf Hi setzen; Ende 


02 


Einsprung vom UI-Befehl. Hier kann die Floppy durch '"UI+' 
auf 64er und durch 'UI-' auf VC20 Modus umgeschaltet 
werden. 

drittes Zeichen aus Befehlsstring 


mit '-' (Minus) vergleichen 
verzweige, wenn Minus (UI-) 
sonst 


mit '+' (Plus) vergleichen 

verzweige, wenn kein Plus 

Flag für schnelleren Busbetrieb setzen 
Ende 


RESET für Datenrichtungsregister A im Buscontroller 
Wert in Datenrichtungsregister 

Wert für Port B 

zur RESET-Routine für 1571-Bausteine 


££fo0l 

££fOl ad 02 
£f£fO04A c9 2d 
££O06 £0 05 
££08 38 
££09 e9 2b 
£f£fOb d0O da 
£fOd 85 23 
EFOE 60 
££f10 

£f£f10 8e 03 
££f13 a9 02 
£ff£f15 4c 5a 
££f18 

£ff£18 a9 la 
ffla 8d 02 
£ffld 4c a7 


RESET für Datenrichtungsregister B in Buscontroller. 
Wert für DDRB 

setzen 

und zurück zur RESET-Routine 





Auf Hi der DATA IN-Leitung warten; Timer setzen. 
Port lesen 

Bit für DATA IN isolieren 

warten, bis Bit 0 (Leitung Hi) wird 

Wert für Timer 

Timer setzen 

Ende 


f£f3f8d ac 
0 £ff3£f8d d7 
F42 4c 79 





Ht+hhhhhhhh 
m} 
w 
oo 
fon 
oO 
oO 
w 


1.8 


02 
fe 
a7 


Vorbereitung für Formatieren einer Diskette. Nach Testen 
der gewünschten Formtierung wird entweder im 1541 oder im 
1571-Modus formatiert. 

Flag für "Formatierung startet' 

setzen 

auf 1541-Modus (1 Mhz) 

testen 

verzweige, wenn Floppy im 1571-Modus (2 Mhz) 

sonst 36 Spuren für Formatierung 

nächsten Befehl überspringen 

71 Spuren für Formatierung 

setzen 

nicht setzen (ROM) 

zur Formatierung... 
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£ff£f45 Routine für die Steppermotorsteuerung bei der Bewegung des 
Kopfes nach außen. Es wird hierbei laufend auf das 
Erreichen der Spur 0 getestet, um den Kopf rechtzeitig (vor 
dem Anschlag) stoppen zu können. 

£f45 98 tya Inhalt des Y-Registers 

ff£f46 48 pha retten 

£f£f47 a0 64 ldy #564 100 Versuche; Verzögerung für Stepdauer 

ff£f49 ad 0£ 18 lda S180£ Steuerport lesen 

ff4c sa ror Bit für Nullanschlag-LED ins Carry 

ff4d 08 php und Status merken 

ff4e ad 0£ 18 lda S180£ Steuerport lesen 

ff5l 6a ror Bit für Nullanschlag-LED 

££f52 6a ror auf Position 7 schieben 

£f£f53 28 plp und Status zurückholen 

£f£f54 29 80 and #580 Bit 7 testen 

£f£56 90 04 bcec S£f£f5c verzweige, wenn Null beim ersten Test 

£f£f58 10 1d bpl S£f£77 verzweige, wenn kein Nullanschlag beim 2. Test 

£ff5a 30 02 bmi sff5e unbedingter Sprung; Stepperbewegung abwarten 

ff5c 30.19 bmi S£f£77 Spur Null erst beim zweiten Test erreicht 

ff5e 88 dey Kopfbewegung noch nicht beendet? 

f£5£ d0 e8 bne S£ff49 weitertesten, bis Kopf stillsteht 

£f61l bo 14 bcs S£f£77 verzweige, wenn Nullanschlag nicht erreicht 

£f£f63 ad 00 Ic lda $1c00 Null erreicht; Kopfstatus prüfen 

£f66 29 03 and #503 Bits isolieren 

£ff£f68 d0 0d bne S£f£77 verzweige, wenn Stepper aktiv 

ff6a a5 7b lda $7b sonst Testen auf Sonderstatus bei Kopfbewegung 

£f6c d0 09 bne S£f£77 verweise, wenn ja; Kopf weiter bewegen 

£ff6e 68 pla Y-Register 

f£6£ a8 tay zurückholen 

££70 a9 00 lda #500 Null für Anzahl der Schritte 

££12 85 4a sta S4a setzen und 

£f£74 4c be fa jmp Sfabe Kopfbewegung damit stoppen 

er 68 pla Y-Register 

£f£78 a8 tay zurückholen 

£f£79 e6 4a inc S4a Anzahl der Schritte plus 1 (entspricht minus 1) 

f£7b ae 00 e ldx $1c00 Kopfstatus für Spulensteuerung holen 

£ff7e ca dex nächsten Teilschritt für Steppermotor setzen 

FETTE 4c 38 fa jmp sfa38 zur Kopfsteuerung 

£ff82 Floppy auf 1541-Modus stellen. 

£f82 20 59 £2 jsr sf259 Diskcontroller initialisieren 

£f85 a9 05 lda #505 Schreib-/Leseabstand der Sektoren für 

£f£87 85 3c sta S3c FM wählen; bei 1541 nicht benutzt 

£f£f89 a9 88 lda #588 Interruptverktor für den Aufruf 

ff8b 8d a9 02 sta s02a9 der Jobschleife auf $9d88 für 

ff8e a9 9d lda #59A die Jobschleife der 1541 

££90O 8d aa 02 sta S02aa setzen 

££93 a9 24 lda #524 36 als maximale Sektoranzahl 

*1 ££9588 ac 02 sta S02ac setzen 

=) EE9584- d7 fe sta Sfed7 nicht setzen (ROM) 

££f98 18 ele Flag für Seite 0 der Diskette 

££99 4c £3 93 jmp $93£3 setzen; Diskseite setzen; Ende 

ff£f9c Drive für Betrieb vorbereiten. 

£f£f9c 85 :EE sta Ssf£ Drivestatus setzen 

ff9e 4c 00 ci jmp Sc100 LED einschalten; Ende 
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ffal Kopf um einen Schritt nach innen oder außen bewegen. 

ffal 85 7b sta 57b Wert für Kopfpositionierung merken 

£ffa3 4c 76 d6 jmp 5d676 Kopf bewegen; Ende 

ffa6 Kopf wieder auf Track positionieren; Wert für Verschiebung 
löschen. 

ffa6 20 76 d6 jsr $d6 76 Kopf wieder auf Track setzen 

£ffa9 a9 00 lda #500 Anzahl der 'Dejustierschritte' 

ffab 85 7b sta $7b löschen 

ffad 60 rts Ende 

ffae Pufferzeiger für Kanalnummer setzen. 

ffae ad 82 ldy 582 Kanalnummer holen 

£fb0 4c de d3 jmp Sd3de Pufferzeiger entsprechende setzen; Ende 

£fb3 FE 2... Leerbereich; 

£ffe5 PER x = wird nicht benutzt. 

ffe6 Tabelle der Systemsprungvektoren. 

ffe6 c6 c8 Formatierung einer Diskette 5c8c6 

ffe8 8f £9 Laufwerksmotor ausschalten SfY8E 

ffea 5f cd Ul UA Vektor; Block lesen Sca5f 

ffec 97 cd U2 UB Vektor; Block schreiben $cd97 

ffee 00 05 U3 UC Vektor; Userprogramm 50500 

Tito 02 05 U4 UD Vektor; Userprogramm 50503 

£f£f£2 06 05 U5 UE Vektor; Userprogramm 50506 

£ff£f4 09 05 U6 UF Vektor; Userprogramm 50509 

f£f£f6 0c 05 U7 UG Vektor; Userprogramm 5050c 

f£f£8 0£ 05 U8 UH Vektor; Userprogramm So50£f 

fffa 01 ££ U9 UI Vektor; NMI-Vektor S££Ol 

fffc a0 ea U: UJ Vektor; RESET-Vektor Seaao 

fffe 67 fe IRQ-Vektor; Sfe67 


DOS V3.0 1571 (c) by Commodore Business Machines 
ROM-Dokumentation: Copyright Oktober 1985 Karsten Schramm 
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Adresse Inhalt 


$8030 Behandlung der UO-Befehle 

$806e Jobcodes der UO-Routinen 

$808e Adressen der UO-Routinen 

$80ce ATN vom seriellen Bus empfangen (1571) 

$8199 DRF senden 

$81b2 1571-Bus auf Empfang schalten 

$8lce 1571-Bus auf Senden schalten 

$8lea Ausgabe auf 1571-Bus 

$823d Ein Byte auf 1571-Bus ausgeben 

$8276 Ein Byte auf 1541-Bus ausgeben 

$82c7 Byte vom 1571-Bus holen (nach LISTEN) 

$8342 Byte vom 1571-Bus in den aktuellen Puffer übernehmen 
$8371 BURST-READ eines MFM-Sektors 

$8394 Sektor von Diskette lesen 

$83ec BURST-WRITE eines Sektors vom Puffer auf Disk (MFM+GCR) 
$848b INQUIRE DISK: Initialisierung einer Disk (MFM+GCR) 
$84b7 FORMAT-DISK: Formatierung einer Disk (MFM+GCR) 
$84fl SECTOR- INTERLEAVE 

$8517 QUERY-DISK: Formatanalyse 

$856b INQUIRE-STATUS: Setzen oder Lesen des Burst-Status 
$8581 Burst-Status auf Bus ausgeben 

$8596 Übermittelten Burst-Status übernehmen 

$85a5 BACKUP (nicht möglich) 

$85af Kopfpositionierung auf einen Track 

$85f6 Byte in $46 auf 1571-Bus ausgeben 

$861e Berechnung der nächsten Sektornummer 

$864b Job ausführen mit Retry 

$865e LED ein; Job für Puffer O ausführen; LED aus 

$869d Warten auf Änderung des CLOCK-IN-Signals 

$86b9 Tabelle der Steuerbytes für 1571-Diskettenzugriffe 
$86c8 Adressentabelle für 1571-Steuerroutine 

$8666 Steuerroutine für MFM-Betrieb 

$8764 Drivemotor ein 

$8770 Drivemotor aus 

$877c LED einschalten 

$8788 LED ausschalten 

$87b0 Warten, bis Drive bereit ist 

$87ba Kopf auf neuen Track setzen 

$87df Kopf einen Step nach innen steuern 

$87e7 Kopf einen Step nach außen bewegen 

$8830 Verzögerung 1.3 ms 

$883c Status des MFM-Controllers holen 

$8834e Kommando an MFM-Controller übergeben 

$8861 Ausführung eines Kommandos abwarten 

$886c Nächster Sektor = Sektor + Interleave 

$88f0 Verify eines MFM-Sektors bei der Formatierung 

$891b Track für Formatierung aus Befehlszeile holen 

$892a MFM-Sektorheader lesen mit Retry 

$8954 Kopf auf Diskettenseite ($39) aktivieren 


$8961 kleinste und größte Sektornummer aus Tabelle 
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$8986 Interleave aus Sektorfolge errechnen 

$89b3 Init des MFM-Controllers auf einem Track 
$8Ief BUMP: Kopf auf Track 0 

$89fd Test auf Write Protect 

$8a09 Sektorheader für INQUIRE-DISK lesen 

$8a27 MFM-Sektorheader lesen 

$8a73 Tabellen für MFM-Betrieb 

$8a86 Track in MFM formatieren 

$8c57 Diskette in MFM formatieren 

$8cde Diskettenseite in MFM formatieren 

$8d67 MFM-Sektor von Diskette lesen und ggf. senden 
$8df6 BURST-WRITE: MFM-Sektor aus Puffer auf Disk 
$8ec6 Verify MFM-Sektor mit Puffer 0 

$8fls MFM-Sektor neu formatieren mit Verify 

sefsf Sektorfolge für QUERY -DISK feststellen 
$8fa4 Routine UO S: Interleave festlegen 

$8faa Routine UO R: Leseversuche festlegen 

$8fbO Routine UO T: ROM-Test durchführen 

$8fb3 Routine UO H: 1541-Diskettenseite wählen 
$8fe5 Steuerroutine für die obigen Utilities 

$9026 Routine UO M: Umschaltung 1541/1571-Modus 
$9080 FASTLOAD 

$9199 Burst-Statusbyte an Computer senden 

$91lad Fehlerbehandlung bei Suche im Directory 

$91ca Internen Lesekanal suchen und belegen 

$91da Pufferzeiger für Job herstellen 

$91lea Befehlszeile auf Drivenummer und ":" testen 
$9228 X-Register im FAST-Modus zum Rechner übertragen 
$924e Prüfsumme über das ROM berechnen 

$92ba Jobschleife für 1570/71-Betrieb 

$93a2 User-Jobprogramm in Puffer starten 

$93b0 BUMP: Kopf auf Track 0 

$93d1 Pufferzeiger festlegen und zugehörigen Job holen 
$93f3 Kopf auf aktueller Diskseite aktivieren 

$9409 Tabelle für Aufzeichnungsrate/ Track 

$942c Anzahl Sektoren/ Track 

$I44f SEEK: Sektorheader auf beliebigem Track suchen 
$94bc "Optimalen" Job suchen 

$952£ Sektorheader von GCR nach Binär wandeln 
$9600 SYNC nach Sektorheader abwarten 

$9606 Job Lesen: GCR-Datenblock lesen 

$970£ Sektorheader mit gegebenen Parametern suchen 
$9754 SYNC abwarten 

$976e Job Schreiben: GCR-Block auf Disk schreiben 
$97f9 Ausweichpuffer + akt. Puffer von GCR nach Binär 
$9898 Job Verify: Pufferdaten mit Disk vergleichen 
$98d9 5 GCR-Bytes in 4 Binärbytes wandeln 

$9965 Ausweichpuffer $1bb-$1ff von GCR nach Binär 
$99b5 Ausgang der 1571-Jobschleife 

$99ca Diskcontroller. Motorsteuerung 

$9a56 Kopfsteuerung 

$9ab3 Kopf um Halbspur nach innen 

$9adb Track für Formatierung ausmessen 

$9b29 Disk in GCR formatieren 

$9673 Track mit $ff beschreiben 

$9b89 Fortsetzung der Formatierroutine 

$9463 Füllbytes ($55) schreiben 


$9488 IRQ-Routine für 1541-Betrieb 
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$9dde 
$9f0d 
$a40d 
$a47e 
$a483 
$a48b 
$a496 
$a4de7 
$a508 
$a5le 
$a534 
$a545 
$a5sd 
$a5db 
$aSfe 
$a62b 
$a634 
$a65a 
$a667 
$a6e5 
$a738 
$a74f 
$a764 
$a779 
$a786 
$a7b3 
$a7c0 
$a7c7 
$a83e 
$a874 
$a8a9 
$a905 
$a9le 
$a937 
$a951 
$a97f 
$a989 
$a99d 
$a9a5 
$a9ac 
$a9b9 
$a9d5 
$a9f8 
$aal7 
$aa25 
$aa?2d 
$aaaf 
$aa4d 
$aa5b 
$aa62 
$bf00 


IRQ-Routine für 1571-Betrieb 

Tabellen für Umwandlung GCR nach Binär 
Formatierung einer Diskette in GER 
Verzögerung ca. 30 Taktzyklen 

Verzögerung ca. 70 Taktzyklen 

Pufferzeiger für BAM retten 

Pufferzeiger für BAM wieder holen 
BAM-Belegung eines Sektors feststellen (Seite 2) 
Freie Blöcke eines Tracks nach Freigabe erhöhen 
Freie Blöcke eines Tracks nach Belegung vermindern 
Pufferzeiger in BAM setzen 

BAM der 2. Seite auf Richtigkeit testen 

BAM auf Diskette schreiben 

Tabelle der Positionen der BAM-Einträge/ Track 
Erweiterung des &-Befehls für zweiseitige Disks 
Ausschaltverzögerung für Drivemotor setzen 
Drivemotor ein, wenn Diskette gewechselt wurde 
Init des Buscontrollers bei RESET 

BAM von Disk lesen 

Diskette auf zweiseitige Formatierung prüfen 
BAM-Puffer für 1571-BAM löschen 
Tracknummern größer 35 in Nummern für Seite 2 wandeln 
Neue BAM im Speicher herstellen 
GCR-Formatierung einer Disk ohne Directory 
RESET für seriellen Bus 

ATN-Bedienung des Bus (1571) 

Fortsetzung der RESET-Routine 

Neue BAM in Speicher generieren (Erweiterung) 
Block in BAM freigeben 

Block in BAM belegen 

Nächsten freien Sektor eines Tracks suchen 
Bitmuster für Sektor aus BAM holen 

Nächsten freien Sektor feststellen 

Gültigkeit der BAM prüfen 

Freie Blöcke einer Diskette errechnen 
Blockanzahl einer Datei löschen 

Diskette im 1571-Format formatieren 
Drivestatus "OK" setzen 

Drivestatus auf Y setzen 

Serielle Busbedienung nach ATN 

Erweiterte Fehlerbearbeitung mit Burst-Status und Klartext 
Fehlerbehandlung bei LOAD 

Drivestatus auf "inaktiv" 

Drivestatus holen 

Flags für Drivestatus holen 

USER-Befehle außer UO ausführen 

Fehler nach Job prüfen 

Diskette im 1570-Format formatierren 

Dateityp auf PRG testen 

Steuerport lesen 

Sprungtabelle 
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Verändertes, aber im wesentlichen erhalten geblietenes 1541-ROM: 


$c100 LED am aktuellen Laufwerk einschalten 
$c118 LED an Laufwerk 0 ein 

$c123 Fehlerstatus-Flags löschen 

$c12c LED-Blinken initialisieren 

$c146 Befehlsstring auswerten 

$c19d BefehlsabschluB: OK-Meldung 

$clbd INPUT-Puffer $200-$228 löschen 

$c1c8 Fehler ausgeben; Nummer in A 

$cldl Befehlsstring auf ":" untersuchen 

Sclee Befehlsstring auf Joker untersuchen 

$c268 Befehlsstring auf Zeichen in A untersuchen 
$c2b3 Init der Kommandotabellen und -zeiger 
$c312 Laufwerksnummer feststellen und setzen 
$c33c Drivenummer aus Befehlsstring holen 

$c38f Drivenummer ($7f) umdrehen 

$c398 Zeiger für Dateinamen setzen, Dateityp holen 
$c3bd Test auf vorhandene Drivenummer 

$c3ca Vorbereitung zur Suche einer Datei 

$cA44f Dateien aus dem Befehlsstring suchen 

$c48b nächsten Dateinamen im Directory suchen 
$c4d8 Vergleich Dateieintrag im Directory/ im Befehlsstring 
$c5ac Vorbereitung der Suche im Directory 

$c63d Test auf Diskette im Laufwerk 

$c66e Dateiname aus Befehlsstring in Directory-Puffer 
$c688 INPUT-Puffer in anderen Puffer kopieren 
$c6a6 Ende des Dateinamens im Befehlsstring suchen 
$c6ce Dateieintrag aus Directory über Lesekanal 17 holen 
$c7ac Namen im Directory löschen 

$c7b7 Kopf des Directory für Ausgabe erzeugen 
$c806 Zeile mit "BLOCKS FREE" erzeugen 

$c823 SCRATCH-Befehl 

$c8b6 Dateieintrag im Directory löschen 

$c8c1 BACKUP-Befehl (nicht möglich) 

$c8f0 COPY -Befehl 

$c932 Parameter für Kopieren einer Datei setzen 
$c952 Datei in eine Datei kopieren 

$cIfa Internen Kanal zum Lesen einer Datei öffnen 
$ca35 Byte über internen Lesekanal 17 holen 

$ca53 Routine zum Kopieren relativer Dateien 
$ca88 RENAME-Befehl 

$cacc Test auf Vorhandensein einer Datei 

$cae7 Test auf Namensgleichheit zweier Dateien 
$cafs MEMORY-Befehle (Steuerung) 

$cb20 M-R-Befehl 

$cb50 M-W-Befehl 

$cb5c USER-Befehle (Steuerroutine) 

$cb84 "#": Öffnen eines Direktzugriffs-Kanals 
$cclb BLOCK-Befehle (Steueroutine) 

$cc63 Adressen der Blockbefehle 

$ccof Parameter für Blockbefehle holen 

$ccal ASCIH aus INPUT-Puffer nach HEX wandeln 
$ccf5 B-F-Befehl 

$cd03 B-A-Befehl (fehlerhaft) 

$cd56 B-R-Befehl 


$cd5f U1-Befehl 
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$cd73 B-W-Befehl 

$cd97 U2-Befehl 

$cda3 B-E-Befehl 

$cdbd B-P-Befehl 

$cdd2 Direktkanal öffnen; Puffer belegen 

$cdf2 Test auf legalen Block und vorhandenen Puffer 
$ce0e Suchen eines Blocks in einer relativen Datei 

$ce2c Position eines Records berechnen 

$cede Divisionsroutine 

$cfle Aktiven Puffer für Diskbetrieb setzen/ neuen suchen 
$cf7b Freien Puffer suchen 

$cf8c Betriebszustand eines Puffers umkehren 

$cf9b Schreiben einer Datei über internen Kanal in Puffer 
$cffl Ein Byte in den aktuellen Puffer schreiben 

$d005 INITIALISE-Befehl 

$d042 BAM lesen und aktualisieren 

$d075 Anzahl freier Blöcke einer Diskette berechnen 
$d09b Lesen eines Blocks 

$dOaf Folgeblock einer Verkettung holen 

$d0c3 Job: Block lesen (Einsprung) 

$dOeb Suchen und Öffnen eines Lesekanals 

$d107 Suchen und Öffnen eines Schreibkanals 

$d125 Aktuellen Dateityp auf REL prüfen 

$d12f Puffer- und Kanalnummer holen/ setzen 

$d156 Byte aus Datei holen mit Nachladen von Disk 

$d19d Byte in Puffer schreiben mit Schreiben auf Disk, wenn Puffer voll ist 
$d1c6 Erhöhen des aktuellen Pufferzeigers 

$d1d3 Holen und Setzen der Laufwerksnummer 

$dldf Suchen einer Kanalnummer und des zugehörigen Puffers 
$didf Schreibkanal 

$dle2 Lesekanal 

$d227 Freigeben aller Kanäle außer dem Kommandokanal 
$d25a Puffer und zugeh. Kanal freigeben 

$c28e Suchen eines Puffers 

$d2ba Suchen eines freien Puffers 

$d37f Freien Kanal suchen und belegen 

$d39b Nächstes Byte eines Kanals holen 

$d3aa Nächstes Byte einer Datei holen 

$d414 Byte aus Fehlerkanallesen 

$d44d Nächsten Block einer Datei lesen und EOF setzen 
$d460 Parameterübergabe an Diskcontroller 

$d475 Öffnen eines Lesekanalsj Typ SEQ; Block lesen 
$d486 Internen Lesekanal öffnen 

$d48d Belegen und Schreiben des nächsten Directory-Blocks 
$d4c8 Aktuellen Pufferzeiger auf Wert in A setzen 

$d4da Beide internen Kanäle (Lesen + Schreiben) schließen 
$d4e8 Aktuellen Pufferzeige setzen 

$d4f6 Byte aus aktuellem Puffer lesen (A=Nummer des Bytes) 
$d506 Track- und Sektornummer für Jobschleife prüfen 
$d552 Track- und Sektornummer für Job holen 

$assf Test auf legale Track- und Sektornummer 

$d572 Track- und Sektornummer für "DOS MISMATCH" holen 
$d576 Kopfpositionierung relativ zur aktuellen Position 
$d57a Job für einen Puffer setzen 

$d586 Jobcodes an Diskcontroller übergeben 

$d586 Job Lesen 

$d58a Job Schreiben 


$d599 Warten auf Ende des Jobs 
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$d5a6 Test auf Fehler nach einem Job 

$d693 Kopfbewegung um einen Track nach innen oder außen 
$d6a6 Steuerung der Anzahl Leseversuche 

$d6dO Parameter für nächsten Job übergeben 

$d6e4 Neue Datei in Directory eintragen 

$d7b4 OPEN vom seriellen Bus empf. (LOAD,SAVE,SEQ,USR,REL) 
$dsf5 Öffnen einer Datei zum Überschreiben 

$d7a0 Öffnen einer Datei zum Lesen 

$d9e3 Datei zum Schreiben öffnen 

$da09 Dateibetriebsart testen/ Parameter setzen 

$da2a APPEND vorbereiten/ Datenteil überlesen 

$da55 Directory von Disk lesen 

$dacO Datei mit gegebener Sekundäradresse schließen 

$daec Alle Dateien schließen, wenn Kanal 15 geschlossen wird 
Sdb02 Datei mit bestimmter Sekundäradresse schließen 
$db62 Letzten Block einer Datei schreiben 

$dba5 Directory nach Schreiben einer Datei aktualisieren 
$dc46 Kanal mit zwei Puffern zum Lesen öffnen 

$dcb6 Parameter zum Öffnen eines Kanals setzen 

$deda Kanal mit 2 Puffern zum Schreiben öffnen 

$dd8d Byte in Side-Sektor schreiben 

$dda6 Dateityp-Flags testen 

$ddab Jobcode auf "Schreiben" prüfen 

$ddb7 Test auf aktive Datei 

$ddfl Block schreiben, wenn Puffer "dirty" 

$ddfd Linker für Folgeblock in Puffer schreiben 

$de0c Linker für Folgeblock aus Puffer holen 

$del9 Linker für letzten Block setzen 

$de2b Aktuellen Pufferzeiger setzen 

$de3b Track- und Sektornummer nach $80/ $81 bringen 
$de50 Schreib- und Lesejobs ausführen 

$de95 Nächsten Block einer Datei aus Linker schließen 
$dea5 Kopieren eines Puffers in einen anderen 

$decl Puffer löschen 

$ded2 Side-Sektor-Nummer holen 

$dedc Pufferzeiger auf Side-Sektor setzen 

$def8 Side-Sektor und Pufferzeiger setzen 

$dflb Jobübergabe an Diskcontroller (A=Puffernummer; X=Nr. aktiver Puffers) 
$df4c Größe einer relativen Datei berechnen 

$df66 Zustand eines Side-Sektors im Puffer prüfen 

$df93 Nummer des aktiven Puffers holen 

$df9e Aktiven Puffer auf Belegung testen 

$dfb7 Nummer eines inaktiven Puffers + Kanalnummer holen 
$dfc? Puffer in A freigeben 

$dfdO Nächsten Record einer relatien Datei herstellen 

$e03c Nächsten Record im Puffer generieren 

$e07c Byte in Record-Puffer schreiben 

$e0ab Schreiben eines Records 

$e0f3 Recordrest mit Nullen auffüllen 

$e105 Puffer "dirty" anzeigen 

$el15 Puffer "dirty" zurücksetzen 

$e120 Byte aus Recordpuffer holen 

$e153 Nächsten Record lesen/ Byte für Ausgabe bereitmachen 
$el6e Letztes Byte im Record markieren 

$elb2 Letztes Recordbyte ungleich Null suchen 

$elcb Ende des letzten Records feststellen 

$e207 POSITION - Befehl 


$e257 Record in aktuellen Puffer holen; Folgeblock laden 
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$e29c Datenblock in Puffer schreiben 

$e2e2 Pufferdaten einzelnen Records zuordnen 

$e304 Paßt nächster Record noch in Puffer? 

$e3lc Blöcke an relative Datei anhängen 

$e44e Neuen Side-Sektor anlegen 

$e4fc Felermeldungen (ASCI-Tabelle) 

$e60a Fehlerbehandlung nach Job (A==Fehlernummer; X==Puffer) 
$e680 Fehler nach TALK vom Bus 

$e688 Fehler nach LISTEN 

$e69b Hex in A nach dezimal wandeln 

$e6bc Fehlermeldung in Fehlerpuffer schreiben 

$e754 Test auf Kontroll- und ASCII-Codes 

$e775 Byte aus Fehlertabelle holen/ Zeiger erhöhen 
$e7a3 &-Befehl (UTILITY LOADER) 

$e853 IRQ-Routine unter Berücksichtigung eines ATN 
$e85b Bedienung des Bus nach ATN 

$e909 Senden von Daten nach TALK 

$e99c DATA OUT auf Hi 

$e9a5 DATA OUT auf Lo 

$edae CLOCK OUT auf Lo 

$e9b7 CLOCK OUT auf Hi 

$e9c0 Warten auf Antwort vom Bus 

$e9c9 Byte vom Bus holen nach LISTEN 

$ea2e Daten vom seriellen Bus in aktuellen Puffer schreiben 
$ea59 Test auf ATN-Modus 

$eabe Behandlung von Hardwarefehlern 

$eaal RESET-Routine 

$ebe7 Systemwarteschleife 

$ec9e Laden und Aufbereiten des Directory 

$ed23 Abschluß des Directory 

$ed59 Directoryzeile in Ausgabepuffer schreiben 

$ed67 Byte aus Directory holen mit Nachladen von Disk 
$ed84 VALIDATE-Befehl 

$edb3 Verkettung eines Directoryeintrags nachvollziehen 
$ede5 Dateiaufbau anhand der Verkettung nachvollziehen 
$eeb7 Neue BAM erzeugen 

$eef4 BAM auf Diskette schreiben, wenn "dirty" 

$ef3a BAM lesen und Pufferzeiger setzen 

$ef4d Anzahl freier Blöcke holen 

$ef5c Block in BAM freigeben 

$ef88 Flag für "BAM dirty" setzen 

$ef90 Block in der BAM als belegt kennzeichnen 

$efck Index des BAM-Eintrags eines Blocks errechnen 
$effl AAM, falls notwendig, auf Disk schreiben 

$f005 Puffer für BAM löschen 

$foll BAM-Maske in Puffer erzeugen 

$f05b BAM-Masken im Puffer vertauschen 

$f0a5 BAM-Maske in richtige Position bringen 

$fOdf BAM lesen, falls notwendig 

$fLOf Kanalnummer für BAM nach A holen 

$flle Nächsten freien Sektor nach aktuellem ermitteln 
$f173 Nächsten "optimalen" Sektor einer Spur feststellen 
$fla9 Nächsten "optimalen" Sektor suchen und belegen 
$flfa Nächsten freien Sekor einer Spur suchen 

$f220 Gültigkeit der BAM testen 

$f24b Maximalzahl der Sektoren einer Spur ermitteln 
$f259 Register-Init für Diskcontroller 


$f2b0 IRQ-Routine für Diskcontroller 
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$f37c BUMP-Ausführung 

$f393 Pufferadresse und -zeiger für Job setzen 

$f3bl Suchen einer Spur (SEEK) 

$f423 Suchen des besten Folgejobs 

$f497 Headerbytes von GCR nach Binär wandeln 

$f4ca Job Lesen: Blockheader suchen, Block lesen 
$f510 Blockheader suchen 

$f556 Warten auf SYNC 

$f56e Job Schreiben: Block aus Puffer auf Disk schreiben 
$f5e9 Prüfsumme über Datenblock bilden 

sfäf2 Ausweich- und Datenpuffer von GCR nach Binär wandeln 
$f691 Job Verify: Vergleich aktueller Puffer mit Disk 
$f6dO 4 Binärbytes in 5 GCR-Bytes wandeln 

$L77f Tabelle für Wandlung von Binär nach GCR 

$f78f Aktiven Puffer von Binär nach GER wandeln 
$f7e6 5 GCR-Bytes in 4 Binärbytes wandeln 

$f8a0 Tabellen für die Wandlung GCR nach Binär 

$fge0 GCR in Ausweichpuffer nach Binär im aktuellen Puffer 
$f934 Aktueller Blockheader nach GER 

$f969 Ausgang aus der Jobschleife 

$f97e Drivemotor an + 0.4 sAnlaufzeit 

sfy8f Drivemotor aus + 12.3 s Nachlaufzeit 

$f99c Steuerroutitne des Diskcontrollers (1541) 

$fa05 Init der Steppermotor-Steuerung 

$fa3b Langsamer Steppermodus für kurze Wege 

$fa4e Kopfpositionierung beenden 

$fa63 Service-Routine für Steppermotor 

$fa7b Anfahren Steppermotor in schnellen Raten 

$fa97 Steuerroutine für schnellen Steppermodus 

$faaO Abbremsen des Steppermotors 

$fac7 Jobroutine: Formatierung im 1541-Format 

$fda3 Spur löschen durch Beschreiben mit Sir-Bytes 
$fdc3 Anzahl BYTE-READY-Signale abwarten 

$fdf5 Inhalt des Ausweichpuffers in den aktuellen Puffer 
$fe00 Diskcontroller auf Lesen schalten 

$feDe Track mit $55 beschreiben 

$fe30 Blockheader von Binär nach GCR wandeln 

$fe67 Tabellen 

$feca LED einschalten 

$fef3 Verzögerung für seriellen Bus 

$fefb CLOCK OUT auf Lo; DATA OUT auf Hi 

$ffOl UI-Befehl: Umschaltung auf 1540-Betrieb 

$ff1O RESET für Datenrichtungsregister ABuscontroller 
$ff18 RESET für Datenrichtungsregister B Buscontroller 
$ff20 DATA IN Hi abwarten 

$ef2f Vorbereitung der Formatierung einer Diskette 
$ff45 Steppermotorsteuerung für Bewegung nach außen 
$ff82 Floppy auf 1541-Modus stellen 

$ff9c Drive für Betrieb vorbereiten 

$ffal Kopf einen Schritt nach innen oder außen 

$ffe6 Kopf wieder auf Track positionieren 

$ffae Pufferzeiger für Kanalnummer setzen 


$ffe6 Sprungvektoren 
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E Die Statusmeldungen der 1570/71 


Nachfolgend eine komplette Liste aller möglichen Status- und Fehlermeldungen der 1570/71. 
Diese Meldungen bestehen grundsätzlich aus einer Nummer mit der darauf folgenden 
Klartextmeldung und zwei angehängten Werten, die sich in der Regel auf den Track und den 
Sektor beziehen, bei dem der Fehler aufgetreten ist. Es gibt jedoch auch ein paar andere Anzei- 
gemöglichkeiten, weshalb die folgende kleine Aufstellung ein paar Variablen zeigt und wofür 
diese stehen: 


tt Tracknummer 
ss Sektornummer 
ff Anzahl der Files 


00 ok,00,00 (alles in Ordnung) 

Diese Meldung wird vom DOS ausgegeben, wenn ein Befehl ordnungsgemäß ausgeführt worden 
ist. 

01 files scratched,ff ‚00 (keine Fehlermeldung) 


Gibt an, wie viele Files auf der Diskette durch den gegebenen Befehl gelöscht wurden. 


20 read error,tt,ss (Blockheader nicht gefunden) 


Der Blockheader eines Sektors konnte vom Diskcontroller nicht ausfindig gemacht werden. Das 
liegt entweder an einer ungültigen Sektornummer, einer zerstörten Diskette oder einem 
geänderten Headerkennzeichen in der Zeropageadresse $0039. 


21 read error,tt,ss (SYNC-Markierung nicht gefunden) 
Hier wurde die SYNC-Markierung auf einer Spur nicht innerhalb der gegebenen Zeit gefunden. 
Dieser Fehler tritt bei einer defekten Diskette oder einem dejustierten Schreib- /Lesekopf auf. 


22 read error,tt,ss (Datenblock nicht gefunden) 


Es wurde der normalerweise nach dem Blockheader folgende Datenblock nicht gefunden. Dieser 
Fehler tritt auf, wenn zum Beispiel das Datenblock 
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kennzeichen der Diskette nicht mit dem Wert in der Zeropageadresse $0047 übereinstimmt. 


23 read error,tt,ss (Prüfsummenfehler im Datenblock) 


Die auf der Diskette abgespeicherte Prüfsumme über den Datenblock stimmt nicht mit der 
errechneten des DOS überein. Der Serktor konnte zwar in den DOS-Puffer gelesen werden; es 
besteht jedoch die Gefahr einer defekten Diskette. Diese Fehlermeldung kann auch 
Erdungsprobleme der Floppy anzeigen. 


24 read error,tt,ss (Fehler bei GCR-Codierung) 


Beim Recodieren eines eingelesenen Datenblocks oder Blockheaders in das Binärformat sind 
unerlaubte Bitkombinationen der GCR-Bytes aufgetreten; zum Beispiel mehr als 8 1-Bits oder 
mehr als 2 O-Bits direkt hintereinander. Bei dieser Fehlermeldung handelt es sich zumeist um 
Erdungsprobleme der Floppy, die Lesestörungen verursachen. 


25 write error,tt,ss (Fehler bei Verify) 


Das anschließende Verify eines Sektors nach dem Schreiben ist fehlerhaft verlaufen. Es besteht 
deshalb der Verdacht auf einen Schreibfehler. Diese Fehlermeldung zeigt normalerweise eine 
defekte Diskette an. 


26 write protect 0n,00,00 (Schreibschutz aktiviert) 


Es wurde versucht, auf eine Diskete zu schreiben, die eine Schreibschutzplakette trägt. 


27 read error,tt,ss (Prüfsummenfehler im Blockheader) 


Es wurde beim Einlesen eines Blockheaders ein Prüfsummenfehler festgestellt. Hier handelt es 
sich sehr wahrscheinlich um eine defekte Diskette oder Erdungsprobleme der Floppy, die sich in 
Lesestörungen äußern. 


28 write error,tt,ss (zu langer Block) 


Hier wurde nach dem Schreiben eines Datenblocks nicht in der festgelegten Zeit die SYNC- 
Markierung des folgenden Blockheaders gefunden. Diese Meldung zeigt eine fehlformatierte 
Diskette (Datenblock hat die folgende SYNC-Markierung überschrieben) oder einen 
Hardwaredefekt der Floppy an. 
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29 disk id mismatch,tt,ss (falsche ID im Blockheader) 

Es wurde auf eine Diskette zugegriffen, die vorher nicht initialisiert worden ist. Bei dieser 
Fehlermeldung kann es sich aber auch um die Folge eines zerstörten Blockheaders 
(Kopierschutz) handeln. 

30 syntax error,00,00 (allgemeiner Syntaxfehler) 

Hier konnte ein vom Computer geschicktes Kommando nicht interpretiert werden, weil entweder 
die Parameterübergabe falsch war, oder das gegebene Kommando nicht existiert. 

31 syntax error,00,00 (ungültiger Befehl) 

Das DOS war hier nicht in der Lage, einen gesendeten Befehl zu interpretieren. Das kann unter 
Umständen auf Leerzeichen vor dem Befehlsnamen hindeuten. Ein Befehl muß immer am 
Anfang eines Befehlsstrings stehen. 

32 syntax error,00,00 (Befehlszeile zu lang) 

Der gesendete Befehlsstring vom Computer paßt nicht in den INPUT-Puffer der Floppy, weil er 
zu lang ist. Die Länge darf 42 Zeichen nicht überschreiten. 

33 syntax error,00,00 (unerlaubte Verwendung eines Jokers) 

Es wurde ein Joker (*,?) in einem Dateinamen verwendet, obwohl das für den gegebenen Befehl 
nicht zulässig ist. 

34 syntax error,00,00 (Dateiname nicht gefunden) 

Das DOS konnte in der Eingabezeile keinen Dateinamen entdecken. Hierfür ist das Fehlen eines 
Doppelpunktes ':' verantwortlich. 

39 file not found,00,00 (Dateityp USR nicht gefunden) 

Bei dem Befehl, eine &-Datei zu starten, wurde keine USR-Datei mit dem gegebenen 
Dateinamen gefunden. 

50 record not present,00,00 (Datensatz nicht gefunden) 


Diese Fehlermeldung zeigt an, daß in einer relativen Datei ein Datensatz nicht gefunden worden 
ist. Ist der folgende Befehl ein Schreibzugriff, so kann diese Fehlermeldung ignoriert werden, da 
die Erweiterung der relativen Datei automatisch vorgenommen wird. 
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Bei einem &-Befehl zeigt diese Fehlermeldung eine verkehrte Prüfsumme über den Programmteil 
an. 
51 Overflow in record,00,00 (Record für Datensatz zu klein) 


Hier wurde versucht, einen längeren Datensatz in einer relativen Datei unterzubringen, als bei der 
Eröffnung der Datei festgelegt wurde. 


Bei einem &-Befehl zeigt diese Meldung eine verkehrte Längenangabe für einen Programmteil 
an. 

52 file t00 large,00,00 (Datei zu groß) 

Eine Erweiterung einer relativen Datei ist nicht mehr möglich, da diese Erweiterung die 
Kapazität der Diskette oder des Side-Sektors überschreiten würde. 

60 write file open,00,00 (offengeblieben Datei) 

Es wurde versucht, auf eine nicht ordnungsgemäß geschlossene Datei einen Lesezugriff 


durchzuführen. 


61 file not open,00,00 (Datei noch nicht geöffnet) 


Es wurde versucht, auf eine noch nicht geöffnete Datei zuzugreifen. 


62 file not found,00,00 (gewünschte Datei nicht gefunden) 

Die zum Öffnen angeforderte Datei ist unter diesem Namen oder unter diesem Dateityp auf der 
eingelegten Diskette nicht vorhanden. 

63 file exists,00,00 (Datei bereits vorhanden) 

Es wurde versucht, ein neue Datei mit einem Dateinamen anzulegen, der bereits auf der Diskette 
exisitert. 

64 file type mismatch,00,00 (falscher Dateityp) 

Die Angabe des Dateityps im Dateinamen stimmt nicht mit dem Dateityp auf der Diskette 
überein. 

65 no block;tt,ss (zu belegender Block ist bereits belegt) 


Hier wurde versucht, einen Block mit dem B-A-Befehl zu belegen, der bereits in der BAM als 
belegt gekennzeichnet ist. Die Spur- und Sektorangabe zeigen den nächsten verfügbaren freien 
Block an. 
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66 illegal track or sector,tt,ss (unerlaubte Sektorangabe) 


Es wurde versucht, auf einen Sektor zuzugreifen, dessen Nummer auf der Diskette nicht existiert. 


67 illegal track or sector,tt,ss (unerlaubte Sektorangabe) 

In einer Datei zeigt der Linker eines Datenblocks auf einen nächsten Datenblock, der auf der 
Diskette nicht existiert. 

70 no channel,00,00 (kein Kanal mehr frei) 

Es wurde versucht, einen Kanal zu belegen, der bereits belegt ist, oder es wurde versucht, einen 
Kanal zu belegen, obwohl schon alle Kanäle belegt sind. 

71 dir error,tt,ss (Fehler in der BAM) 

Hier stimmt entweder die errechnete Summe freier Blöcke mit der Angabe in der BAM nicht 
überein, oder die BAM-Angaben widersprechen sich innerhalb der BAM. Dieser Fehler zeigt in 
der Regel eine zerstörte oder eine veränderte und nicht wieder auf die Diskette 
zurückgeschriebene BAM an. 

72 disk full,00,00 (Diskette voll) 

Diese Meldung erscheint entweder, wenn nur noch weniger als drei Blöcke auf der Diskette frei 
sind, oder wenn das Directory mit 144 Einträgen voll ist. 

73 cbm dos v3.0 1571,00,00 (Einschalt- und Fehlermeldung) 

Diese Meldung tritt nach dem neuen Einschalten der Floppystation auf oder, wenn versucht 
wurde, auf eine Diskette anderen Commodore-Formats zu schreiben. 

74 drive not ready,00,00 (keine Diskette im Laufwerk) 


Es befindet sich entweder keine oder keine formatierte Diskette im Laufwerk der Floppystation. 
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Stichwortverzeichnis 


&- Befehl, 103 

&-Datei, 103 

@, 182 
Abbruchkommando, 155 
Adreßraum, 98 
Adressierung, 109 
Ansprungadresse, 102 
Arbeitsbereich, reservierter, 48 
Aufzeichnungstechnik, 129 
Autoboot-Datei, 106 
Autoboot-Sektor, 107 


BAM, 49,79 
Basic 2.0, 26, 53 
Basic 7.0, 26, 53 
Basic-Dialekte, 53 
BASIC-Startadresse, 86 
Befehlssatz, 29 
Benutzer-Befehl, 101 
Benutzer-Befehlsadressen, 102 
Benutzerbefehl, 157 
Benutzerdatei, 67 
Benutzerpuffer, 122 
Bereich adressieren, 98 
Betriebsart, 22 

umschalten, 170 
Betriebsmodus, umschalten 121 
Betriebssystem, 42, 117 
Betriebssystemfehler, 82 
Bildschirmmaske, komfortable, 179 
BLOAD, 38 
Block, belegter, 97 

freigeben, 97 

lesen, 94 

markieren, 96 

speichern, 95 


BLOCK-ALLOCATE, 190 
BLOCK-ALLOCATE-Befehl, 96 
BLOCK-Befehl, 92 
BLOCK-EXECUTE-Befehl, 101 
BLOCK-FREE-Befehl, 97 
BLOCK-READ, 189 
BLOCK-READ-Befehl, 92 
BLOCK-WRITE, 189 
BLOCK-WRITE-Befehl, 95 
Blockbelegungsplan, 49 
Blöcke, freie 20, 23, 80 
Blockheader, 136, 140 
Blockverkettung, 83 
BOOT-Befehl, 106 
BUFFER-POINTER-Befehl, 94 
Burst-Modus, 157, 171 
BURST-READ, 180 
BURST-READ-Kommando, 158 
Burst-Routine, 173 
Burst-Statusbyte, 171 
BURST-WRITE, 180 
BURST-WRITE-Kommando, 160 
BURSTMON, 157, 173, 179 
Bus, 21 

serieller, 29, 50, 112, 118 
Bus-Modus, schneller, 157 
Busbetrieb, 113 

schneller 157 
Buscontroller- Interface, 112 

schnelles, 115 
Busroutine, schnelle, 121 
Byte, höherwertiges, 98 

lesen, 146 

niederwertiges, 98 

schreiben, 98, 145 
Byte-Ready-Leitung, 145 
Byteposition, 89 
Bytes durchzählen, 89 


C128, 27 
C64, 27 
Catalog, 34 
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CIA 6526 115, 203 
CLOSE, 29 


Commodore-Diskcontroller, 143 
Commodore-Format, 46, 47, 95 


CONCAT,59 
Coprozessor, 119 
COPY, 59 
CRC-Byte, 141, 153 


Datei anhängen, 59 
Aufbau einer, 83 
auslesen, 65 
gelöschte, 89 
kopieren, 59 
löschen, 56 
offene, 64 
öffnen, 77 
reative, 67 
schließen, 64 
sequentielle, 61, 64 
umbenennen, 58 

Dateibehandlung, 53, 77 

Dateieintrag, 88 

Dateiname, 20 

Dateistruktur, 91 

Dateityp, 61,81 

Daten, empfangen, 99 
senden, 99 

Datenaustausch, 91 

Datenblock, 88 

Datenblockkennzeichen, 138 

Datenbyte, 135 
schreiben, 132 

Datenkanal, 69 

Datensatz, 68, 70 
lesen, 73 
schreiben, 71 
Zugriff auf, 88 

Datenspeicherung, 128 

Datenzeiger, 73 

DEL, 34, 89 

Deleted File, 89 


Directory, 19, 33, 48, 81 
DIRECTORY-Befehl, 180 
Directory-Eintrag, 81 
Directorydatei, 76 
Direktzugriff. 91, 92, 96 
Direktzugriffs-Befehl, 93 
Direktzugriffs-Datei, 111 

eröffnen. 9; 
Direktzugriffs-Kanal. 91 

eröffnen. 91 
DISK-STATUS.180 
Diskcontroller, 116, 139 
Diskcontroller-Interface, 112 
Diskette, 16 

defekte, 24 

kopieren, 60 

retten, 125 

zweiseitige, 47 
Diskettenbetrieb, 23 


Diskettenblöcke durchsuchen, 89 


Diskettendrehzahl, 131 
Diskettenformat, 42, 100 


Diskettenkapazität, überschrittene, 24 


Diskettenorganisation, 48 

Diskettensteuerung, 149 

Diskettenwechsel, 161, 167 

Diskettenzugriff, 88, 123, 126 
Fehler beim, 57 

Diskmonitor, 179 

DLOAD, 36 

Doppellaufwerk, 120 

DOS, 42, 117 


DOS-Befehlssatz erweitern, 105 


DOS-Fehler, 189 

double desity, 45 
Drehzahlschwankung, 130 
drive#, 30 

DUPLICATE, 60 


EDIT-Befehl, 181 
einschalten, 15 
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Endekennzeichen, 63, 74 
EOI-Signal, 40 


FASTLOAD-Kommando, 168 
Fehler, 23 
Fehlerbehandlung, 122, 192 
Fehlerblinken, 24 
Fehlermeldung, 23, 106, 110, 124 
Fehlermeldungen abfragen, 39 
file#, 30 
Filename, 20, 21 
Floppy, 13 
Floppy-Organisation interne, 91 
Floppystation, 13 
programmieren, 99 
FORMAT-Kommando, 162 
Formatanweisung, 143 
formatieren, 18, 30, 31 
Formatierroutine schnelle, 12 
Formatierung kurze, 32 
lange 32 
Fragezeichen, 55 
freigeben, 69 


GCR-Codierung, 132 
GCR-Diskette initialisieren, 159 
GCR-Format, 46, 47, 92, 130, 136 
GCR-Interleave-Faktor setzen, 169 
GCR-Werte umwandeln, 132 
geräte#, 30 

Geräteadresse, 21 

Gerätenummer, 21, 30 

ändern, 25 

einstellen, 170 

GET#, 93 


Handbuchfehler, 191 
Handshake-Leitung, 115 


Hauptprozessor, 119 
Header-Befehl, 32 
Hi-Nibble, 133 


id, 30 

identification, 30 
Index-Adreßmarke, 139 
Indexloch, 17, 135, 139 


Inhaltsverzeichnis, 19, 31, 33, 48, 75, 81 


anzeigen, 76 


INQUIRE-DISK-Kommando, 159, 161, 181 


INQUIRE-STATUS- Kommando, 167 


Interface-Baustein ansteuern, 144 
Interleave-Wert, 163 

Interrupt, 120 
Interruptprogramm, 120, 125 
Inverter, 113 


Job ausühren, 124 

Jobcode, 119 

Jobschleife, 118, 120, 122, 123, 126 
Jobspeicher, 119 

Joker, 53 


Kanal öffnen, 77 
Kanalnummer, 50, 69, 92 
Kapazität, 20, 48, 71, 87 
Kassettenrecorder, 25 
Killertrack, 147 
Kommandokanal, 50, 77 
Kopf positionieren, 152 
Kopierprogramm, schnelles, 100 
Kopierschutz, 100 

entwicklen, 125 
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Laufwerkmotor, 17 OPEN, 29, 51 
Laufwerknummer, 30 Overflow-Flag, 145 
Laufwerksteuerung, 118 
LED, 15, 23 
Leerbyte. 69 Parameteranzeige, vielseitige 179 
Leestring, 94 PC, 109 
Lesefehler, 137, 169 Portabfrage, 145 
ignorieren, 159 Portregister belegen. 143 
Lesegeschwindigkeit, 158 POSITION, 70 
Lesezyklus, 130, 131 PRG, 21, 34, 75, 85 
Lichtschranke, 151 PRG-Datei, 62, 76 
Linkbyte, 83 Programm,laden 22, 35, 50 
Linker, 83, 89 speichern 36, 50 
Lo-Nibble, 133 Programm Counter, 109 
LOAD, 22 Programmadresse, 86 
Lückenbyte, 138 Programmdatei, 75 


Programme aneinanderketten, 104 
Programmname, 20 


Markierungsbyte, 135 Prozessorplatine, 109 
Maschinenprogramm, 37 Prozessorsystem, 100 

ablegen, 102 Prüfsumme, 137 

ausführen, 99, 101 berechnen, 105 

laden, 38 korrekte, 105 

speichern, 39 Puffernummer, 111 
Maschinensprache, 99 Pufferspeicher, 63, 77, 84, 93, 110, 122 


MEMORY-Befehl, 92 
MEMORY-EXECUTE-Befeh,l 99 


MEMORY-READ-Befehl, 97 QUERY-DISK-Format, 166, 181 
MEMORY-WRITE-Befehl, 98 

MFM, 121 

MFM-Format, 130, 134, 138 RAM-Belegung, 123, 193 
MFM-ID-Feld, 141 Read-Address-Kommando, 154 
Monitor, 27, 29 Read-Sector--Kommando, 153 
Motorsteuerung, 151 Read- Track-Kommando, 154 


Record, 68, 70 
Recordlänge, 88 


name, 30 Recordnummer berechnen, 71 
NEW, 82 REL, 34, 67, 86 

NO BLOCK, 96 REL-Datei, 62 

Nullbyte, 94 RENAME, 58 
Numerus-Zeichen, 91 REPLACE, 82, 190 


Restore-Kommando, 151 


B.3 Der Diskcontroller WD 1770 


469 





ROM-Bereich, 111 
ROM-Listing, 207 
ROM-Test, 169 
Rückmeldung, 155 
RUN, 36 


SAVE, 21 
Schieberegister, serielles, 115 
Schnittstellenbaustein, 112 
Schreib-/Lesekopf, 13, 127 

anwählen, 170 
Schreibdichte, 45 
Schreibschutz, 125 
Schreibvorgang, 128 
Schrittmotor, 45 
SCRATCH, 40, 56, 82, 89 
sector interleave, 85 
SECTOR-INTERLEAVE-Kommando, 165 
Seek-Kommando, 152 
Sektor, 45 

einlesen 125 
Sektorabstand, 84 
Sektorabtand, 159 
Sektoranzahl, 46 
Sektorgröße, 46 

angeben, 141 

wählen, 139 
Sektorkopf, 136 
Sektornummer, 83 
Sektorreihenfolge, physikalische, 163 
Sektortabelle, 163 
sekundär#, 30 
Sekundäradresse, 22, 23, 51 
Semikolon, 63 
SEQ, 34, 61 
SEQ-Datei, 62 
Sicherheitskopie, 24 
Side-Sektor, 86, 88 
Side-Sektor- Block, 87, 88 
single desity, 45 


Singleprozessor-System, 120 
Speicherbelegung, 117 
Speicherorganisation, 109 
Spur, 44 

physikalische, .164 
Spurnummer, 83 
Stapelzeiger, 110 
Starttrack, logischer, 164 
Status-Variable, 40 
Statusmeldung, 52 
Step-in-Kommando, 152 
Step-Kommando, 152 
Step-out-Kommando, 152 
Steppermotor, 45 
Sternchen, 54 
Sync-Markierung, 136 

schreiben, 132, 146 

suchen, 147 
Sync-Signal, 131, 147 
Synchronisation, 118 
Systembefehl, 31 
Systemroutine, 126 
Systemzyklus, 130 


Taktfrequenz, 121 
Taktgeschwindigkeit, 121 
Taktzyklus, 144 

Timing, 130 
Timingproblem, 130 
Timingzyklus, 135 
Track, 44 
Transportsicherung, 15 


Übertragungsrate, 144 
Uhr, 115 
USER-O-Befehl, 157 
USER-0-Komplex, 181 
USER-Befehl, 101 
USER-Datei, 67 

USR, 34, 67, 85 
USR-Datei, 62 
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Utility Loader, 103 
UTILITY-Kommando, 168 


VALIDATE, 57, 82, 89, 96 
VC1540, 102 
VC20-Betrieb, 103 
Verarbeitungsgeschwindigkeit, 117 
Verify, 25, 37 

automatisches, 38 
VIA, 112 
VIA 2, 114 
VIA 6522, 112, 201 


WD 1770, 116, 134, 149, 155,205 
wild card, 53 
Write-Sector-Kommando, 153 
Write-Track-Kommando, 154 


x, 30 


Zeropage, 109, 119 
Zwischenspeicher-Bereich, 110 





KARSTEN SCHRAMM wurde am 
1. 3. 1966 in München geboren. 
Zur Zeit besucht er noch das 
Gymnasium. Vor fünf Jahren 
kam er das erste Mal mit Mikro- 
computern in Kontakt. Diese 
Geräte haben ihn derart faszi- 
niert, daß er ein begeisterter 
Hobbyanwender von Mikrocom- 
putern geworden ist. 

Seine Vorliebe gilt der Program- 
mierung in Maschinensprache, 
wobei er sich besonders für Flop- 
pystationen interessiert. 
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DIE FLOPPY 
1570/1571 


Die Floppy 1541 ist unter Commodore-64-Besitzern hinreichend 
bekannt. Mit Erscheinen des Commodore 128 PC sind weitere 
externe Datenspeicher verfügbar - die 5% -Zoll-Diskettenlauf- 
werke 1570 und 1571. Gegenüber der Floppy 1541 bieten sie 
ein völlig neues Floppy-Konzept wie z.B. 

*e eine höhere Verarbeitungsgeschwindigkeit 

«e das Lesen von Standard-Diskettenformaten 

«e _Burst-Betriebsarten für schnellen seriellen Busbetrieb. 
Wer diese Vorteile für die eigene Programmierung nutzen will, 
findet hier zum Nachschlagen ein umfassend dokumentiertes 
ROM-Listing des DOS-Betriebssystems. Neben der 
systematischen Beschreibung der wichtigsten 
Hardwarekomponenten der Floppy 1570/1571 wird ein 
leistungsfähiger Diskettenmonitor als Beispielprogramm zum 
Abtippen mitgeliefert. Für Einsteiger und Profis ist es ein 
nützliches Utility, um in die Geheimnisse der Floppy 1570/1571 
einzudringen. 


Aus dem Inhalt: 

e Beschreibung der verschiedenen Diskettenformate 

«e Die DOS-Befehle 

«e Erläuterung der unterschiedlichen Betriebsarten (GCR, 

MFM, Burst) 

«e Ansprechen der Schnittstellenbausteine (VIA 6522, CIA 
65286 etc.) 
Programmierung des DOS in Maschinensprache 
Bekannte DOS-Fehler 
Dateiverwaltung 
Behandlung und Aufbau von Disketten 

«e Tips und Tricks für die Pflege und Wartung 
Besonders wichtig für die 64er-Anwender: Die Floppy 
1570/1571 kann in der schnellen Betriebsart auch mit dem C 64 
genutzt werden. 


Hardwareanforderung: 
C 128 oder C 128 D, Floppy 1570/1571 
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